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Preface 



This logic manual is intended for IBM personnel responsible 
for maintaining the Communications Control Program (CCP), 
a feature of IBM System/3 Disk System Management, IBM 
System/3 Models 4, 8, 10, and 12. This feature facilitates 
the implementation of telecommunications applications on 
the Models 4, 8, 10, and 12. The manual is a guide to CCP 
program listing; it does not contain instructions for using 
CCP. 

This manual is divided into six parts: 

• Introduction (Chapter 1) 

• Generation/Installation (Chapters 2-3) 

• Assignment and Offline Programs (Chapters 4-7) 

• Operation (Chapters 8-10) 

• Service Aids (Chapters 11-14) 

• Appendixes 

Part 1 introduces the components of CCP. Parts 2 through 5 
describe programs within CCP. Each chapter in these parts 
contains: 

• An introduction to the topic of the chapter. 

• A method of operation section showing the functional 
relation of the different parts within the program 
described. Method of operation diagrams are numbered 
in the form cM.nnnn, where c is the chapter number, M 
is method of operation, and nnnn refers to the sequence 
of the diagrams within the chapter. 

• A program organization section showing main storage 
maps for the program described and either HIPO dia- 
grams or module descriptions and flowcharts describing 
individual modules. The HIPO diagrams in this manual 
do not include cross references to listing labels or extend- 
ed descriptions in text, but do include cross references to 
other HIPOs and flowcharts. HIPO diagrams in the pro- 
gram organization sections are numbered in the form 
cP.nnnn, where c is the chapter number, P is program 
organization, and nnnn refers to the sequence of the 
diagrams within the chapter. 



Appendix A in Part 6 is a system directory for locating 
information in Parts 2 through 5„ Appendix D describes 
the macros used during CCP generation. Appendix F 
illustrates the flowchart and HIPO conventions followed 
in this manual. 

Throughout this manual, page numbers are in the form c-n, 
where c identifies the chapter or appendix and n is the page 
number within the chapter or appendix. The running feet, 
which precede the page number on odd-numbered pages, 
identify the section of the chapter (for example, method 
of operation or program organization) or, in the appendixes, 
a major topic of the appendix. 

For ease of illustration, many of the examples in this book 
use card-like figures to represent records. This does not 
imply that a card device must be used for input or output 
in these situations. Any of several input/output devices can 
be used, depending on which System/3 model and configura- 
tion you are using. 

Integrated communications adapter (ICA) is available only 
on the Model 8 and must be addressed as BSCA line 2. ICA, 
local display adapter, and BSCA-2 are mutually exclusive on 
the Model 8. Local display adapter is available on Models 
8 and 12. The locally attached work station is available on 
Model 4. 

Not all CCP devices and features available on Model 10 are 
available on Models 4, 8, and 12. Users should be familiar 
with the information in the Introduction manual for the 
model they are using. 

In this manual a Model 12 reference to the 5444 indicates 
the 3340 Direct Access Storage Facility simulation area. A 
Model 12 reference to the 5445 indicates the 3340 Direct 
Access Storage Facility main data area. 
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Prerequisite Publications 



You should be familiar with the following publications that 
describe: 

• Communications Control Program: 

IBM System/3 Communications Control Program 
Messages Manual, GC21-5170 

IBM System/3 Communications Control Program Pro- 
grammer's Reference Manual, GC2 1-7579 

IBM System/3 Communications Control Program 
System Design Guide, GC21-5165 

IBM System/3 Models 4, 8, 10, and 12 Communications 
Control Program Data Areas and Diagnostic Aids, 
SY2 1-0048 

IBM System/3 Models 8, 10, and 12 Communications 
Control Program System Reference Manual, GC2 1-7588 

IBM System/3 Communications Control Program Terminal 
Operator's Guide, GC21-7580 

IBM System/3 Models 10 and 12 Communications 
Control Program System Operator's Guide, GC21 - 7581 

• Multiline/Multipoint and Multiple Line Terminal Adapter: 

IBM System/3 Disk Systems Binary Synchronous 
Communications Programming Support Input/Output 
Control System Logic Manual, SY2 1-0526 

IBM System/3 Multiple Line Terminal Adapter RPQ 
Program Logic Manual Supporting RPQs S40028 through 
S40033, SY2 1-0527 

IBM System/3 Multiline/Multipoint Binary Synchronous 
Communications Reference Manual, GC21-7573 

IBM System/3 Disk Sort Reference Manual, SC2 1-7522 

IBM System/3 Models 8 and 10 System Control Program- 
ming Reference Manual, GC21-7512 

IBM System/3 Model 12 System Control Programming 
Reference Manual, GC21-5130 

IBM System/3 Models 4, 6, 8, 10, and 12 System 
Generation Reference Manual, GC21-5126 



• Model 4 

IBM System/3 Model 4 Introduction, GC2 1 - 51 46 

IBM System /3 Model 4 CCP Concepts and System 
Design Guide, GC21-5148 

IBM System/3 Model 4 CCP Programmer's Reference 
Manual, GC21-5150 

• Models 10 and 12 System Management: 

IBM System/3 Models 4, 6, 8, and 10 Disk Systems 
System Control Program Logic Manual, SY2 1-0502 

IBM System/3 Disk Systems Data Management and 
Input/Output Supervisor Logic Manual, SY2 1-051 2 

IBM System/3 Overlay Linkage Editor and Checkpoint/ 
Restart Program Logic Manual, SY2 1-0530 

IBM System/3 Models 8 and 10 System Control Pro- 
gramming Reference Manual, GC21-7512 

IBM System/3 Model 12 System Control Programming 
Reference Manual, GC21-5130 



Related Publications 

Because the Communications Control Program supports 
communications programs written in RPG II, COBOL, 
FORTRAN IV, and Basic Assembler, the following 
publications may be useful: 

IBM System/3 Disk Systems RPG II Logic Manual, 
LY21-0501 

IBM System/3 Subset American National Standard COBOL 
Compiler and Library Program Logic Manual, LY28-6421 

IBM System/3 Disk FORTRAN IV Program Logic Manual, 
LY28-6848 

IBM System/3 Basic Assembler Program Logic Manual, 
LY2 1-0504 

IBM System /3 Models 4, 6, 8, 10, and 12 System Data 
Areas and Diagnostic Aids, SY2 1-0045 
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Abbreviations 



Addr 


A main storage address. 


COMMOIN 


AID 


Attention ID. 


CP 


AM 


Allocation manager. 


CPU 


Arith 


Arithmetic variable. 


CS or C/S 


ARR 


Address recall register. 


CSD 


ASCII 


American national standard code for infor- 






mation interchange. 


CSDD 


Etin 


Binary number. 


CSN 


Bool 


Binary (Boolean) variable. 




BSCA 


Binary synchronous communication adapter. 


DC 


calcs 


Calculations. 


Dec 


CAM 


Compiler access method. 


DFCR 


CCP 


Communications control program. 


DFGR 


CCPIVP 


CCP installation verification program. 


DFF 


CDE 


Contents directory entry. 


DFT 


CEFE 


Customer Engineer Field Engineering. 


Disp 


CH 


Disk address (cylinder/head). 


distrib 


Char 


Alphameric characters. 


DME 


Charn 


Character variable. 


DPF 


CHRD 


Disk address (cylinder/head/record/displace- 


DSM 




ment). 


DTF 


CM 


Communications manager. 


DTT 


CMD 


Command. 


EAU 


COMARA 


Communications area. 


EBCDIC 


COMCOM 


Common communication area. 





Common area. 

Command processor. 

Processing unit. 

Disk address (cylinder/sector). 

Disk address (cylinder/sector/byte displace- 
ment within sector). 

Disk address (cylinder/sector/byte displace- 
ment from the beginning of that sector). 

Disk address and length (cylinder/sector/ 
number of sectors). 

Define constant. 

Zoned decimal characters. 

Display format control routine. 

Display format generator routine. 

Display format facility. 

Display format table. 

Displacement. 

Distribution. 

Data mode escape. 

Dual program feature. 

Disk system management. 

Define the file. 

Define the table. 

Erase all unprotected. 

Extended binary coded decimal interchange 
code. 



Abbreviations ix 



Chapter 1 . Introduction to the Components of CCP 



CCP (Communications Control Program) is a feature of 
System/3 Disk System Management (DSM). CCP operates 
in conjunction with DSM and with MLMP (Multiline/Multi- 
point) and/or MLTA (Multiple Line Terminal Adapter) 
IOCS to provide the control required for a communications- 
based operating system. 

CCP includes not only those modules used during the time 
that a communications network is being controlled, but also 
modules that are used to prepare for the operation of an on- 
line communications network and several auxiliary programs 
that enhance the serviceability of CCP. Apart from auxiliary 
service programs and subroutines incorporated into user pro- 
grams that execute under CCP, the modules that form CCP 
function in one of four stages: 

1. Generation Stage. The stage in which a generalized 
set of modules distributed as the CCP feature are 
tailored to form a system appropriate to the user's 
needs. 

2. Installation Stage (Model 4 only). The stage in which 
the desired version of CCP is copied to the production 
pack and to the RPG II program preparation pack. 

3. Assignment Stage. The stage in which preparatory 
programs operating directly under Disk System 
Management are used to establish control information 
that is used by CCP when controlling an online com- 
munications network. 

4. Operational Stage. The stage in which CCP controls 
a communications network. The Operational Stage 
consists of: 

• Operational Startup. The control information 
created during the Assignment Stage is gathered 
to initiate the control of the communications 
network. 

• CCP Execution. CCP controls communication 
with terminals of the network and runs user pro- 
grams requested by operators. 

• Operational Shutdown. CCP is terminated and 
control is returned to Disk System Management. 



GENERATION STAGE (Models 8, 10, and 12 Only) 

The user receives a Model 8 or 10 CCP on a 5444 disk pack 
or a Model 12 CCP on a 3348 disk module. As distributed, 
CCP is not suitable for immediate production use because 
the modules must be tailored to the user's hardware config- 
uration and to the functions required in the communication 
system. Tailoring the distributed modules and recording 
that tailored system on a disk pack are the functions of the 
CCP Generation Stage. Figure 1-1 is an overview of CCP 
Generation. 

CCP Generation is not required on Model 4. 



Results of Generation 

The distribution pack received by the user contains 
both the modules to be tailored and the programs to 
perform that tailoring. The output of CCP Generation 
is a set of modules which may be split among several 
packs if the user so specifies: 

• Production pack. Contains those modules which are 
used in the Assignment and Operational Stages of 
CCP, as well as certain service aid programs. This is 
the pack which must be online when executing 

any component of CCP beyond generation. 

• Program preparation pack. Pack to be used when 
compiling and link editing user programs which are 
to run under CCP control. The communications 
service subroutines (macros, in the case of Basic 
Assembler programs) and those subroutines which 
must be incorporated in a user program which 
accesses unit record devices are copied to the 
program preparation pack. There may be as many 
program preparation packs as there are languages 
to be supported by CCP; or the support for several 
languages may be directed to the same program 
preparation pack. A program preparation pack could 
be the same pack as the production pack. 

• Assignment file pack. The Assignment File ($CCPFILE) 
is allocated and initialized on this pack. This pack may 
be the same as the production pack. The assignment 
file pack must be online during the Operational 

Stage and during the running of several of the 
preparatory programs, as indicated later in this 
chapter. 



I ntroduction to the Components of CCP 1 -1 



Program Preparation 
Pack(s) 




Distribution 
pack 



• Modules to be 
tailored 

• Tailoring 
programs 



User 
specifications 



Communications 
service subrou- 
tines or macros 
Unit record 
intermediary 
subroutines 



For 

compile/link-edit 
of user programs 



Production 
pack 




$> 



• Operational stage 
modules 

• Preparatory 
/auxiliary 

programs 



Assignment file 
pack 




For preparatory 
:=£> runs and 

operational use 



• Standalone storage dump programs 

• Example assignment set 



Figure 1-1. Generation (Models 8, 10, and 12 Only) 
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Tailoring Process 

Tailoring during CCP generation takes place at several 
levels. According to user specifications: 

• Load modules are selectively copied to the user's 
packs. 

• Relocatable modules are selectively chosen to be 
included in a link edit. 

• Individual instructions are selectively chosen to be 
included in the execution-time resident control 
module. 

The last level of tailoring requires the use of the Macro 
Processor to selectively form the individual instructions 
in the resident control module, and the use of a language 
translator - called the SCP Generator -to convert 
those instructions to machine language. 

The user's CCP, once generated, is limited to the set of 
functions and device types that were specified during 
generation. Any addition to the hardware types or 
the functions expected of CCP requires a new genera- 
tion. 

On the other hand, within that set of functions and 
hardware types, any number of specifics in the user's 
operating environment may be changed without requiring 
a new generation to support them. For example, while 
a new terminal type cannot be supported without a regen- 
eration, the user can vary the configuration of those 
terminals among lines, the terminal addresses, and the 
number of terminals attached. Further, while the user 
has possibly limited the types of disk file support, 
the generation has not bound him to any specific 
set of disk files or to any specific set of programs. 

The specifics of terminals, disk files, and programs are 
established by a brief preparatory run known as 
Assignment Build. 



INSTALLATION STAGE (MODEL 4 ONLY) 

Installation stage on Model 4 consists of a set of procedures 
that copy the desired version of CCP to the production pack 
and RPG II program preparation pack. 



Functions Supported 

The CCP installation stage is eliminated for Model 4. Instead, 
two versions of CCP are pregenerated and shipped to the 
users; one version that supports only 3270 on control station 
line and a second version that supports all BSCA devices and 
all BSCA line configurations. 

The following CCP generation control statements are used to 
pregenerate the two versions: 





Minimum 


Maximum 




Version 


Version 


$EIOD CARD- 


NO 


NO 


PRINTER- 


5203 (note 1 ) 


5203 (noteD 


N3741- 


NO 


NO 


DISKS- 


'R2, F2' 


'R2, F2' 


D5445- 


NO 


NO 


$EFAC MAXEUP- 


4 


4 


DPF- 


NO 


NO 


ESCAPE- 


■ii ii ir 


'//////' 


PGMCNT- 


YES 


YES 


FSHARE- 


YES 


YES 


SYMFIL- 


YES 


YES 


FORMAT- 


YES 


YES 


PRUF- 


YES 


YES 


$EPLG LANG- 


RPG II 


RPG II 


$ESEC SECURE- 


NO (note 2) 


NO (note 2) 


LUSI- 








$EFIL SETS- 


(note 3) 


(note 3) 


PROGS- 


(note 3) 


(note 3) 


DFILES- 


(note 3) 


(note 3) 


TERMS- 


(note 3) 


(note 3) 


DUMPS- 


(note 3) 


(note 3) 


CORE- 


(note 3) 


(note 3) 


TRACE- 


1 


1 
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$EBSC 



$EGEN 





Minimum 


Maximum 




Version 


Version 


BSCA- 


2 


2 


DIAL- 


NO 


YES 


PP- 


NO 


YES 


MP- 


NO 


YES 


CS- 


YES 


YES 


GETMSG- 


YES 


YES 


ITB- 


NO 


YES 


RECSEP- 


-- 


IE 


ASCII- 


NO 


YES 


EBCDIC- 


YES 


YES 


XPRNCY- 


NO 


YES 


RESPOL- 


YES 


YES 


AUTORS- 


NO 


YES 


TYPE- 


3277M1/M2 


3277M1/M2 


TYPE- 


3275M1/M2 


3275M1/M2 


TYPE- 


3284M1/M2 


3284M1/M2 


TYPE- 


3286M1/M2 


3286M1/M2 


TYPE- 


-- 


3735 


TYPE- 


-- 


3741 


TYPE- 


-- 


CPU 


MINRES- 


NO 


NO 



ASSIGNMENT STAGE AND OTHER PREPARATORY 
PROGRAMS 

Because many of the specifics of the user's operational 
environment are deliberately not bound at generation, 
additional programs are provided to permit the user to 
establish the necessary specifics preparatory to the 
operational use of CCP. These programs are: 



The Assignment Build Program: 
related modules. 



$CCPAS and 



• The Assignment List Program: $CCPAL. 

• The User Security Information Build Program: 
SCCPAU. 

• The Display Format Facility (DFF) Programs: 

Display Format Generator Program: $CCPDF. 
Printer Format Generator Program: $CCPPF. 
Display Format Test Routine: $CCPDT. 

• LOG Build Program (Model 4 only): $CC1 BL is provided 
on Model 4 to create the required $CCPLOG file. 



Notes: 

1. The 5203 indicator will be used to indicate 5213. 

2. Even though no security is specified on the pregen- 
erated versions, a user can make use of CCP security 
by specifying the PASSWORD parameter on the 
SYSTEM statement during the assignment stage. 

3. These parameters are used to determine the size of 
SCCPFILE. Therefore, they are not applicable here. 
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Assignment Build Program 



The disk data files to be accessed by user programs. 



Assignment Build (Figure 1-2) creates, deletes, and 
replaces user-defined assignment sets in $CCPFILE. 
An assignment set is a set of control information 
which defines the specifics (not defined at generation) 
of an environment in which the execution of CCP will 
occur. An assignment set defines: 

• A line and terminal configuration. 

• A set of names by which user programs will refer 
to terminals. 



• The set of user programs which may run and the 
system resources required by each. 

• Optional password security (Model 4 only). 

A number of different assignment sets may be defined 
in $CCPFILE. Upon each run of the CCP Operational 
Stage, one assignment set is chosen by the system 
operator to apply to the entire run. 



The characteristics of each terminal. 
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pack 
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Figure 1-2. Assignment Build 
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Assignment List Program 

The Assignment List Program ($CCPAL) lists on the system 
print device those portions at $CCPFILE specified by the 
user. This program can be used to list, in tabular form, 
the contents of any assignment set currently in $CCPFILE. 
It can also be used to list the configuration record of 
$CCPFILE, in which are recorded the system functions 
and hardware configuration specified by the user during 
CCP generation. Figure 1-3 is an overview of Assignment 
List. 

One of the system functions which can be requested at 
CCP generation is the maintenance of a count of 
requests made for each user program during operational 
runs of CCP. If this function was specified at CCP 
Generation, Assignment List can be used to list the 
number of times each program of an assignment set 
has been requested since the last time the cumulative 
counts were reset. Assignment List will, upon the 
user's request, reset those counts after listing them. 



User Security Information Build Program (Models 8, 10, 
and 12 Only) 

At CCP generation, a user-written routine to check the 
validity of every sign-on of a terminal during a CCP execu- 
tion can be provided. To perform this check, the user's 
routine must have access to a set of information (prepared 
by the installation) that defines what information must 
accompany each sign-on in order for the sign-on to be con- 
sidered valid. 

The User Security Information Build Program ($CCPAU) 
accepts installation-defined security information and 
records that information in a module ($CC4Z9) in the 
object library of the production pack (Figure 1-4). The 
contents of this module will be accessible to the user's 
security routine during the execution of CCP. 

The User Security Information Build Program is not 
supported on Model 4. 
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Figure 1-3. Assignment List 
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Figure 1-4. User Security Information Build (Models 8, 10, and 12 Only) 
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Display Format Generator Program 

A significant feature in the ease of use of CCP is the Display 
Format Facility (DFF). DFF permits user programs, dur- 
ing the execution of CCP, to access and manipulate pre- 
defined screen formats to be displayed or printed on a 3270 
Information Display System. 

The Display Format Generator Program ($CCPDF) constructs 
pre-defined formats and initial data contents from specifica- 
tions provided by the user and records them in an object 
library as load modules named $Zxxxx. The modules are 
accessible to user programs which make use of DFF during 
the execution of CCP. Figure 1-5 is an overview of the Display 
Format Generator Program. 



Production 
pack 




$CCPDF: Display 
format generator 



Production pack 
or system pack 




Figure 1-5. Display Format Generator 
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Printer Format Generator Program 

DFF permits user programs, during the execution of CCP, 
to access and manipulate pre-defined printer formats to be 
printed on a 3270 Information Display System Printer. 

The Printer Format Generator Program ($CCPPF) con- 
structs pre-defined formats and initial data contents from 
specifications provided by the user and records them in 
an object library as load modules named $Zxxxx. The 
modules are accessible to user programs that use DFF 
during the execution of CCP. Figure 1-5.1 is an overview 
of the Printer Format Generator Program. 
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Figure 1 .5.1 . Printer Format Generator 
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THE OPERATIONAL STAGE 



Startup 



The Operational Stage begins with the startup of CCP, 
initiated by the system operator via OCL. Under the 
direction of Startup (Figure 1-6), the system operator 
selects from $CCPFI LE the assignment set defining 
the environment which applies to the current execution 
of CCP. The system operator then may make minor 
modifications to the specifications in the assignment 
set. 



CCP Startup then prepares for the execution of CCP by: 

• Locating and initializing all CCP transient routines. 

• Locating all user programs and writing required 
information about those programs from the object 
library directory to $CCPFILE. 

• Allocating and opening all disk files to be used in 
this execution of CCP. 

• Loading the execution-time resident control routine 
$CC4. 



Building control blocks in main storage which 
reflect the specifics of the defined environment. 

Opening communication lines. 

Turning control over to the resident control routine. 



Assignment file pack 



Production pack 
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Prepared for 
execution 



Program characters 
filled in 

Display formats 
located 



Disk data files 
Allocated/opened 



Figure 1-6. Operational Startup 
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Execution 

CCP enters Execution (Figure 1-7) at the completion 
of Startup. During execution CCP monitors the user's 
terminal network to accept commands and program 
requests from those terminals authorized to issue them. 
CCP loads user programs as required and provides an 
interface for those programs to the terminals with 
which they communicate. During execution CCP 
schedules all communications operations and manages 
contention for the use of communications lines. 

CCP Execution is primarily controlled by the resident 
control routine, which was tailored at the source 
program level to the user's specifications during CCP 
generation. In order to respond to commands, to 
schedule, initiate, terminate programs, and to react 
to exceptional conditions in the communications 
network, however, transient routines are used in 
addition to the resident control routine. 



During CCP execution, any user program which is running 
under CCP co-resides in the program-level partition with 
the resident control routine and its transients. Main 
storage, both for user programs and communications 
buffer space, is managed by CCP. If the user chose 
the capability at generation, multiple user programs 
may be concurrently loaded and executing; that is, 
CCP provides for multitasking. 

When a user program is requested, all resources required 
by that program - main storage, files, terminals, and 
unit record devices — are allocated by CCP to the user 
task before that task is initiated. Similarly, upon 
termination of a user task, CCP de-allocates the 
resources of that task. 

Access to disk data files is controlled by CCP during 
CCP execution. To provide for satisfactory program 
initiation and termination performance, CCP opens 
and closes the DTFs in user programs from information 
previously obtained from the open of the disk file at 
Startup. In a multitasking system, the user may have 
elected at generation to support the sharing, across 
several tasks, of files being updated; if so, CCP controls 
the concurrent access to such files. 



Production pack 



System pack 



Disk data files 




tire 1-7. CCP Execution 
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During CCP execution the system operator lias ultimate 
control over the actions of the system and has the ability 
to display on the system console typewriter the status of 
a number of elements of the system. In addition, the 
system operator has control over the triggering of 
several service aid traces. 

CCP execution is terminated by request from the system 
operator that the system shutdown. After all user 
programs currently running and scheduled go to comple- 
tion, CCP Shutdown begins. 



Operational Shutdown 

The function of Shutdown (Figure 1-8) is to systemat- 
ically terminate the execution of CCP and return 
control to Disk System Management. To accomplish 
this. Shutdown : 

• Terminates all communications operations. 

• Closes communications lines. 

• Updates program request counts in $CCPFILE if 
that option was in effect. 

• Closes disk data files opened at Startup. 

• Goes to end-of-job. 

Production pack 
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Shutdown 



Assignment 
file pack 



System 
operator 

input 




Program 
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Disk data 
files closed 



Figure 1-8. Operational Shutdown 
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AUXILIARY PROGRAMS 

Several auxiliary programs are provided with the CCP 
feature as service aids. 



Disk-to-Printer Dump of Main Storage Trace 

Space in $CCPFILE is set aside during the execution of 
CCP to accommodate dumps of main storage and the 
recording on disk of the entries made by a CCP trace. 

If a user task terminates abnormally, CCP writes all of 
main storage to disk if space is available. If the CCP 
trace facility was included in the current CCP run and 
the system operator requested the recording on disk of 
all trace entries, the trace entries are also recorded in 
SCCPFILE. 

The Disk-to-Printer Dump Program ($CCPDD) can be 
used to dump to the system print device any or all of the 
main storage dumps taken during the preceding CCP 
execution as well as any trace entries from that execution. 
The Disk-to-Printer Dump Program (Figure 1-9) runs 
directly under control of Disk System Management. 



Standalone Main Storage Dump Programs (Models 10 
and 12) 

If CCP itself terminates abnormally during execution, 
it is possible that the DSM CEFE main storage dump 
might not be operable. Therefore, four MFCU-loadable 
main storage dump programs are provided — one for 
each possible print chain image: 

1. AN or LC (standard 48 character) 

2. HN (COBOL/FORTRAN 48 character) 

3. PN (60 character) 

4. TN (120 character) 



Installation Verification Program 

As an aid in determining if a generated CCP is truly 
operable with the user's configuration, an installation 
verification program (CCPIVP) is included as part of 
the CCP feature. Immediately after generation and an 
Assignment Build run, CCP may be started up and this 
program run as a verification of the generation, even if 
the user has no user programs prepared to test the 
generation of the system. 
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Figure 1-9. Disk-to-Printer Dump of Storage/Trace 
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EOJ 


End of job. 


MPX 


EOT 


End of transmission. 


MRT 


ERP 


Error recovery procedure. 


NEP 


ESL 


External symbol list. 


OCL 


FCT 


File control table. 


OHA 


FDT 


Field descriptor table. 


OLE 


FSB 


File specification block. 


OLT 


FT 


Format table. 


parm 


HDB 


High density buffer. 


PAS 


HPL 


Halt program level. 


PCT 


IAR 


Instruction address register. 




ICA 


Integrated communications adapter. 


PFGR 
PID 


ID 


Identification. 


PLCA 


IFT 


Input format table. 


PRUF 


I/O 


Input/output. 




IOB 


Input/output block. 


PSR 


IOCS 


Input/output control system. 


PTAM 


IOS 


Input/output supervisor. 


PTTC/EBCD 


IPL 


Initial program load. 


RAT 


ITB 


Intermediate text block. 


reorg 


LCA 


Local communications adapter. 


REQ 


LCB 


Line control block. 


RIB 


LCT 


Line control table. 


RLD 


Len 


Length. 


R4 


MDT 


Modified data tag. 


SBA 


MFCU 


Multi-function card unit. 


SCA 


MLMP 


Multiline/multipoint 


SCB 


MLTA 

X 


Multiple line terminal adapter. 


SCP 
SDF 



Macro processor. 

Multiple requesting terminal. 

Never-ending program. 

Operation control language. 

Output hold area. 

Overlay linkage editor. 

Online test. 

Parameter. 

Program appended storage. 

Program control table or Program 
characteristics table. 

Printer format generator routine. 

Program information department. 

Program level communication area. 

Program request under format. 

Program status register. 

Pseudo tape access method. 

Perforated tape and transmission code/ex- 
tended binary coded decimal. 

Relocation adcon table. 

Reorganization. 

Request. 

Request indicator byte. 

Relocation list dictionary. 

R4 hold queue; associated with $CC4R4. 

Set buffer address. 

System communication area. 

Storage control block. 

System control program. 

Short disk. 



SDR Statistical data recording. 

SIO Start input/output. 

SIT System information table. 

SQB Sector queue block. 

stmt Statement. 

STT Switched terminal block. 

SWA Scheduler work area. 

SYSBFR Control statement input buffer. 

SYSCOM System communication region. 

TAS Terminal attribute set. 

TAT Terminal attributes table. 

TCB Task control block. 

TM Termination manager. 



TNT Terminal name table. 

TP Teleprocessing. 

TT Terminal table. 

TUB Terminal unit block. 

TUT Terminal used table. 

UPA User program area. 

UPS! User program switch indicator 

VTOC Volume table of contents. 

WCC Writer control character. 

XCTL Transfer control. 

XDT Symbolic file table. 

XREF Cross-reference. 



Abbreviations xi 
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Introduction to CCP Generation (Models 8, 10, 
and 12 Only) 

Function 

The function of the Generation Stage of CCP is to: 

» Generate (using the SCP Generator - see Chapter 3) 
modules of the execution-time resident control routine 
that require tailoring at the source level. 

« Link edit the generated modules and certain other 
relocatable modules to form the execution-time 
resident control routine. 

<» Copy this module and other load modules to the 
designated CCP production pack. 

» Allocate and initialize the CCP Assignment File 
($CCPFILE) on the designated assignment file pack. 

• Copy selected relocatable modules (subroutines for 
user programs) to one or more designated program 
preparation packs. 

CCP Generation is not supported on Model 4. 



Procedure 

There are two methods for doing the CCP generation. The 
first method uses cards as the primary input medium. The 
second method, a cardless-oriented procedure, uses the 
source and procedure libraries as the primary input medium. 

The basic procedure for card-oriented CCP Generation is: 

1 . A sample control statement deck is punched from 
the source library of the distribution pack. 

2. The sample deck is modified by the user to fit 
specifications and reentered as input to the next 
step of Generation. 



3. A full job stream to accomplish the necessary 
functions is punched out for the user. 

4. The job stream is entered. At conclusion of the job, 
CCP is generated and the CCP Assignment File 
(SCCPFILE) is ready for the user's initial Assignment 
run. CCP generation may be accomplished on a 
Model 10 Disk System whether the CCP generated 

is to be used on that particular system or not. 

The basic procedure for the cardless-oriented CCP genera- 
tion is: 

1 . Source and procedure members are printed from the 
distribution pack. 

2. The user modifies the sample procedures to the user's 
system configuration. This is input to the next step 
of generation. 

3. The user enters the CCP specifications to create source 
and procedure members which are used to generate 
the user's version of the CCP. The CCP assignment 
file ($CCPFILE) is now ready for the user's initial 
assignment run. 

For more information, refer to Method of Operation later 
in this chapter. 

Note: The printer paper resulting from generation should 
be saved in case of required maintenance by IBM Field 
Engineering. This paper is the only documentation of 
the user's unique system and the precise sequence of 
events during this particular CCP generation. The user 
should also consider back-up procedures in case the CCP 
distribution pack or the CCP production packs are inadvert- 
ently destroyed. 
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Restrictions 

The following restrictions apply to CCP Generation: 

• System/3 Disk System Management, including the 
appropriate BSCA and/or MLTA IOCS, must have 
already been generated. 

• An appropriately sized object library and source library 
must have been allocated on the designated CCP pro- 
duction pack (5444 for Model 10, or the simulation area 
on the 3348 for Model 12). The libraries may already 
contain non-CCP modules. The production pack may be 
any pack other than the distribution pack. It may or may 
not be a DSM system pack, and might even be the system 
pack used during CCP generation. 

• The object library on the production pack must have 
been reorganized since the last deletion or replacement 
of a module in that library. In order to ensure optimum 
execution-time performance, it is important that all 
CCP load modules copied to the object library of the 
production pack be contiguous. 

• The assignment file pack must contain sufficient space 
for the allocation of $CCPFILE. 

• A program preparation pack to be used for the com- 
pilation of RPG II programs must already contain, in 
its object library, the DSM data management routines 
(relocatable modules) for any unit record devices to 
be supported by CCP. 



• 



Sufficient work file space must be available, on 5444 
packs online during generation, for SCP Generator 
and Overlay Linkage Editor runs. 
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These steps are shown in greater detail in the 
Method of Operation section. 



Figure 2-1. General Procedures for a CCP Generation (Models 8, 10, and 12 Only) 
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Method of Operation (Card-Oriented Generation) 

Card-oriented CCP Generation requires two passes through 
the system. The first pass consists of preparatory operations: 

• Copying to the distribution pack certain DSM modules 
which must be located there during the generation 
process (Models 4, 8, and 10 only) 

• Evaluation of the user's Generation control statements 

• Creation of input to the second pass of Generation 

As an aid to the user in preparing his input to the first 
pass of Generation, a sample input deck is provided in 
the source library of the distribution pack. During the 
second pass of Generation, the output from the first 
pass is processed to form a usable CCP tailored to the 
user's specifications. 



STEPS IN CARD-ORIENTED CCP GENERATION 

There are six required steps in generating CCP. (Figure 
2-2 shows several of the six steps and Figure 2-3 is an 
overview of all the steps.) A seventh step is recommended: 
testing the generated CCP using the Installation Verification 
Program CCPIVP. CCPIVP is a distributed program that 
uses the generated CCP system to make sure it has been 
correctly generated. 

Step 1 (Card Oriented) 

The user enters the following statements from the system 
input device: 

// LOAD $MAINT,dsunit 

// RUN 



// COPY FROM-diunit,TO-PRTPCH,LIBRARY-S, 
NAME-$CGSMP 

// END 

dsunit - The unit on which the DSM system pack is 
mounted. 

diunit - The unit on which the CCP distribution pack is 
mounted. 



Step 2 (Card Oriented) 

The system prints and punches from the source library 
the sample first pass input deck ($CGSMP). (Part 1 of 
Figure 2-2.) This deck consists of three parts (for 
Model 12) or four parts (for Models 4, 8, and 10): 

1. Instructions to the user for modifying the punched 
deck. 

2. OCL and COPY control statements to copy the 
Macro Processor ($MPX.ALL) and parts of the 
Overlay Linkage Editor ($OLYNX and $OLBO) 
from the DSM system pack to the distribution pack 
(Models 4, 8, and 10 only). 

3. OCL to call the Macro Processor followed by sample 
$E Generation control statements to generate a 
CCP system. 

4. OCL to call $CC1 PP (CCP Generation Print/Punch 
Utility). 



Step 3 (Card Oriented) 

The user modifies the sample deck to reflect the require- 
ments of his CCP system. This step can be performed 
either by modifying the punched deck or by keying 
the required OCL and Generation control statements 
on the console typewriter. 
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//END 



// COPY 



//RUN 



//LOAD$MAINT, 
DSUNIT 



CCP 

distribution 
pack 




Source 
library 



V See note 



$MAINT 
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CCP generation 
sample deck 
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List of data 
punched out 



Filed for 
customer reference 
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(> 



?/LOAD$MAINT,$$ 



Instructions 
to user 




Sample OCL to invoke 
$CC1PP (Chart AA) the CCP 
disk-to-print and punch 
utility. 



Instructions to user 



Sample CCP generation deck. 
Made up of OCL followed 
by $E macro statements to 
generate a CCP system. 



Note: See IBM System /3 Models 8 
and 10 System Control Programming 
Reference Manual, GC21-751 2. 



Figure 2-2 (Part 1 of 4). Card-Oriented CCP Generation Step 2 
Step 4 (Card Oriented) 

This step (Figure 2-2, Part 2) consists of the following 
| operations: 

1. The Library Maintenance Program ($MAINT) copies 
from the system pack the Macro Processor 
($MPX.ALL) and parts of the Overlay Linkage 
Editor ($OLYNX and $OLBO) to the CCP 
I distribution pack (Models 4, 8, and 10 only). 



2. 



The system invokes the Macro Processor to expand 
the CCP Generation control statements ($E macro 
statements). All statements are diagnosed for errors 
and global variables are set to record options speci- 
fied by the user. During processing of the last 
statement ($EGEN), records which represent input 
to the second pass of Generation are written to 
the work file $SOURCE if no errors were encoun- 
tered in user specifications. The content of these 
records will vary according to the values of the global 
variables set by user specifications. 
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''See Note 1 



$MAINT (Note 3) 



Copy macro pro- 
cessor and overlay 
linkage editor 
modules to distribu- 
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SCP source 
statements 

OCL 

Linkage editor 
control state- 
ments 

Disk utility 

control 

statements 



See Note 2 



Macros feature 



Writes the required 
control statements 
and directions for pro- 
ceeding with the final 
generation on 
$SOURCEfile 



Note 1 : See IBM System/3 Models 8 and 
10 System Control Programming Reference 
Manual, GC21-7512. 

Note 2: See Chapter 3. SCP Generator. 

Note 3: Used for Models 4, 8, and 10 only. 




Figure 2-2 (Part 2 of 4). Card-Oriented CCP Generation Step 4 
Three types of errors can occur during step 4: 

1. A syntax error such as a misspelled keyword, 
invalid operand format, invalid continuation 
card, etc. 

2. An error in statement sequence or the omission 
of a required statement. 

3. Specification of a valid keyword with an invalid 
value or the omission of a required keyword. 

The first type of error is noted by the Macro Processor. 
For each error detected a Macro Processor error message 
is written into $SOURCE after the macro statement 
containing the error. The Macro Processor immediately 
terminates processing of that generation statement 
without any further checking. 

The last two error types are noted by diagnostics internal 
to the macro definitions themselves. An error switch 
is set on, and an error record is written into $SOURCE 
for each macro statement containing an error. 
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If an error of any type is encountered, no input to the 
second pass of Generation is created and the diagnostic 
messages are printed during step 5 by the program 
$CC1PP. 

If no errors have been detected, the following records 
are generated into $SOURCE during the processing of 
the $EGEN statement: 

1. The records required to generate the module which 
initializes SCCPFILE: 

• OCL to invoke the SCP Generator to read card 
input and generate relocatable module $CC1 FC. 

• Statements for generating the initialization data 
for $CCPFI LE as a relocatable module. 

• OCL to invoke the Overlay Linkage Editor. 

• Overlay Linkage Editor statements for link 
editing the provided relocatable module $CC1BP. 
and the new relocatable data module $CC1 FC 
together to form the load module $CC1 BF. 



2. The records required to generate the CCP execution- 
time resident module: 

• OCL to invoke the Macro Processor to read 
card input and write output to $SOURCE. 
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OCL to invoke the Overlay Linkage Editor. 

Overlay Linkage Editor statements to link edit 
$CC4#3 to form the CCP execution-time resident 
module ($CC4#3). 



• Source statements and macro statements creating 
the first source-generatable portion of the 
execution-time resident module. 

• OCL to invoke the SCP Generator to read input 
statements from $SOURCE and generate a 
relocatable module ($CC4#1) which will be 
the first part of the execution-time resident 
load module $CC4. 

• OCL to invoke the Macro Processor to read card 
input and write output to $SOURCE. 

• Source statements and macro statements 
creating the second source-generatable portion 
of the execution-time resident module. 



The records required to generate the necessary 
IOCS loadable trace module(s). One trace module 
is created for BSCA, if supported, and one for 
MLTA, if supported. The following are generated 
for each module: 

• OCL to invoke the Overlay LinkageEditor. 

• Overlay Linkage Editor statements to link edit 
the loadable trace module. 

The records required to copy Assignment Stage 
modules, Startup modules, CCP execution-time 
transient modules, the Shutdown module, and 
service aid programs to the source and object 
libraries of the production pack: 



• OCL to invoke the SCP Generator to read input 
statements from $SOURCE and generate a 
relocatable module ($CC4#2) which will be 
the second part of the execution-time resident 
load module $CC4. 

• OCL to invoke the Overlay Linkage Editor. 



• OCLtorun$MAINT. 

• COPY statements to copy the above load 
modules from the CCP distribution pack to the 
production pack. 

• A// END statement. 



• Overlay Linkage Editor statements to link edit 
$CC4#1, $CC4#2, and other distributed relocat- 
able modules to form the CCP execution-time 
resident module $CC4. 

If remap is requested (FORMAT-PL1 ), the following 
records are required to create a second execution-time 
resident module: 

• OCL to invoke the Macro Processor to read card 
input and write output to $SOURCE. 



Optionally, the records required to build (but not 
enter information into) the initial data load module 
for the user terminal sign on security information: 

• OCL to invoke the SCP Generator to read card 
input and generate relocatable module $CC4Z9. 

• Statements for generating a module of the re- 
quired size, containing all hex zeros. 

• OCL to invoke the Overlay Linkage Editor. 



• Source statements and macro statements creating 
source-generatable execution-time resident module 
($CC4#3). 



• Link edit statements to link edit the user 
terminal sign on security data into a load 
module $CC4Z9. 



OCL to invoke the SCP Generator to read input 
statements from SSOURCE and generate a 
relocatable module ($CC4#3). 
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6. OCL to invoke load module $CC1 BF to initialize 
$CCPFILE. 

7. The records required to copy to each program pre- 
paration pack the Communications Service Sub- 
routines (macros for Basic Assembler Language), 
and to copy (and rename if necessary) the unit 
record intermediary data management subroutines: 

• OCLtorun$MAINT. 

• COPY statements to copy the above modules to 
the user's program preparation pack(s) and for 
RPG to rename the DSM unit record data 
management modules. 

• All END statement. 



8. The records required to punch out modules used 
to service and verify the generated system: 

• The card loadable storage dump programs. 

• The OCL linkage edit statements and a sample 
assignment set for running the Installation 
Verification Program (CCPIVP). 
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Step 5 (Card Oriented) 

The OCL for running $CC1PP (the CCP Generation Utility) 
modified during step 2, is now run (Figure 2-2, Part 3). 

$CC1 PP prints the user's input to the previous step and 
any diagnostic messages generated during that step. 

If any errors were detected, an additional message is issued 
directing the user to correct the errors and repeat step 4. 



If no errors were detected, $CC1PP performs its second 
function. The user determines this function by responding 
to the keyword CARD on the $EGEN macro control state- 
ment. In a card-oriented generation, the response is CARD- 
YES. When CARD-YES is specified, the input to the 
second pass of generation (step 6) is printed and punched. 
Also, a message is issued directing the user to proceed to 
the second pass of generation. 

If CARD-NO is specified, refer to the cardless generation 
step 5 for a description of the second function of $CC1PP. 





CCP 

distribution 

pack 



// LOAD 
$CC1PP## 



V 



Chart AA 



O 



$CCIPP 



CCP generation 
utility contents 
of$SOURCE 




Modified deck of 
sample $CC1PP cards 
from step 2 



£> 



Yes 



=>< 



Card deck contains 
control statements 
and final directions 
for CCP generation 

I 



V 



List of 
$SOURCE 



Correct 

the 
errors 



If no errors, 
listing is filed 
for future 
reference 



X> 



When errors 
corrected, 
return to 
step 4. 



Figure 2-2 (Part 3 of 4). Card-Oriented CCP Generation Step 5 
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Step 6 (Card Oriented) 

The user places the punched output from the previous 
step without modification into the system input device 
(Figure 2-2, Part 4). This produces the following: 

1. Creation of a load module which contains the initial 
contents of $CCPFILE and the instruction code to 
initialize that file ($CC1BF). 

2. Source generation and linkage edit of the CCP 
execution-time resident module ($CC4). 

3. Linkage edit of the execution-time loadable IOCS 
trace modules. 

4. A copy of the load modules for the Assignment and 
Operational Stages and of service aid modules. 

5. Initialization of module $CC4Z9 if SECURE-USER 
was specified in the $ESEC statement. 



Initialization of $CCPFI LE. 
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A copy of subroutines (and macros) to be used in 
compiling and link editing application programs which 
are to run under CCP. 

The following punched output cards: 

a. Stand alone storage dumps. 

b. OCL and Overlay Linkage Editor control state- 
ments that will link edit the Installation Verifica- 
tion Program (CCPIVP). 

c. OCL and control statements for an Assignment 
Build run. 



On successful completion of step 6 the user has a CCP 
pack that is ready for an Assignment Build run. 





CCP 

distribution 
pack 




Card deck 
containing control 
statements for 
CCP generation 



Macros feature 



$CC1BF (Chart AB) 



$MAINT 



See Note 1 



See Note 2 



CCP 

production 
pack 



Deck consists of 

• Standalone storage 
dump programs 

• OCL + linkage editor 
control statements 
for the installation 
verification program 

• OCL + sample control 
statements for 
assignment 



Note"!: See Chapter 3. SCP Generator. 

Note 2: See IBM System /3 Models 8 and 
10 System Control Programming Reference 
Manual, GC21-7512. 



User checks out 
CCP system 



Figure 2-2 (Part 4 of 4). Card-Oriented CCP Generation Step 6 
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Method of Operation (Cardless-Oriented 
Generation) 

Cardless CCP Generation requires only one pass through 
the system. To aid the user in preparing input for this 
generation pass, two source members and five procedures 
(for Models 4, 8, and 10) or four procedures (for Model 
12) are provided in the source library of the distribution 
pack. Source members provided are: 

$CG1GI Cardless CCP generation instructions. 

$CG1GM Sample $E macro control statements. 

Procedures provided are: 

$CG1G1 Controlling procedure for CCP cardless 
generation. 

$CG1G2 Prepares the CCP distribution pack (Models 
4, 8, and 10 only). 

$CG1G3 Processes the user's CCP generation specifica- 
tions. 

$CG1G4 Prints results of user's specifications and pre- 
pares the SSOURCE file for procedure 
$CG1G5. 

$CG1 G5 Using the contents of the $SOURCE file, 
creates the source and procedure members 
that will complete the CCP generation. 



Step 2 (Cardless Oriented) 

The system prints, from the source library, the source 
and procedure members provided. The listing has three 
parts: 

1. Instructions to the user. 

2. Sample $E macro control statements. 

3. The procedures that control the CCP generation. 

Step 3 (Cardless Oriented) 

Optionally, following the printed instructions, the user 
modifies the five provided procedures to reflect the require- 
ments of the system. The user modifies the sample source 
member, $CG1GM, or creates a new source member to re- 
flect the CCP system requirements. 



STEPS IN CARDLESS-ORIENTED CCP GENERATION 

Six steps are required in card I ess-oriented CCP Generation. 
(Figures 2-2.1 -2-2.3). 



Step 1 (Cardless Oriented) 

The user enters the following statements from the system 

input device: 

//LOAD$MAINT,dsunit 

//RUN 

// COPY FROM-diunit,TO-PRINT,LIBRARY-S, 

NAME-SCG1.ALL 
// COPY FROM-diunit,TO-PRINT,LIBRARY-P, 

NAME-$CG1.ALL 
//END 

dsunit — The unit on which the DSM system pack is 

mounted, 
diunit — The unit on which the CCP distribution pack is 

mounted. 
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To Step 4 



Figure 2-2.1. Cardless-Oriented CCP Generation Steps 1-3 
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Step 4 (Cardless Oriented) 

This step consists of the following operations: 

1. The user calls the procedure $CG1G1 from the CCP 
distribution pack. This procedure controls all of 
step 4 and step 5 of the cardless CCP generation. 

2. For Models 4, 8, and 10 only, the procedure $CG1G1 
calls procedure $CC1G2. This procedure copies, 
from the system pack, the macro processor and parts 
of the overlay linkage editor. 

3. The procedure $CG1G1 calls procedure $CC1G3. 
This procedure invokes the macro processor which 
expands the CCP generation control statements ($E 
macro statements). The generation control state- 
ments are read from the described source member, or 
the macro processor requests the generation control 
statements from the system input device. 

All statements are checked for errors, and global 
variables are set to record options specified by the 
user. If no errors are found in the user specifications 
and the keyword CARD-NO has been specified in the 
$EGEN statement, records which represent input to 
step 6 are written to the workfile, $SOURCE, during 
processing of the last statement ($EGEN). The con- 
tents of these records vary according to the values of 
the global variables set by user specifications. 

Three types of errors can occur during step 4: 

1 . A syntax error such as a misspelled keyword, invalid 
operand format, invalid continuation card, etc. 

2. An error in statement sequence or the omission of a 
required statement. 

3. Specification of a valid keyword with an invalid value 
or the omission of a required keyword. 

The first type of error is noted by the Macro Processor. For 
each error detected a Macro Processor error message is 
written into $SOURCE after the macro statement contain- 
ing the error. The Macro Processor immediately terminates 
processing of that generation statement without any further 
checking. 

The last two error types are noted by diagnostics internal to 
the macro definitions themselves. An error switch is set on, 
and an error record is written into $SOURCE for each 
macro statement containing an error. 



If an error of any type is encountered, no input to step 6 
is created and the diagnostic messages are printed during 
step 5 by the program $CC1PP. 

If no errors have been detected, the following records are 
generated into $SOURCE during the processing of the 
$EGEN statement: 

1 . The records required to generate the module which 
initializes $CCPFILE: 

• OCL to invoke the SCP Generator to generate re- 
locatable module to $CC1 FC. 

• Statements for generating the initialization data 
for $CCPFILE as a relocatable module. 

• OCL to invoke the Overlay Linkage Editor. 

• Overlay Linkage Editor statements for link editing 
the provided relocatable module $CC1 BP and the 
new relocatable data module $CC1 FC together 

to form the load module $CC1 BF. 

2. The records required to generate the CCP execution- 
time resident module: 

• OCL to invoke the Macro Processor and write 
output to $SOURCE. 

• Source statements and macro statements creating 
the first source-generated portion of the execution- 
time resident module. 

• OCL to invoke the SCP Generator to generate a 
relocatable module ($CC4#1), which will be the 
first part of the execution-time resident load 
module $CC4. 

• OCL to invoke the Macro Processor to write out- 
put to $SOURCE. 

• Source statements and macro statements creating 
the second source-generatable portion of the 
execution-time resident module. 

• OCL to invoke the SCP Generator to read input 
statements from $SOURCE and generate a relocata- 
ble module ($CC4#2) which will be the second 
part of the execution-time resident load module 
$CC4. 

• OCL to invoke the Overlay Linkage Editor. 

• Overlay Linkage Editor statements to link edit 
$CC4#1 , $CC4#2, and other distributed relocat- 
able modules to form the CCP execution-time 
resident module $CC4. 
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If remap is requested (F0RMAT-PL1), the following 
records are required to create a second execution- 
time resident module: 
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Optionally, the records required to build (but not 
enter information into) the initial data load module 
for the user terminal sign on security information: 



• OCL to invoke the Macro Processor to read card 
input and write output to $SOURCE. 



• OCL to invoke the SCP Generator to generate 
relocatable module $CC4Z9. 



• Source statements and macro statements creating 
source-generatable execution-time resident module 
($CC4#3). 

• OCL to invoke the SCP Generator to read input 
statements from $SOURCE and generate a re- 
locatable module ($CC4#3). 

• OCL to invoke the Overlay Linkage Editor. 

• Overlay Linkage Editor statements to link edit 
$CC4#3 to form the CCP execution-time module 
($CC4#3). 

The records required to generate the necessary IOCS 
loadable trace module(s). One trace module is creat- 
ed for BSCA, if supported, and one for MLTA, if 
supported. The following are generated for each 
module: 

• OCL to invoke the Overlay Linkage Editor. 

• Overlay Linkage Editor statements to link edit the 
loadable trace module. 

The records required to copy Assignment Stage 
modules, Startup modules, CCP execution-time 
transient modules, the Shutdown module, and service 
aid programs to the source and object libraries of the 
production pack: 



• Statements for generating a module of the re- 
quired size, containing all hex zeros. 

• OCL to invoke the Overlay Linkage Editor. 

• Link edit statements to link edit the user terminal 
sign on security data into a load module $CC4Z9. 

OCL to invoke load module $CC1 BF to initialize 
$CCPFILE. 

The records required to copy to each program prep- 
aration pack the Communications Service Subroutines 
(macros for Basic Assembler Language), and to copy 
(and rename if necessary) the unit record intermediary 
data management subroutines: 

• OCLtorun$MAINT. 

• COPY statements to copy the above modules to 
the user's program preparation pack(s) and for 
RPG to rename the DSM unit record data manage- 
ment modules. 

• A// END statement. 

The records required to print the sample assignment 
set control statements, and copy them to the CCP 
production pack. 



• OCL to run$MAINT. 

• COPY statements to copy the above load modules 
from the CCP distribution pack to the production 
pack. 

• A// END statement. 
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Step 5 (Cardless Oriented) 

This step consists of the following three operations: 

1 . Procedure $CG1 G1 calls procedure $CG1G4 which 
executes the generation utility $CC1PP. $CC1PP 
prints the user's input to the previous step and any 
diagnostic messages generated during that step. If 
any errors are detected, an additional message is 
issued directing the user to correct the errors and re- 
start the generation. 

2. If no errors are detected, $CC1 PP performs its second 
function. The user determines this function by res- 
ponding to the keyword CARD on the $EGEN macro 
control statement. In a cardless generation that 
response is CARD-NO. If CARD-NO is specified, the 
input to step 6 is printed and the $SOURCE workfile 
is reorganized to eliminate the user's specification 
statements. 

CARD-NO specified on the $EGEN statement causes 
the $EGEN macro to insert the necessary // COPY 
and // CEND statements required for the following 
$MAINT file-to-library run. The first // COPY state- 
ment inserted by $EGEN macro is recognized by 
$CC1PP and causes $CC1PP to reorganize the file. 
If this // COPY statement is not recognized, $CC1PP 
assumes a card-oriented generation and punches the 
step 6 records. 

If the user specified CARD- YES, refer to card- 
oriented generation step 5 for a description of the 
second function of $CC1 PP. 



Step 6 (Cardless Oriented) 

Procedure $CG1G1 calls the generated procedure, $CCPSA, 
now in the source library on the CCP distribution pack. 
$CCPSA controls the remaining portions of the CCP genera- 
tion which produces the following: 

1 . Creation of a load module which contains the initial 
contents of $CCPFILE and the instruction code to 
initialize that file ($CC1BF). 

2. Source generation and linkage edit of the CCP execu- 
tion-time resident module ($CC4). 

3. Linkage edit of the execution-time loadable IOCS 
trace modules. 

4. A copy of the load modules for the Assignment and 
Operational Stages and of service aid modules. 

5. Initialization of module $CC4Z9 if SECURE-USER 
was specified in the $ESEC statement. 

6. Initialization of $CCPFILE. 

7. A copy of subroutines (and macros) to be used in 
compiling and link editing application programs which 
are to run under CCP. 

8. Printed output of control statements for an Assign- 
ment Build run. 

On successful completion of step 6 the user has a CCP pack 
that is ready for an Assignment Build run. 



Procedure $CG1G1 calls procedure $CG1G5 which 
executes $MAINT file-to-library function. $MAINT 
copies the SSOURCE workfile to the source library 
on the CCP distribution pack. This, in turn, creates 
all necessary source and procedure members to com- 
plete the CCP generation. 
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Step 4 



' ' To Step 6 



SSOURCE 
Library 



V 



Step 
5 



Method of Operation (Cardless-Oriented Generation) 2-15 



From Step 5 



Generated 
source 
member 
$CC1FC 



Supplied 

R-module 

$CC1FC 



Generated 

source 

member 

SCC1#1 



Generated 
source 
member 
$CC1#2 



Generate 
R-modules 
$CC4#1 and 
$CC4#2, 
other selec- 
ted R-module 



Selected 
R-modules 



Selected 
R-modules 



Selected 
O-modules 



Legend: 



Called 
procedure 



Executed 

program 



;£> Data flow of 
function 
performed 



Controlled by generated 
procedure SCCPSA 




CCP Distribution Pack 



CCP Production Pack 



Figure 2-2.3 (Part 1 of 2). Cardless-Orianted CCP Generation Step 6 
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z> 



Selected! 
O-modules 



Selectee) 
O-modules 



Selected 
O-modules 



Generated 
source 
member 
SCC1US 



Generated 
load 
module 
$CC1BF 



Selected 
R-modules 



Selected 
R-modules 



Selected 

source 
member 
and 
R-modules 



Selected 
R-modules 



Source 

member 

$CGSST 




CCP Distribution Pack 



Figuire 2-2.3 (Part 2 of 2). Cardless-Oriented CCP Generation Step 6 
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Step 1 • 



Step 2 < 



CCP GENERATION GLOBAL VARIABLES 

The following tables define the global variables used 
during Macro Processor runs in the first and second passes 
(Figure 2-3) of CCP Generation. The tables contain the 
following information about each global variable: 

• Name. Name of the global variable. 

• Type. Data type of the variable, as follows: 

Arith - arithmetic variable. 

Bool - binary (Boolean) variable. 

Charn - character variable. The digit n after char 
(for example char4) specifies the number of 
characters in the character variable. 

• Stmt. Indicates the Generation control statement 
which contains the parameter from which the global 
variable is set. 



• Keywd. Indicates the keyword in the Generation control 
statement whose parameter is used to set the global gtep 4 
variable's value. 

• Value and Meaning. Indicates the values that the 
global variable may have and the meaning of each value. 



First pass 



Second pass 



Step 3 ■ 



Step 5 [ 



Key punch 
OCL to print 
and punch $CGSMP 



$MAINT 

print and punch 

$CGSMP 




Create a CCP 
production 
pack with 
input from Step 5 



Modify 
sample deck 
to user 
requirements 




Step 6 



Copy Macro Processor 
and parts of overlay 
linkage editor to 
distrib. pack. 



CCP 

production 
pack 



Expand and write 
the $E macros to 
$SOURCE 



$CC1PP print and 
punch (if no errors) 
$SOURCE 




Punched 
deck to 
Step 6 




Figure 2-3. Card-Oriented Generation Passes 
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First Pass 



Name Type Stmt Keywd 



Value and Meaning 



&SEQ Arith ALL 

&TERR Bool ALL 
&URDEV Char4 $EIOD CARD 

PRINTR 



&DISK Char4 $EIOD DISKS 



&N3741 Bool $EIOD N3741 

&NUTSK Arith $EFAC MAXEUP 

&FDPF Bool $EFAC DPF 

&FDME Bool $EFAC ESCAPE 

&X1DME Char $EFAC ESCAPE 
&X2DME 

&FPGC Bool $EFAC PGMCNT 

&FSHR Bool $EFAC FSHARE 



Sequence Control. 

Advances in value from to 10 as each type of Generation control 
statement is processed. 

Termination error switch. 

Unit record support. 

Position Value Meaning 

1-2 00 CARD-NO (card not supported) 

10 CARD-MFCU 
01 CARD-1442 

11 CARD-'MFCU,1442' 

3-4 00 PRINTR-NO (printer not supported) 

10 PRINTR-5203 

01 PRINTR-1403 

Disk support. 

Position Value Meaning 

1-2 



3-4 



00 DISKS-NO (only F1 and R1 supported) 

10 DISKS-R2 

11 DISKS-'R2,F2' 

00 D5445-NO (no 5445 disk support) 

10 D5445-D1 

11 D5445-'D1,D2' 



1 = N3741-YES (3741 as unit record device). 

= N3741-NO (3741 not supported). 

MAXEUP-#. Number of concurrently executing user programs that can 
be run under CCP as specified by the user. 
Minimum = 1, maximum = 8. 

1 = DPF-YES, DPF support. 

= DPF-NO, no DPF support. 

1 = String specified in the Data Mode Escape keyword ESCAPE-value. 

= ESCAPE-NO, no terminal can interrupt a program and talk directly to CCP. 

The Data Mode Escape string (except for the closing apostrophe) as specified 
(character or hex): 

CL6' cccccc 

XL6' xxxxxxxxxxxx 

1 = PGMCNT-YES, a count to be kept of the number of times a user program 
was requested. 

= PGMCNT-NO, no count to be kept. 

1 = FSHARE-YES, shared file update supported. 

= FSHARE-NO, shared file update not supported. 
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Name Type Stmt Keywd 



&FSYM Bool $EFAC SYMFIL 

| $FDFF Bool $EFAC FORMAT 

&FSRT Bool $EFAC SORT 

&FPL1 Arith $EFAC FORMAT 

&FRUF Bool $EFAC PRUF 

&PLG Char4 $EPLG LANG 



&UPCBL Char2 $EPLG PPUNIT 



&UPFOR Char2 $EPLG PPUNIT 



&UPASM Char2 $EPLG PPUNIT 



&UPRPG Char2 $EPLG PPUNIT 



&CPW Bool $ESEC SECURE 



&UPW Bool $ESEC SECURE 



&LUS 


Arith 


$ESEC 


LUSI 


&NS 


Arith 


SEFIL 


SETS 


&NPM 


Arith 


$EFIL 


PROGS 


&NDF 


Arith 


$EFIL 


DFILES 



Value and Meaning 



1 



1 = SYMFIL-YES, symbolic file supported. 

= SYMFIL-NO, symbolic files not supported. 

2 = FORMAT-PL1, Display Format Facility moved to PL1. 

1 = FORMAT-YES, 3270 Display Format Facility supported. 

= FORMAT-NO, Display Format Facility not supported. 

1 = SORT- YES. 
0= SORT-NO. 

2 = FORMAT-PL1, Display Format Facility moved to PL1. 

1 = PRUF-YES, Program Request Under Format supported. 
= PRUF— NO, Program Request Under Format not supported. 

Programming language support, LANG-xxxxx. 

Position Value Meaning 

1-4 1000 COBOL supported. 

1-4 0100 FORTRAN supported. 

1-4 0010 Assembler supported. 

1-4 0001 RPG II supported. 

More than one language can be supported, therefore there can be many 
character combinations for &PLG. Check the SRL for the restrictions. 

PPUNIT-R1/F1/R2/F2. Unit to which COBOL support routines are 
to be copied. 

PPUNIT-R1/F1/R2/F2. Unit to which FORTRAN support routines 
are to be copied. 

PPUNIT-R1/F1/R2/F2. Unit to which Assembler support routines 
are to be copied. 

PPUNIT-R1/F1/R2/F2. Unit to which RPG II support routines are 
to be copied. 

1 = SECURE-CCP, CCP password checking included. 

= CCP password checking not included. 

1 = SECURE— USER, user security routine supported. 
= User security routine not supported. 

LUSI-value. Length of the user security information if &UPW = 1. 

SETS-value. Maximum number of assignment sets in $CCPFILE. 

PROGS-value. Maximum number of user programs in any one assignment set. 

DFILES-value. Maximum number of disk files in any one assignment set. 
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Name Type Stmt Keywd 



Value and Meaning 



&NT Arith $EFIL TERMS 

&DMP Arith $EFIL DUMPS 

&C0R Arith $EFIL CORE 



&TRC Arith $EFIL TRACE 

&UFIL Char2 $EFIL FLUNIT 

&PFIL Char6 $EFIL FLPACK 

&TFIL Arith $EFIL TRKLOC 

&MLA Arith $EMLA LINES 

&MNOX Bool $EMLA XLATE 

&MT40 Bool $EMLD TYPE 

&MT41 Bool $EMLD TYPE 

&MT50 Bool $EMLD TYPE 

&MFSC Bool $EMLD TYPE 

&MFSW Bool $EMLD TYPE 

&MFBR Bool $EMLD TYPE 



TERMS-value. Maximum number of terminals in any one assignment set. 

DUMPS-value. Space reserved in CCPFILE for the specified number of 
dynamic main storage dumps. 

CORE-nnK. Object CPU size. 

Value Meaning 

24576 Storage-24K (Model 10 only) 

32768 Storage-32K (Model 10 only) 

49152 Storage-48K 

Storage-64K 

1 Storage-80K 

2 Storage-96K 

TRACE-value. Number of tracks reserved in $CCPFI LE for CCP trace 
entries. 

FLUNIT-R1/F1/R2/F2. Disk drive on which SCCPFILE is to be 
allocated. 

FLPACK-packname. Name of the $CCPFILE pack. 

TRKLOC-value. Beginning track location for $CCPFILE. 
TRKLOC-0. Operand not specif ied. 

LINES— value. Number of teleprocessing lines in the user's MLTA support. 
LINES-0. No MLTA support. 

1 = XLATE-YES, translation between EBCDIC and line code always to occur. 

= XLATE— NO, additional code to be included to inhibit translate when so 
requested in user programs. 

1 = TYPE-2740, 2740 device supported. 

= 2740 device not supported. 

1 = TYPE-2741, 2741 device supported. 

= 2741 device not supported. 

1 = TYPE-1050, 1050 device supported. 
0=1 050 device not supported. 

1 = Station control supported. 

= Station control not supported. 

1 = Switched lines supported. 

= Switched lines not supported. 

1 = Buffer receive supported. 

= Buffer receive not supported. 
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Name Type Stmt Keywd 



Value and Meaning 



&MFTC Bool SEMLD TYPE 



&MFCK Bool $EMLD TYPE 



&MFNK Bool $EMLD TYPE 



&XM4E Bool $EMLD TYPE 



&MD1 Char8 $EMLD TYPE 



&MD2 Char8 $EMLD TYPE 



&MD3 Char4 $EMLD TYPE 



1 = Transmit control supported. 

= Transmit control not supported. 

1 = Checking terminal supported. 

= Checking terminal not supported. 

1 = Non-checking terminal supported. 

= Non-checking terminal not supported. 

1 = 2740 PTTCEBCD code supported. 

= 2740 PTTCEBCD code not supported. 

MLTA device support. 
Position Value Meaning 



1 


TYPE-1050 


2 


TYPE-1050D 


3 


TYPE-2740 


4 


TYPE-2740S 


5 


TYPE-2740C 


6 


TYPE-2740SC 


7 


TYPE-2740D 


8 


1 TYPE-2740DT 



Zero value indicates that the device is not supported. 
MLTA device support. 
Position Value Meaning 



1 


TYPE-2740DC 


2 


TYPE-2740DTC 


3 


TYPE-2740M2S 


4 


TYPE-2740M2SB 


5 


I TYPE-2740M2SC 


6 


TYPE-2740M2SCB 


7 


I TYPE-2741 


8 


1 TYPE-2741 D 



Zero value indicates that the device is not supported. 
MLTA device support. 
Position Value Meaning 



1 


1 


TYPE-SYS7C 


2 


1 


TYPE-SYS7SC 


3 


1 


TYPE-SYS7DC 


4 


1 


TYPE-CMCSTD 



Zero value indicates that the device is not supported. 
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Name 



Type Stmt 



Keywd 



Value and Meaning 



&MXC 



Char4 $EMLD XMCODE 



MLTA line transmission code support. 
Position Value Meaning 



&BSC 
&BLT 



Arith $EBSC BSCA 



Char4 $EBSC 



&BFA 



Char8 $EBSC 



&RSB 
&BD1 



Char2 $EBSC 
Char8 $EBSD 



PP 
MP 
CS 
DIAL 



GETMSG 

ITB 

RESPOL 

AUTORS 

EBCDIC 

ASCII 

XPRNCY 



RECSEP 
TYPE 



1 


1 


XMCODE-CORR 


2 


1 


XMCODE-PTTCEBCD (2740/1 


3 


1 


XMCODE-PTTCBCD 


4 


1 


XMCODE-PTTCEBCD (1050) 



Zero value indicates that the code is not supported. 

BSCA— value. Number of BSCA lines to be supported. 
BSCA-0. BSCA is not supported. 

BSCA line type support. 
Position Value Meaning 



1 PP-YES (point to point) 

1 MP-YES (multipoint) 

1 CS-YES (control station) 

1 DIAL-YES (switched line) 



Zero value indicates that the control logic for the line type is not included. 
BSCA features supported. 

Position Value Meaning 



1 
2 

3 

4 
5 
6 

7 
8 



1 GETMSG-YES (get message) 

1 ITB-YES (intermediate text block) 

1 Always 1 

1 RESPOL-YES (storage resident polling) 

1 AUTORS-YES (automatic response to polling) 

1 EBCDIC-YES (EBCDIC transmission code) 

1 ASCII-YES (ASCII transmission code) 

1 XPRNCY-YES (text transparency feature) 



Zero indicates that the feature is not supported. 

RECSEP— value. Value of the record separator character (1 E if not specified). 
BSCA device support. 
Position Value Meaning 



1 
2 
3 
4 
5 
6 
7 
8 



TYPE- 
TYPE- 
TYPE- 
TYPE- 
TYPE- 
TYPE- 
TYPE- 
TYPE- 



-3275M1 
-3277M1 
-3284M1 
-3286M1 
•3275M2 
-3277M2 
-3284M2 
-3286M2 



Zero value indicates that a device is not supported. 
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Name 



Type Stmt 



Keywd 



&BD2 Char8 $EBSD TYPE 



Value and Meaning 



BSCA device support. 
Position Value Meaning 



1 


1 


TYPE-3735 


2 


1 


TYPE-CPU 


3 


1 


TYPE-3741 


4-8 


— 


Unused 



Second Pass 



Name Type Stmt Keywd 



Value and Meaning 



&DPF Bool $EFAC DPF 



&MTK Bool $EFAC MAXEUP 



&MLTA Bool $EMLA LINES 



&NOM Bool $EMLA LINES 



&BSCA Bool $EBSC BSCA 



&NOB Bool $EBSC BSCA 



&ONE Bool $EMLA LINES 

$EBSC BSCA 

&DME Bool $EFAC ESCAPE 



&NDME Bool SEFAC ESCAPE 

&DFF Bool $EFAC FORMAT 

&FPL1 Arith $EFAC FORMAT 

&SRT Bool $EFAC SORT 

&NDFF Bool $EFAC FORMAT 



1 = Dual programming feature supported. 

= Dual programming feature not supported. 

1 = Multiple user tasks supported. 

= Single user task supported. 

1 = MLTA supported. 

= MLTA not supported. 

1 = MLTA not supported. 
0= MLTA supported. 

1 = BSCA supported. 

= BSCA not supported. 

1 = BSCA not supported. 

= BSCA supported. 

1 = Single adapter support for MLTA or BSCA. 

= Both MLTA and BSCA supported. 

1 = Data Mode Escape support. 

= Data Mode Escape not supported. 

1 = No Data Mode Escape support. 

= Data Mode Escape support. 

1 = Display Format Facility supported. 
0= Display Format Facility not supported. 

2 = Display Format Facility moved to PL1. 

1 = Sort Facility supported. 

= Sort Facility not supported. 

1 = Display Format Facility not supported. 
== Display Format Facility supported. 
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Name Type Stmt Keywd 



Value and Meaning 



&MIN Bool $EGEN MINRES 



&CL Bool $EGEN CARD 



&OR Arith $EFIL CORE 



1 = Minimum core system supported. 

= Minimum core system not supported. 

1 = Card-oriented generation. 

= Cardless-oriented generation. 



Value 



Meaning 



49152 

1 
2 



Storage-48K 
Storage-64K 
Storage-80K 
Storage-96K 



&SHR Bool $EFAC FSHARE 



$USEON Bool $ESEC SECURE 



&SYSON Bool $ESEC SECURE 



&PUCNT Bool $EFAC PGMCNT 



1 = Update file sharing supported. 

= Update file sharing not supported. 

1 = User sign on routine used. 

= User sign on routine not used. 

1 = CCP password security required. 

= CCP password checking not required. 

1 = Program request count supported. 

= Program request count not supported. 



&URMFU Bool $EIOD CARD 



1 = MFCU supported. 
= MFCU not supported. 



&UR142 Bool $EIOD CARD 



1 = 1442 supported. 
= 1442 not supported. 



&URPRT Bool $EIOD PRINTR 



&UR41 Bool $EIOD 3741 



&NSCTL Bool SEMLA TYPE 



1 = 5203/1403 supported. 

= 5203/1403 not supported. 

1 = 3741 supported. 

= 3741 not supported. 

1 = Station control not supported. 
= Station control supported. 



&NSW Bool $EMLA TYPE 



1 = Switched line not supported. 
= Switched line supported. 



&N1050 Bool $EMLA TYPE 



1 = 1050 not supported. 
0= 1050 supported. 



&N2741 Bool $EMLA TYPE 



1 = 2741 not supported. 
= 2741 supported. 



&NBFR Bool $EMLA TYPE 



1 = Buffered receive not supported. 
= Buffered receive supported. 
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Name Type Stmt Keywd 



&NMOVE Bool $EMLA XLATE 



Value and Meaning 



1 = Move without translate not supported. 
= Move without translate supported. 



&NCPU Bool $EBSD TYPE 



1 = CPU-to-CPU not supported. 
= CPU-to-CPU supported. 



&NITB Bool $EBSC ITB 



1 = Intermediate text block not supported. 
= Intermediate text block supported. 



&NTSP Bool $EBSC XPRNCY 



1 = Text transparency not supported. 
= Text transparency supported. 



&N32 Bool $EBSD TYPE 



1 = 3270 not supported. 
= 3270 supported. 



&N37 Bool $EBSD TYPE 



&N41 Bool $EBSD TYPE 



&NAS Bool $EBSC ASCII 



1 = 3735 not supported. 

= 3735 supported. 

1 = 3741 not supported (terminal). 

= 3741 supported (terminal). 

1 = ASCI I not supported. 
0= ASCII supported. 



&NPP Bool $EBSC PP 



1 = Point to point not supported for BSCA. 
= Point to point supported for BSCA. 



&NMP Bool $EBSC MP 



1 = Multipoint tributary not supported for BSCA. 
= Multipoint tributary supported for BSCA. 



&NSWL Bool $EBSC DIAL 



1 = BSCA switched line not supported. 
= BSCA switched line supported. 



&NCS Bool $EBSC SC 



1 = Control station not supported for BSCA. 
= Control station supported for BSCA. 



&EBIDA Bool $EBSC DA 



1 = DA-YES, display adapter supported. 
= DA-NO, display adapter not supported. 
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Program Organization 



CCP Generation Utility ($CC1PP) 

CHART: AA 
FUNCTIONS: 

— Print the user's input to the first pass and any 
messages from the CCP Generation macros. 

— Determine if, on the first pass of CCP Generation, 
any errors were detected. 

— If any errors, summarize the extent of errors and 
exit. 

— If no errors, print that output from the first pass 
of Generation which serves as input to the second 
pass of Generation. 

— If card-oriented generation, punch the past two 
records. 

— If cardless-oriented generation, reorganize the 
SSOURCE file to eliminate the user input records. 

ENTRY POINT: PPEXEC 

INPUT: 96-byte records in the $SOURCE file which were: 

— Input from the user 

— Error message output directly from Macro Processor 

— Messages (error and warning) from the Generation 
macros 

— Second pass input produced by the Generation 
macros 

— Trailer record from the Generation macro $EGEN 

— Slash-asterisk record representing end of $SOURCE 
OUTPUT: 

— Printed listing of all input from the user (whether 
errors or not). 

— Printed listing of all messages from the Generation 
macros (whether errors or not). 

— Printed listing of all error messages directly from 
Macro Processor. The converted Macro Processor 
error messages, the number and abbreviated text 
are as follows: 



- Halt issued if user specification error. 

- Punched cards or reorganized SSOURCE file (if no 
errors were detected) to serve as input to the second 
pass of generation : 

- OCL, source, and link-edit control statements 
to establish the initial contents of $CCPFILE. 
(A load module, $CC1 BF, is created and stored 
on the distribution pack to be used to initialize 
SCCPFILE according to the user's input.) 

- OCL, source, and link-edit control statements to 
generate the tailored CCP execution-time resident 
supervisor ($CC4, written as a load module to 
the production pack). 

- OCL and utility control statements to copy the 
required load modules of Assignment, Startup, 
Shutdown, and transients of the CCP Execution 
Stage to the production pack. 

- If the user chose the user-security option, then 
OCL, source, and link-edit control statements to 
create the (empty) user-information module 
$CC4Z9 as a load module on the production pack. 

- OCL to cause the initialization of SCCPFILE 
(by execution of the load module $CC1BF). 

- OCL and utility control statements to copy the 
modules for the support of each language (macros 
for Assembler, relocatable modules for the other 
languages) to the pack(s) specified by the user. 

- OCL and utility control statements to punch out: 

— Overlay Linkage Editor control statements 
for the link edit of the Installation Verification 
Program 

— A sample assignment deck 

- $0 LINK traces 

- The stand-alone storage dumps (card oriented 
only) 



MPX Error 


CCP Error 


NF 


CC901 E 


OC 


CC902E 


IK 


CC903E 


IR 


CC904E 


ID 


CC905E 


IC 


CC906E 


CE 


CC907E 



CCP Abbreviated Text 

Invalid stmt id or misplaced source lib 
Invalid stmt format or previous err 
A keyword used is not valid 
Parameter missing or has invalid form 
Invalid delimiter or delimiter placement 
Comma after last OPND, but no continuation 
On continuation of statement, cols. 1-13 
are not blank 



*OTHER* CC909E Error xx from Macro Processor — possible 

CCP error 
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EXTERNAL REFERENCES: 

- Program level communication area for date (NPDATE). 

- CAM for input/output from the SSOURCE file. 

- Printer data management routine ($$LPRT) for 
printed output. 

- System punch routine for punched output. 
EXIT, NORMAL: DSM end-of-job routine. 
EXITS, ERROR: 

- DSM end-of-job routine after halt. 

- Halt/syslog to a U- halt with following subhalts: 

- PU - punch unallocatable 

— HE — disk file permanent error 

— CC — CCP internal error 

- F2 - User specification error 



Create the $CCPLOG File ($CC1BL) 

FUNCTION: Create the file needed by CCP on Model 4 

for a console log file. 
ENTRY POINT: $CC1BL 

INPUT: OCL File statement for the $CCPLOG file. 
OUTPUT: The $CCPLOG file exists as specified on the 

file statement. 
EXIT, NORMAL: End of job. 
EXTERNAL REFERENCE: Allocate, open, and close. 



Build Initial Contents of $CCPFILE ($CC'IBF) 

CHART: AB 

FUNCTIONS: Write the configuration and directory 
sectors of $CCPFI LE as specified by the user. (The 
encoded version of those specifications (the configuration 
and directory sectors of SCCPFILE) is contained within 
this load module, having been link-edited from relocatable 
module $CC1FC.) 

ENTRY POINT: EXECBF 

INPUT: NONE 

OUTPUT: 

- Configuration and directory sectors of SCCPFILE. 

- Completion message on the system log device. 
EXTERNAL REFERENCES: 

- Disk data management module $$DAUB for disk 
output 

- Halt/syslog routine for printing of the completion 
message. 

- Module $CC1FC created previously and link-edited 
with this module. 

EXIT, NORMAL: DSM EOJ routine. 
EXIT, ERROR: Halt/syslog to a halt with subhalt AF 
on permanent disk error. 
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PPEXEC 

****A1 ********* 

* * 

* ENTER * 

* * 
*************** 



PPOKPC V SEE NOTE 

*****B1 ********** 

* * ALLOCATE * * 

* * AMD OPEN * * 

* * INPUT FILE * * 

* * ([SOURCE * * 

* * * * 
*****«**#******** 



PPGETl V AA/03/A2 

*****B2*********+ 
♦PPGETS * 



***************** 



LAST 
REC VERIF 
. RECORD? . 



* S4 *— i 

* ♦ 1 
♦ ♦** I 

PPUNSU V AA/03/AI 

*****Q4 ********** 

♦PPRTXT * 



***************** 



PPART2 V AA/03/A1 

*****B5 ********** 
♦PPRTXT * 



***************** 



*****<: i ********** 

* * 

* ESTAE1LISH FORMS* 
♦SIZE IN PRINTER* 

* DTF * 

* * 
********* ********* 



V AA/03/A1 

*****C3**** ****** 
♦PPRTXT * 



***************** 



V AA/03/A1 

*****C4 ********** 
♦PPRTXT * 

* * 

♦ PRINT ♦ 

♦ CORRECTIVE ♦ 

♦ ACTION MSG * 

***************** 



V SEE NOTE 
♦♦♦♦*C5*** **♦♦♦** 

* * CLOSE ♦ ♦ 

* ♦ S5SOURCE ♦ * 

* * OPEN ♦ * 
SSOURCE 



* * 



* * 



***************** 



* * ALLOCATE * * 

* * AND OPEN * * 

* + PRINTER * * 

* * * * 
***************** 



USER *. 
INPUT 
RECORD? .* 



.* ANY *- 
* ERROR *. YES 
DIAGNOSTICS •* 7 



*****D4********** 

* * 

* + 
♦SET SUBHALT F2 + 

* * 

* * 
***************** 



PPGETX V AA/03/A2 

*****D5* ********* 
♦PPGETS ♦ 



***************** 



***** El* ********* 

* MOVE SYSTEM * 

* DATE AND * 
♦RELEASE NO, TO * 

* PRINT HEADING * 

* * 
***************** 



* CCP/MPX 

DIAGNOSTIC 
*. RECORD? . 



*****E4********** 



***************** 



USER 

INPUT 

RECORD 



*****Ft ********** 



***************** 



.* ERROR *. 
•* (RATHER 
. THAN 
*„WARNING>7. 



***** 

♦ 002* 

* B5* 



+****G2********** 



V AA/03/A1 

*****G 3*** ******* 
♦PPRTXT * 



PPINOU V AA/03/A1 

*****«4 ********** 
♦PPRTXT * 



*****G5 ********** 



***************** 



***************** 



***************** 



***************** 



PPRNER V AA/03/A1 
*****H2* ******♦♦♦ 
♦PPRTXT * 



***************** 
I 



V AA/03/A1 

*****H3********** 
♦PPRTXT * 



***************** 



*****H5 ********** 

* * 

* USE SSSTF2 TO * 

* ALLOCATE SYS * 

* PUNCH * 

* * 
***************** 



********** 



SEE IBM SYSTEM/3 DISK SYSTEMS 
SYSTEM CONTROL PROGRAM LOGIC 
MANUAL. SY2 1-0502. FOR ALLOCATION 
ROUTINES. SEE IBM SYSTEM/3 DISK 
SYSTEMS DATA MANAGEMENT AND 
INPUT/OUTPUT SUPERVISOR LOGIC 
MANUAL, SY21-0512, .FOR OPEN 
AND CLOSE ROUTINES. 



*****K4 ********* 



***************** 



*****K 5* ********* 

* * 

* * 
•SET SU9HALT PU * 

* * 

* * 
***************** 
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***** 

♦ 002* 

* B5* 
* * 
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***** 

♦ 001* 

* K4* 



**** 

* + 

* B3 * 

* * 
**** 



01-E4 
***** 

♦ 003* 

* F2* 



USER 
INPUT 

RECORD? 



B2 *. 

* *. 

"?" IN *. NO 
1ST POSN? .* 



♦****C2* ********* 

* * 

* SET FOR PRINT * 

* EJECT ON NEXT * 

* PR I NT * 

* * 
************* 'X*** 



.* *. 

* CCP/MPX * 
DIAGNOSTIC 

*• RECORD? .* 



PPNT2 V AA/03/A1 

*****D2« ********* 
*PPRTXT * 



*PRINT THE NOTE * 

* * 

***************** 



*****C3********** 
* * 

♦REPLACE »+" BY * 



***************** 



*****D3**** ****** 

* * 

* SET NEW GROUP * 

* ID FOR COLS* * 

* T6t77 * 

* * 
***************** 

**** 



* B4 * 1 

* * I 

**** | 
PPE0F2 V AA/03/A1 

*****B4********** 
•PPRTXT * 

* * 

* PRINT * 

* SUCCESSFUL * 

* COMPLETION * 

***************** 



•*OCL OR *■ **** 

* CONTROL *. YES * 
STATEMENT? •* >* B3 



**** 
YES * * 
* >* B2 * 



**** 

* * 
->* E3 * 

* * 
**** 



**** 
PPREC2 V 

*****E3 ********** 

* * 

* MOVE ID AND * 
♦SEQUENCE NO. TO* 

* COLS. 73-80 * 

* * 
***************** 



AA/03/AI 

*****F3**** ****** 
♦PPRTXT * 



***************** 



***************** 



***************** 



***************** 



* *ISSUE "U-" * * 

* * HALT VIA * * 

* •HALT/SYSLOG* + 

* * * * 

***************** 



SEE NOTE 
V 

****l>tt** ******* 

* * 

* END OF JOB * 

* * 
*************** 



***************** 



SEE NOTE 
V 

****F4********* 

* * 

* END OF JOB * 

* * 
*************** 



*****G4********** 



***************** 



***************** 



* * PUNCH THE * * 

* * OUTPUT ♦ * 

* * RECORD * * 

* * * * 
***************** 



*****J3********** 



********* 



NOTE i: SEE IBM SYSTEM/3 DISK SYSTEMS 
SYSTEM CONTROL PROGRAM LOGIC 
MANUAL, SY21-0502. 

NOTE 2t SEE IBM SY5TEM/3 DISK SYSTEMS 

DATA MANAGEMENT AND INPUT/OUTPUT 
SUPERVISOR LOGIC MANUAL. SY21-0S12* 
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PPRTXT 

***** 1*** ****** 

* * 

* ENTER * 

* * 
*************** 



PPGETS 

****A 2* ******** 

* * 

* ENTER * 

* * 
*************** 



**** 

* * 

* B3 * 

* * 
**** 



*****52* ********* 



*****C1 ********** 



***************** 



*****Ot ********** 



*****$ *********** 



*****[■! ********** 



***************** 



* *USE **LPRT * * 

* * TO PRINT * * 

* * LINE * * 

* * * * 

***************** 



****'GI ********* 

* * 

* RETURN + 

* * 
*************** 



***************** 



*****C2********** 



***************** 



***************** 



E2 *. 

* 

ERROR? 



*****F2********** 



***************** 



***** 
♦002* 
* B5* 



• * MPX 
ERROR 
*. MESSAGE? 



***• 

* * 

* G5 * 

* * 
**** 

PPGGR2 



*****E3********** 

* * 
♦SET SUBSTITUTE * 

* CCP ERROR * 

* MESSAGE * 

* * 
***************** 

I**** 
* * 
->♦ H5 * 
* * 
**** 



OCL *• 
TYPE . 
RECORD? •* 



*****G3 ********** 

* * 

* SET MESSAGE * 
♦INDICATING CCP * 

* ERROR ♦ 

* * 
***************** 

I**** 
* * 

->* H5 ♦ 
* * 

**** 



**** 
• NO * * 

.* >♦ B3 * 

* * 

**** 



****#C,5 ********** 

* * 

* INDICATE TYPE ♦ 

>* AND MOVE TO * 

* LOGICAL AREA * 

* * 
***************** 



*****05 ********** 

* INDICATE TYPE ♦ 

* AND MOVE TO * 
->*LOGICAL RECORD *— -» 

* AREA * 

* * 
***************** 



*****E5**** ****** 

* indicate * 

* miscellaneous * 
>* type: move *- 

* RECORD * 

* * 

***************** 



*****F5********** 

* INDICATE TYPE * 

* AND MOVE TO ♦ 

->*LOGICAL RECORD ♦- 

* AREA * 

* * 
***************** 



* G g * — _ 

* * I 

**** ) 
PPGMVR V 

*****G5**** ****** 

* user input * 
♦record: hove to+ 
♦logical record * 

* AREA * 

* ♦ 
***************** 



♦ H5 ♦-> 



***#H5^**++*++* 

* * 

* RETURN * 

* ♦ 
*************** 



*****J2* ********* 

* ♦ 

* LEAVE RECORD * 

* TYPE CODE ♦ 
•INDICATING EOF * 
+ * 
***************** 

I**** 
* * 

->* HS ♦ 

♦ * 

**** 



SEE ISM SYSTEM/3 
OISK SYSTEMS DATA 
MANAGEMENT AND 
INPUT/OUTPUT 
SUPERVISOR LOGIC 
MANUAL. SY21-0512 
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FXETRF 

****A3 ********* 

* * 

* FMTFB * 

* * 
*************** 



SFF NPTPC; 

v l anh ^ 

*****R?********** 

* * ALLOCATE * * 

* * ANH HPFN * * 

* * *CCC»FILG * * 

* * * * 
************* **** 



PFLOnP 

*****C3 ********** 

* GET SFCTPR * 

* (DUMMY OFT * 

* REQUIRED PY * 
•ACCESS MFTHnrj) * 

* * 
***************** 



V SEF MO t p 

*** * *p^ ********** 

* wuYf rack * 

* sector fopm * 

**CC1FC OATft TN * 

* MAIN STOPAC-F * 

* * 
***************** 



*****p^******W*** 



********* ******* ft 



MP .* pc4n no 
— *. wgittfn ? 







V SFF 


N 


*****C******* 




* 


* 




* 


* 


* 


r\ n^F 


& 


* 


* 


frroFTi c 


* 



Or********* 



V.FP MflTC 1 



***#H3********* 
* 
FNn OF JHR * 

* 
*************** 



"DFNTMP TUTS ^TLF A*; HTDfCT niJTDIJT 
tau^fc; hdfm rn TLFAO FTLF T n BLANKS. 
FIRST SFfTno f S COMF I -,l IP ATT n(j 
0Ff>np, SFCn^in SFCTnp t<; DTperTriOY. 
n< lM ALLn^ATF A mo cwn op jpp pniiTTMrc 
iOF OFSC5T R Fn TN TRM <;v<:tfm/t nj <;k 
<;y$tfm<; ^v^tfu rnMTRp! ppohdam t_nr;Tr 
MANUAL, <V?\-"*r?, ppfm AN^ Ct n«: p 
D "*UT IMF*? Acp np^CPTPFn IN I&M 

«;y<;tfm/3 pr ^< ^ystpmc hata mamahf- 

MCf^JT AMD 1 WOIJT /TUTDJIT ^tlPFOVTCClP 
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Introduction to CCP Installation (Model 4 Only) 

Function 

The Installation Stage of CCP on Model 4: 

<» Copies the necessary load modules for the designated 
version of CCP to the CCP production pack. 

• Copies the necessary relocatable modules (subroutines 
for user programs) to the designated program prepara- 
tion pack. 

• Allocates and initializes the CCP assignment file 
($CCPFILE) and CCP log file ($CCPLOG). 

• Sets up the correct printer intermediary module, which 
is used by the RPG II compiler when compiling and link- 
editing user programs that require the printer. 



Procedure 

To perform CCP installation: 

• Call procedures that copy the necessary modules. 

• Load the programs that initialize the $CCPFI LE and 
$CCPLOG. 

METHOD OF OPERATION 

To get the desired version of CCP from the distribution 
pack to the CCP production pack, the system pack must 
be on F1 and include the overlay linkage editor, the CCP 
distribution pack must be on R1, and you must run the 
following procedure: 



Keywords 



READY- 
CALL 

MODIFY 
RUN 



NAME- 
UNIT- 



Response 

CALL 

verVxx 

R1 



ver specifies the desired version which is either: 
MIN: 3270 only on the control station line 
MAX: all supported BSCA devices and all BSCA 
line configuration 



xx is F1, R2, or F2 that specifies the unit on which the 
desired CCP production pack is placed. For example: 



Keywords 



Response 



READY- 




CALL 


CALL 


NAME- 


MAXVF2 




UNIT- 


R1 


MODIFY 






RUN 







This copies the maximum version of CCP from the distribu- 
tion pack on R1 to the production pack on F2. 

To transfer the CCP subroutines used with RPG II to the 
desired RPG II program preparation pack, the RPG II 
program preparation pack must be in a non-CCP mode and 
you must run the following procedure: 



Keywords 


response 


READY- 


CALL 


CALL NAME- 


RPGVxx 


UNIT- 


R1 


MODIFY 




RUN 





xx is F1, R2, or F2 that specifies the unit on which the 
desired RPG II program preparation pack is located. 

To create the file for $CCPFILE, you must run the 
following job: 



Keywords 



READY- 
LOAD 

FILE 



NAME- 
UN IT- 
NAME- 
UNIT- 
PACK- 
TRACKS- 
LOCATION- 
RETAIN- 



Response 

LOAD 

$CC1BF 

nn 

$CCPFILE 

code 

name 

number 

track number 

P 



MODIFY 
RUN 
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To create the file for $CCPLOG, you must run the following 
job: 



Keyv 


vords 


Response 


READY- 




LOAD 


LOAD 


NAME- 


$CC1BL 




UNIT- 


nn 


FILE 


NAME- 


$CCPLOG 




UNIT- 


code 




PACK- 


name 




TRACKS- 


number 




LOCATION- 


track number 




RETAIN- 


P 


MODIFY 






RUN 







nn is the unit that the CCP production pack is on: F1 
F2, or R2. 
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Chapter 3. SCP Generator (Models 8, 10, and 12 Only) 



Introduction 

The IBM System/3 Models 8, 10, and 12 System Control 
Program Generator (SCP Generator) is a language processor 
that generates relocatable object modules from input to 
the CCP Generation Stage (see Chapter 2 for a description 
of the Generation Stage). This language processor is always 
used to generate at least three relocatable object modules, 
and may be used to generate an optional fourth module: 

• $CC1 FC, initialization data for the assignment file 
($CCPFI LE). See Chapters 4 and 5 for a description 
of the CCP Assignment Programs. 

• $CC4#1, $CC4#2, and $CC4#3 containing resident 
CCP code. 

• $CC4Z9, a null module required only for user-written 
security routines. 

All input for the language processor resides in a disk source 
file (SSOURCE). The source file is processed by the 
following phases: 

$CGNIN Processor Initialization Phase. Initializes the 
processor. 

$CGNCM Source Compression Phase. Reads source 
file ($SOURCE) and generates intermediate 
text in the work file ($WORK2). 

$CGNSB Symbol Table Build Phase. Reads the inter- 
mediate text and builds symbol table in main 
storage. 

$CGNSF Symbol Table Overflow Processing Phase. 

Called only if symbol table overflows. Tests 
intermediate text following the overflow for 
previously defined symbols. 

$CGNSS Symbol Substitution Phase. Places values from 
last (or only) symbol table into the intermediate 
text term records (see index entry Data Area 
Formats, Term Records). Builds an ESL 
(External Symbol List) table. 

$CGNPE ESL Output Phase. Writes ESL records in the 
object file ($WORK) and prints the ESL. 

$CGNPS Source/Object Output Phase. Generates object 
code and source/object listing, and writes the 
object code in the object file ($WORK). 



$CGNBX Build XREF File Phase. Builds a cross-reference 
file in the work file <$WORK2). 

$CGNSX Merge and List Cross Reference. Sorts the file 
built by $CGNBX, generates the cross-reference 
listing, and fetches the Overlay Linkage Editor 
to put the object module in the object library. 

A detailed account of each phase is contained in Program 
Organization in this chapter. 



SYSTEM REQUIREMENTS 

Listed below is the minimum system configuration for the 
SCP Generator: 

• A processing unit with a minimum of 24K bytes of 
main storage (to contain DSM and the SCP generator). 

• IBM 1403 or 5203 Printer with Universal Character 
Set Feature PN (60 character set) Interchangeable 
Chain Cartridge. 

Note: A 48 character chain can be used with the SCP 
Generator. However, the user must be willing to 
accept substitute characters. 

• IBM 5444 Disk Drive. 



STORAGE REQUIREMENTS 

The SCP Generator requires 16K bytes of main storage 
for execution. 

PREREQUISITE PUBLICATIONS 

Effective use of SCP Generator requires an understanding 
of the following manuals: 

• IBM System/3 Basic Assembler Reference Manual, 
SC21-7509. 

• IBM System/3 Models 4, 6, 8, and 10 Disk Systems 
System Control Program Logic Manual, SY21-0502. 

• IBM System/3 Disk System Data Management and 
Input/Output Supervisor Logic Manual, SY21-0512. 
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Method of Operation 

This section describes the functional flow of logic and 
data through the various phases of the language processor. 

PHASE-TO-PHASE COMMUNICATION AND FILE USAGE 

Phase-to-Phase Communication Tables 

Phase-to-phase communication during execution of the 
processor is accomplished by using communication tables: 

1. $CGNIN Communication Tables. The following 
communication tables are loaded with $CGNIN 
and remain in main storage until the processor 
completes execution: 

• Communications Area (COMARA). Contains 

a transfer vector for all data management routines, 
address tables for any working storage that must 
be addressed but exists outside an execution phase, 
and the name of the current execution phase. 
Disk DTFs and lOBs for the source, work, and 
object files are also in COMARA. 

• Common Area (COMMON). A working storage/ 
constant block used by all phases of the processor 
for intraphase and interphase communication. 

Note: The Compiler Access Method (CAM) is also 
loaded with $CGNIN. CAM is described in detail 
in the Program Organization section of this chapter. 

2. $CGNPE Communication Tables. The following 
communication tables are loaded with $CGNPE 
and remain in storage until the processor completes 
execution. For more information about the follow- 
ing tables, see index entry Data Area Formats. 

• Header Area. Used for passing the header of the 
listing from phase to phase. Accessed through 
COMARA. 

• Printer DTF. Used by all output phases. 
Accessed through COMARA. 

• Printer Buffer. Used as a properly aligned print 
buffer (X'7C) boundary. 

Register Conventions 

1. The processor uses Index Register 1 as the communica- 
tions register. XR1 points either to the Communica- 
tions Area (COMARA) or to the Common Area 
(COMMON) at all times. When it points to COMARA, 



XR1 has the symbolic name CAP; when it points to 
COMMON, XR1 has the symbolic name CMP. Each 
of these two communications tables contains the 
displacement of the other, so XR1 can be switched 
from one to the other with one instruction. At the 
entry to each phase except SCGNIN, XR1 points to 
COMARA. The first instruction of each phase moves 
the phase name to COMARA so that COMARA 
always contains the name of the current execution 
phase. 

2. Index Register 2 is used as a DTF pointer, base 
register, and work register. The symbolic name of 
XR2 for each case is DTF, BR2, and WK2, respect- 
ively. The content of XR2 at the entry to a phase 
is unpredictable. 

Work File ($WORK2) 

The work file is a scratch file used by the processor for 
intermediate storage (on disk storage drive). Data is 
passed back and forth between the work file and processor 
phases throughout execution of the processor. 

Source File ($SOURCE) 

The source file is used by the processor for storing the 
source program. It provides source records for $CGNCM 
and $CGNPS. The source file is loaded before execution 
of the processor. 



Object File ($WORK) 

The object program produced by the language processor 
is written to the object file by $CGNPE and $CGNPS. 
$CGNSX passes control to the Overlay Linkage Editor to 
put the object file (module) in the object library. 

ILLUSTRATED OVERVIEW 

Diagram 3M.0010 shows the main storage load structure 
for each phase in the processor. It also indicates which 
areas remain the same from one phase to the next and 
which areas are overlaid with different code. 

Diagram 3M.0020 illustrates the overall flow of logic and 
data through the processor. The logic flow is traced from 
phase to phase, with the major functions of each phase 
listed under the name of the phase. The data flow is 
traced between phases and the work, source, and object 
files. Any output produced by a phase is indicated as 
data flow. 
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Note: Two dark lines are shown in each phase. The area between the lines is newly 

loaded by the phase. The area above the first line and below the second remains 
the same as it was for the preceding phase. 
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SCGNIIM 

• Initializes the 
processor. 

• First phase 
to gain 
control. 
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Work 

file 

(SWORK2) 



I 



$CGNCM 

• Reads and proc- 
esses all source 
statements. 

• Decodes and tests 
source statements. 

• Builds interme- 
diate text on the 
work file. 



Legend 
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SCGNSB 

• Reads intermediate 
text and builds 
symbol table. 

• Assigns location 
counter values. 

• Updates control 
records and 
error records on 
work file. 
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Symbol 
table 
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SCGNSF 

• Reads and proc- 
esses intermediate 
text after point of 
overflow in SCGNSB. 

• Adds symbol table 
to work file if 
cross reference 
requested. 

• Output to work 
file. 



/us, Symbol 
"^V table 
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SCGNSS 

• Substitutes 
symbol values 
into term records 
in intermediate 
text on the 
work file. 

• Builds an 
ESL table. 

• Adds symbol 
table to work 
file if cross 
reference 
requested. 



Jo 
*$CGNPE 



Note: If an unrecoverable error occurs in any phase, 
end of job (EOJ) is called. 
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• Prints ESL table. 

• Puts out ESL 
records to object. 
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$CGNPS 

• Reads source file 
to generate source 
portion of listings. 

• Reads the work 
file intermediate 
text to generate 
object program. 



$CGNBX 

Builds a cross 
reference from the 
intermediate text 
and the symbol 
table in the work 
file. 



$CGNSX 

Sorts the file built 
by $CGNBX. 

Generates cross 
reference listing. 



Iz 



Overlay linkage 
editor (SOLYNX) 

Catalogs object program 
as requested. 
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Source object 
listing 



V 



Cross reference 
listing 



Iz 



Object file 
($WORK) 




Object file 
($WORK) 



Note: If an unrecoverable error occurs in any phase, 
end of job (EOJ) is called. 
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Program Organization 



Source Compression Phase ($CGNCM) 



This section describes in detail each of the phases and 
routines that perform the functions of the SCP Generator. 
The description of each phase consists of a main storage 
map, appropriate flowcharts, and supporting text derived 
from prologues in the phase listings. This text is intended 
only to supplement the flowcharts (some of the simpler 
routines within each phase do not have flowcharts). 



Processor Initialization Phase ($CGNIN - PID Name is 
SCGDRV) 

ENTRY POINT: INIOOO - entered from DSM scheduler. 

(See IBM System/3 Disk Systems System Control 

Program Logic Manual, SY21-0502.) 
MAIN STORAGE MAP: Figure 3-1. 
CHART: BA 

FUNCTION: Initializes the processor (INIOOO - Chart BA). 
INPUT: Opened files - $SOURCE, $WORK, and $WORK2. 
OUTPUT: Communications Area (COMARA) and Compiler 

Access Method (CAM). 
EXITS: 

- Normal: Control is passed to $CGNCM. 

- Error: Control is passed to the DSM scheduler via 
Halt/Syslog or EOJ transients. (See IBM System/3 
Disk Systems System Control Program Logic Manual, 
SY21-0502.) 



Resident supervisor 



$CGNIN 

Communications area (COMARA) 
Common area (COMMON) 
Compiler access method (CAM) 



INIOOO 

Working storage/constants 



Disk buffers 



Figure 3-1. Main Storage Map of $CGNIN 



ENTRY POINT: CMIOOO - entered from $CGNIN via 
Fetch. (See IBM System/3 Disk Systems System 
Control Program Logic Manual, SY2 1-0502.) 

MAIN STORAGE MAP: Figure 3-2. 

CHARTS: BB - BH 

FUNCTIONS: 

- Initializes $CGNCM for processing (CMIOOO - 
Chart BB). 

- Controls $CGNCM processing of source records, 
including sequence checking if requested (CMP000 - 
Chart BB). 

- Tests name field (CMN000 — no chart). 

- Writes a control record and a name record if a valid 
symbol is present (CMU000 - no chart). 

- Performs actions required when $CGNCM processing 
is completed (CML000 - Chart BG). 

- Fetches $CGNSB (CML000 - no chart). 

- Determines the operation code specified on the 
current source statement (CMO000 - no chart). 

- Determines if a referenced byte contains either a 
valid alphabetic or numeric character (CMC000 - 
no chart). 

- Searches a source record; records following informa- 
tion in COMMON. 

1. Length of name (if present). 

2. Column number of rightmost byte of operation 
code. 

3. Length of operation byte. 

4. Column number of leftmost byte of operand. 

5. Length of operand field. 

6. Column number of rightmost byte of operand 
(CMS000- no chart). 

- Converts zoned decimal strings to binary equivalents 
(CMV000 - no chart). 

- Decodes and tests the syntax of the operand field of 
the current source statement for proper syntactical 
coding (CMY000 - Chart BC: see also Figure 3-3. 
Syntax Checking). 
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- Determines if the operand format set by CMYOOO is 
valid for the current type of source statement 
(CMXOOO - no chart). 

- If operand format is valid, sets up operand byte in 
the intermediate text control record build area 
(CMXOOO - no chart). 

- Determines object length (in bytes) of current 
machine source statement (CMR000 - no chart). 

- Prepares each term in the operand field for CMDOOO 
by searching for the end of the current term and 
temporarily placing a blank in that byte (CMK000 - 
Chart BE). 

- Creates intermediate text term record for each valid 
term in the operand field of the current source 
record (CMDOOO - Chart BF). 

- Processes all assembler operations (CMAOOO - 
Chart BD). 

- Creates intermediate text term records for the 
operand field of the TITLE and DC statements 
(CMAOOO - Chart BD). 

- Provides interfaces with data management for disk 
operations (CMW000, CMW010, CMW020, CMW030, 
CMW100 - Chart BH). 



Resident supervisor 



Communications area (COMARA) 
Common area (COMMON) 
Compiler access method (CAM) 



$CGNCM 

CMIOOO 

CMPOOO 

CMNOOO 

CMUOOO 

CMLOOO 

CMO00CI 

CMCOOO 

CMSOOO 

CMVOOC) 

CMYOOO 

CMXOOO 

CMROOO 

CMKOOO 

CMDOOO 

CMAOOO 

CMWOOO 

Operation code table 



L 



Disk buffers 



INPUT: 

- Source file ($SOURCE). Source records are read 
from $SOURCE with disk data management. 

- Common Area (COMMON). This area remains in 
main storage from $CGNIN. 

- Operation Code Table. Contains information about 
all instructions supported by the processor. This 
table is divided into five sections, each of which can 
be accessed by means of pointers containing the 
address of the rightmost byte of the first mnemonic 
in that section. (Each pointer also contains a one- 
byte count of the number of mnemonics in the 
section.) 

1 . Section 1 , all one-character mnemonics. 

2. Section 2, all two-character mnemonics. 

3. Section 3, all three-character mnemonics. 

4. Section 4, all four -character mnemonics. 

5. Section 5, all five-character mnemonics. 

The operation code table is loaded with $CGNCM. 
It is included as input here because it is used by the 
phase as a model to which source records are compared. 
OUTPUT: 

- Intermediate text in the work file ($WORK2). 
Intermediate text records are written in $WORK2 
with disk data management. 

- Parameters stored in COMMON. 

1 . TITLEN, name from the first title statement. 

2. MODULE, module name from the start statement. 

3. SEQCNT, count of sequence errors. 

4. ESLCNT, count of ESL table entries. 

EXITS: 

- Normal: Control is passed to $CGNSB. 

- Error: Control is passed to the scheduler via Halt/ 
Syslog or EOJ transients. (See IBM System/3 Disk 
Systems System Control Program Logic Manual, 
SY21-0502.) 



Figure 3-2. Main Storage Map of $CGNCM 
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Branch 
table (2) 


Acceptable syn- 
tactical possi- 
bilities for 
V currently 
n. loaded 
\^ branch 
Notables* 1 ' 

Pos- \. 
sible ^v 
Expression* ' > 


Any non- 
syntactical 

(4) 
element 1 ' 


End of 
field 


Left 
parentheses 


comma 


Right 
parentheses 


1 


START 


Record element 
start. Load 
branch table 2 


Error 


Error 


Error 


Error 


2 


X 


Continue 


Compute and 
store element 
length return 


Compute and 
store element 
length load 
branch table 3 


Compute and 
store element 
length load 
branch table 1 


Error 


3 


X( 


Record element 
start. Load 
branch table 7 


Error 


Error 


Load branch 
table 4 


Error 


4 


X(, or 
X(X, 


Record element 
start. Load 
branch table 5 


Error 


Error 


Error 


Error 


5 


X(X,X 

or 

X(,X 


Continue 


Error 


Error 


Error 


Compute and 
store element 
length. Load 
branch table 6 


6 


X(X,X) 
or 

X(,X) 
orX(X) 


Error 

unless DC/DS 


End of 
operand, 
end of field 


Error 

unless DC/DS 


End of 
operand, 
not end of 
field 


Error 


7 


X(X 




Continue 


Error 


Error 


Compute and 
store element 
length. Load 
branch table 4 


Compute and 
store element 
length. Load 
branch table 6 


Notes: 

(1) Acceptable syntactical possibilities are listed across the top of the table. 

(2) Reading across from each Branch table number the action taken is indicated in the case of each syntactical 
possibility. (Example: In Branch table 1, only a non-syntactical element is acceptable. All other possibilities 
will cause an error bit to be turned on in the error record build areas. 

(3) For each Branch table number, the Possible expression column shows the format that the operand being tested 
will be in up to that point. 

(4) A non-syntactical element in an operand is a character or series of characters other than the parentheses and 
commas which form the syntactical elements. (Example: X(X,X) ... The Xs are non-syntactical elements.) 



Figure 3-3. Syntax Checking 
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Symbol Table Build Phase ($CGNSB) 

ENTRY POINT: SBIOOO - entered from $CGNCM or 

$CGNSF via Fetch. (See IBM System/3 Disk Systems 
System Control Program Logic Manual, SY21-0502.) 

MAIN STORAGE MAP: Figure 3-4. 

CHARTS: CA - CK 

FUNCTIONS: 

- Initializes phase for processing (SBIOOO — Chart CA). 

- Controls processing of the intermediate text file 
until end of data is found (SBPOOO - Chart CB). 

- Performs functions associated with phase termination 
(SBL000- no chart). 

- Performs $CGNSB processing of machine instructions. 
Symbols are placed in symbol table (SBM000 - 
Chart CO. 

- Test DC/DS specification for valid length and for 
duplication; stores symbol (if present) in table 
(SBD000 - Chart CD). 

- Performs $CGNSB processing of ORG and EQU 
statements (SBO000 - Chart CE). 

- Processes; START statements (SBS000 - Chart CF). 

- Processes; EXTRN statements (SBE000 - Chart CJ). 

- Updates location counter by object length of current 
statement (SBC000 - no chart). 

- Checks for overflow of storage (SBC000 - no chart). 

- Checks maximum location counter value (SBCOOO - 
no chart). 

- Evaluates all expressions in the operand field of the 
current source record (SBVOOO - Chart CG). 

- Performs multiplication calculations (SBXOOO — no 
chart). 

- Moves symbol and its attributes to symbol table 
(SBY000- Chart CH). 

- Counts symbols in table; controls calling of $CGNSF 
when table overflows (SBYOOO - Chart CH). 

- Searches symbol table for a given symbol (SBROOO - 
Chart CI). 

- Provides interfaces with data management for disk 
operations (SBW000, SBW010, SBW100 — Chart CK). 

INPUT: Intermediate text in $WORK2. 

1 . Name Records. Used to build symbol table. 

2. Control Records. Used to obtain lengths for 
location counter assignments and to assign symbol 
lengths, attributes, and values. 

3. Term Records. Used to obtain length allocation 
for DC/DS statements, location counter changes 
for ORG statements, and symbol length, 
attributes, and values for EQU statements. 

OUTPUT: 

- Symbol Table. Built in lower main storage and 
designed to fill all space between phase code and 
disk buffers. 



- Symbol Table Parameters in COMMON. Used by 
$CGNSF and $CGNSS to access symbol table. 

EXITS: 

— Normal: 

1 . Control is passed to $CGNSF on symbol table 
overflow. 

2. Control is passed to $CGNSS when last (or 
only) symbol table is processed. 

- Error: Control is returned to scheduler via Halt/ 
Syslog or EOJ transients. (See IBM System /3 Disk 
Systems System Control Program Logic Manual, 
SY21-0502.) 



Resident supervisor 



Communications area (COMARA) 
Common area (COMMON) 
Compiler access method (CAM) 



$CGNSB 

SBIOOO 

SBPOOO 

SBL000 

SBMOOO 

SBDOOO 

SBO000 

SBSOOO 

SBEOOO 

SBCOOO 

SBVOOO 

SBXOOO 

SBYOOO 

SBROOO 

SBWOOO 



Symbol table 



Disk buffers 



Figure 3-4. Main Storage Map of $CGNSB 
Symbol Table Overflow Phase ($CGNSF) 

ENTRY POINT: SFIOOO - entered from $CGNSB via 
Fetch. (See IBM System/3 Disk Systems System 
Control Program Logic Manual, SY21-0502.) 

MAIN STORAGE MAP: Figure 3-5. 

CHARTS: DA - DD 

FUNCTIONS: 

— Controls processing of the intermediate text in 
$WORK2 (SFP000 - Chart DA). 
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- Processes intermediate text term records, resolving 
all symbols defined in the current symbol table 
(SFT000 - Chart DB). 

- Tests name records for previously defined symbols 
(SFN000 - Chart DC). 

- Searches the symbol table for a given symbol 
{SFSOOO - no chart, but same as SBROOO in 
$CGNSB- Chart CI). 

- Provides interface for disk data management 
(SFW000 - Chart DD). 

INPUT: 

- Intermediate text in $WORK2. 

- Symbol table. 

- COMMON symbol table parameters. 
OUTPUT: All output is to $WORK2. 

1. Intermediate text. 

a. Symbols in the term records that are defined in 
the present symbol table are updated with the 
symbol's value and attributes. 

b. Name records containing previously defined 
symbols are updated with a previously defined 
symbol indicator. 

2. Symbol Table Entries. If a cross reference has 
been requested, all symbol table entries are added 
to the end of $WORK2. 

EXITS: 

- Normal: Control is passed to $CGNSB for continued 
symbol processing. 

- Error: Control is returned to the scheduler via Halt/ 
Syslog or EOJ transients. (See IBM System/3 Disk 
Systems System Control Program Logic Manual, 
SY2 1-0502.) 



Resident supervisor 



Communications area (COMARA) 
Common area (COMMON) 
Compiler access method(CAM) 



$CGNSF 

SFP000 
SFT000 
SFN000 
SFSOOO 
SFW000 



Symbol table 



Disk buffers 



Symbol Substitution Phase ($CGNSS) 

ENTRY POINT: SSI000 - entered from $CGNSB via 
Fetch. (See IBM System/3 Disk Systems System 
Control Program Logic Manual, SY2 1-0502.) 

MAIN STORAGE MAP: Figure 3-6. 

CHARTS: EA-EE 

FUNCTIONS: 

- Initializes phase for processing (SSI000 — Chart EA). 

- Controls phase processing (SSP000 - Chart EB). 

- Performs functions associated with termination of 
$CGNSS (SSL000 - Chart EC). 

- Tests term records for unresolved symbols and 
resolves those symbols in the current symbol 
table (SST000 - no chart, but same as SFT000 in 
SCGNSF - Chart DB). 

- Builds ESL table entries for valid EXTRN and 
ENTRY statements (SSE000 - Chart ED). 

- Adds EXTRN and ENTRY entries to ESL (SSU000 - 
no chart). 

- Searches symbol table for a given symbol (SSS000 — 
no chart, but same as SBROOO in $CGNSB - Chart CI) 

- Provides interface for disk data management (SSW000 
Chart EE). 

INPUT: 

- Symbol table in main storage. 

- Associated symbol table parameters in COMMON. 

- Intermediate text in $WORK2. 
OUTPUT: 

- All term symbols that are defined in the current 
symbol table are updated with their values and 
attributes in the intermediate text. 

- Symbol Table Entries. If a cross-reference has been 
requested, all symbol table entries are added to the 
end of $WORK2. 

- ESL table passed to $CGNPE. 

EXITS: 

- Normal: Control is passed to $CGNPE. 

- Error: Control is returned to the scheduler via 
Halt/Syslog or EOJ transients. (See IBM System/3 
Disk Systems System Control Program Logic Manual, 
SY21-0502.) 



Figure 3-5. Main Storage Mop of $CGNSF 
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Resident supervisor 



Communications area (COMARA) 
Common area (COMMON) 
Compiler access method (CAM) 



$CGNSS 

SSIOOO 

SSP000 

SSLOOO 

SSTOOO 

SSEOOO 

SSUOOO 

sssooo 
sswooo 

ESL table build area 



Symbol table 



L 



Disk buffers 



Figure 3-6. Main Storage Map of $CGNSS 

ESL Output Phase ($CGNPE) 

ENTRY POINT: PEI000 - entered from $CGNSS via 
Fetch. (See IBM System/3 Disk Systems System 
Control Program Logic Manual, SY2 1-0502.) 

MAIN STORAGE MAP: Figure 3-7. 

CHARTS: FA-FF 

FUNCTIONS: 

- Initializes $CGNPE (PEI000 - Chart FA). 

- Sorts, builds, and writes out ESL object records 
(PEP000 - Chart FB). 

- Prints the ESL table (PES000 - Chart FC). 

- Performs functions associated with termination of 
the phase (PELOOO - Chart FD). 

- Prints the printer listing header and counts pages 
(PEG000- no chart). 

- Provides interface for disk data management 
(PEW000 - Chart FE). 

- Provides interface for printer data management 
(PER000 - Chart FF). 

INPUT: 

- ESL table moved below phase end by $CGNSS. 

- Parameters in COMMON. 

1 . ESLCNT, contains a count of ESL table 
entries. 

2. MODULE, module name. 

3. TITLEN, TITLE name. 

4. ESLTBA, ESL table address. 



OUTPUT: 

- ESL object records are placed in the $WORK. 

- ESL table is sorted, then printed. 

- The following information is passed to $CGNPS 
via COMMON: 

1 . PAGCNT, current printer page size. 

2. LPSIZE, current printer line size. 

3. Other miscellaneous areas of COMMON are 
initialized. 

- Listing header in the printer communications area is 
initialized for the source/object listing done in $CGNPS. 

EXITS: 

- Normal: Control is passed to $CGNPS. 

- Error: Control is returned to the scheduler via 
Halt/Syslog or EOJ transients. (See IBM System/3 
Disk Systems System Control Program Logic Manual, 
SY21-0502.) 

WORKING STORAGE BLOCK: Contains all working 
storage and data constants that are required by 
$CGNPE and are not in the communications area. 



Resident supervisor 



Communications area (COMARA) 
Common area (COMMON) 
Compiler access method (CAM) 



Printer data management 



$CGNPE 

Printer DTF 
Header block 
Printer buffer 



PEI000 
PEP000 
PES000 
PELOOO 
PEG000 
PER 000 
PEW000 
Working storage 



Disk buffers 



> Figure 3-7. Main Storage Map of $CGNPE 
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Source/Object Output Phase ($CGNPS) 

ENTRY POINT: PSIOOO - entered from $CGNPE via 
Fetch. (See IBM System/3 Disk Systems System 
Control Program Logic Manual, SY21-0502.) 

MAIN STORAGE MAP: Figure 3-8. 

CHARTS: GA - Gl 

FUNCTIONS: 

- Initializes $CGNPS for processing (PSIOOO - Chart GA). 

- Controls processing of intermediate text file until end 
of data or end of file is reached (PSCOOO - Chart GB). 

- Searches for control records; puts error code in 
listing if any errors are found (PSK000 - no chart). 

- Performs functions associated with termination of 
phase (PST000 - Chart GC). 

- Puts object code in $WORK (PSHOOO - Chart GD). 

- Converts binary data to hexadecimal representation 
(PSX000- no chart). 

- Evaluates the expressions in the operand field of the 
current source record (PSEOOO - no chart, but the 
same as SBVOOO in $CGNSB - Chart CG). 

- Initializes PSZ000 at the start of the phase and for 
every ISEQ start request (PSYOOO - Chart GE). 

- Performs all editing of the print image required by 
the line printers: 132 column printer, 120 column 
printer, and 96 column printer (PSZ000 - Chart GE). 

- Controls page size of printed output (PSP0O0 - 
no chart). 

- Counts pages (increments page count parameter) and 
prints current header (PSGO00 - no chart). 

- Performs binary multiplication operations (PSM000 - 
no chart). 

- Processes machine instructions, translating them into 
object code (PSS000 - Chart GF). 

- Processes Group 1 instructions: DROP, ENTRY, EQU, 
ORG, START, USING (PSB000 - Chart GG). 

- Processes Group 2 instructions: DC, DS, EJECT, 
END, EXTRN, ISEQ, PRINT, SPACE, TITLE 
(PSAOOO - Chart GH). 

- Provides interface for printer data management 
(PSR000 - no chart, but same as PER000 in 
SCGNPE - Chart FF). 

- Provides interface for disk data management 
(PSW000- Chart Gl). 

INPUT: 

- SSOURCE 

- Intermediate text in $WORK2. 
OUTPUT: 

- Printer listing of the source statements and any 
object code generated by them if LIST is specified. 

- Object deck is placed in $WORK. 
EXITS: 

- Normal: Control is passed to $CGNBX if XREF, to 
SCGNSX if NOXREF. 



- Error: Control is passed to the scheduler via Halt/ 
Syslog or EOJ transients. (See IBM System/3 Disk 
Systems System Control Program Logic Manual, 
SY21-0502.) 

WORKING STORAGE BLOCK: All required working 
storage that is not in the communications area 
resides in this block. 

CONSTANT BLOCK: The constant block is loaded into 
the area immediately following the initialization 
routine (PSIOOO); it is moved into COMMON when 
the phase is initialized. 



Resident supervisor 



Communications area (COMARA) 
Common area (COMMON) 
Compiler access method (CAM) 



Printer data management 



Printer DTF 
Header block 
Printer buffer 



$CGNPS 

PSIOOO/working storage* 

Constant block 

PSCOOO 

PST000 

PSK000 

PSHOOO 

PSX000 

PSEOOO 

PSYOOO 

PSZ000 

PSP000 

PSG000 

PSM000 

PSS00O 

PSB000 

PSAOOO 

PSR000 

PSW000 



Disk buffers 



"PSIOOO and its associated constant block occupy the same 
storage as $CGNPS working storage. 

Figure 3-8. Main Storage Map of $CGNPS 
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Build Cross Reference (XREF) File Phase ($CGNBX) 

ENTRY POINT: BXIOOO - entered from $CGNPS via 
Fetch. (See IBM System/3 Disk Systems System 
Control Program Logic Manual, SY2 1-0502.) 

MAIN STORAGE MAP: Figure 3-9. 

CHARTS: HA--HF 

FUNCTIONS: 

- Initializes phase for processing (BXIOOO - Chart HA). 

- Controls the building of the XREF sort file (BXP000 - 

Chart HB). 

- Performs functions associated with termination of the 

phase (BXL000 - Chart HC). 

- Moves records from the work area to the XREF file 
build area (BXMOOO - Chart HD). 

- When XREF file build area is full, branches to BXSOOO 
for sorting, then branches to BXW100 to write blocks 
to the XREF sort file (BXMOOO - Chart HD). 

- Sorts the contents of current block in XREF sort 
file build area (BXSOOO - Chart HE). 

_ Provides interface for disk data management 
(BXW000 - Chart HF). 

INPUT: 

- Intermediate text contained in $WORK2. 

- Symbol tables contained in $WORK2. 
OUTPUT: 

- XREF sort file. 

- COMMON fields: 

1 . XRPIMG, print image area blanked. 

2. XRBLKC, count of blocks in sort file. 

3. XRPASC, count of passes required to merge 
the file. 

4. XRFRST, relative sector address of first block 
in file. 

5. XRLAST, relative sector address of last block 
in file. 

6. XRAVL1 , sort file availability table is cleared. 

- Listing header area is initialized for cross reference 
listing. 

EXITS: 

- Normal: Control is passed to $CGNSX. 

- Error: Control is returned to the scheduler via 
EOJ. (See IBM System/3 Disk Systems System 
Control Program Logic Manual, SY2 1-0502.) 



Resident supervisor 



Communications area (COMARA) 
Common area (COMMON) 
Compiler access method (CAM) 

Printer data management 



Printer DTF 
Printer buffer 
Header block 



$CGNBX 

BXIOOO 
BXP000 
BXL000 
BXMOOO 
BXSOOO 
BXW000 
Constant block 
Working storage 



Disk buffers 



Figure 3-9. Main Storage Map of $CGNBX 



Merge and List Cross Reference Phase ($CGNSX) 

ENTRY POINT: SXI000 - entered from $CGNBX via 
Fetch. (See IBM System/3 Disk Systems System 
Control Program Logic Manual, SY2 1-0502.) 

MAIN STORAGE MAP: Figure 3-10. 

CHARTS: IA-IE 

FUNCTIONS: ^ 

- Initializes phase for processing (SXI000 - Chart IA). 

- Controls the merging of the XREF sort file (SXS000 - 

Chart IB). 

- Controls the moving of records from the input areas 
to the output area (SXO000 - Chart IC). 

- Controls the writing and chaining together of output 
strings and the reading of chained input strings 
(SXO000 - Chart IC). 

- Creates the XREF listing at the last pass of the sort 
file merge (SXL000 - Chart ID). 

- Performs functions associated with termination of 
the phase (SXT000 - Chart IC). 

- Provides the interface for reading to and writing 
from the sort file (SXW000 - Chart IE). 
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- Prints the header for the printer listing and counts 
pages (SX G000 - no chart ) . 

- Controls page size of printed output (SXPO00 - 
no chart). 

- Converts binary numbers to decimal (SXVOOO - 
no chart). 

- Provides interface for printer data management 
(SXROOO- no chart). 

INPUT: 

- XREFfile. 

- COMMON parameters: 



1. 
2. 
3. 

4. 
5. 



XRPIMG, print image area blanked. 

XRBLKC, count of blocks in file. 

XRPASR, number of passes required to merge 
file. 

XRFRST, C/S address of first block in file. 
XRLAST, C/S address of last block in file. 



- Listing header in block. 
OUTPUT: 

- Cross reference listing. 

- Error summary statements of error counts 
EXITS: 

- Normal: 



1. 



2. 



If object output exists, control is passed to 
SOLYNX of the Overlay Linkage Editor. (See 
IBM System /3 Overlay Linkage Editor and 
Checkpoint/Restart Programs Logic Manual 
SY2 1-0530.) 

If no object output exists, control is returned 
to the scheduler via EOJ. (See IBM System/3" 
Disk Systems System Control Program Logic 
Manual, SY2 1-0502.) 



WORKING STORAGE BLOCK: All required working 
storage not in COMMON resides in this block 

CONSTANT BLOCK: All required constants that are not 
in COMMON reside in this block. 



Resident supervisor 



Communications area (COMARA) 
Common area (COMMON) 
Compiler access method (CAM) 



Printer data management 



Printer DTF 
Printer buffer 
Header block 



SCGNSX 
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Working storage 



Disk buffers 



Figure 3-10. Main Storage Map of $CGNSX 



Compiler Access Method (CAM) 

ENTRY POINT: CAM001 - can be accessed through 
COMARA by any phase (CAM resides in $CGNIM) 
^CHART: JA 
^FUNCTIONS: 

- Retrieves up to 255 sectors at a time according to 
a library relative sector number. 

- Loads up to 255 sectors at a time according to a 
binary relative sector number. 

INPUT: $SOURCEand$WORK2. 
OUTPUT: $WORKand$WORK2. 
vEXIT: Returns to caller. 
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INI 000 

* ENTER * 

* 



* COHPOTE FILE * 

* BLOCK SIZES * 

: 
***#************* 



» SEE BOTE 
*«*«*C1«»*****J*J| 

* *S$OPEH OPEN* * 

* *THE SOURCE * * 

* * FILE * * 

***************** 



LOGIC MHIuAL, SYZl-tm* 



*»**«D1***«*****J 

:»S*"FoI°giS E ; 

: * 

«*+************** 



««»*»E1********** 

« PREPARE «OHK * 

* DTP FOR cm * 

* * 

*,*»***»***«****** 



***»*F1*«******** 

JpREPMIE 2 B JfS T 1 

* DTP FOR CM * 

* * 
»«****»*»******** 



***#Gl*** ****** 

* * 

* EXIT * 

* * 
»**»***»******* 



Chart BA. $CGNIN Initialization Routine (INIOOO) 
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CHIOOO 

t ****Ai********* 
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* * 
**** 
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* FIELD * 

* + 
******* ********** 



*****ni******'*Jf(, 1 
jcbyooo * 

•decode operand"* 

* SYNTAX * 

t**************** 1 



S Y NT » X 

ERROP 



MACHINE 
OPERA'TON 



* WO 
I 

**** 

* * 

* A3 * 

* * 
**** 



***,. 02 ,„!iS,S»»ST 

jcntmoo * 

->« WRITE CONTROL"* 
* RECORD * 

************** 



I**** 
* * 

->* CI * 



*CBA000 * 

* — * 

* PPOCESS * 

* SSSEt1»LER * 

i..IHlS UCT ioN * 

***************** 



CBP010 **** 

****F2********* 

* * 

* ENTEP * 

* 
*************** 



NO .* ANY 

ER503S 



r*v 



**** 
* * 

* F5 * 

* * 
**** 



!-->* E5 * 

* * 

**** 



*****EU*********J T 
*CBUO0O * 

->*l'Rirp CONTROL/"*- 
* NAHF RECORD * 
**************** J 



***..p,...I£,Ji!JJ T 

*C«0O0 * 

->* TEST OPERAND""* 
J FORBAT * 

***************** 



*...* GI1 ,i,si°*jsjr 

JCBR00O * 

* FIND * 

* TNST»(JCTTO» * 

* „ LENGTH * 
***************** 



..... HI) ..*I!S,S,,J T 

•cBnooo * 

••RITE CONTROL/"* 

* »ABE RECORDS * 

* * 
***************** 



*****j» ******;*;*■'' 

•CBK000 * 

-*ONPACK"oPERA?D"i 

* FIELD * 

* * 
***************** 



CBEOOO 

****D5********* 
1 * 

* EN^EP * 

* * 
*************** 

**** 

* * 

* ^5 *-> 

* * 

**** 

*«***E5********** 

... si "JTJ ERROR * 
>* RECORD * 

* 

***************** 

**** I 

* * 

* FS *-> 

* * 
**** if 

CMP050 .*„ 



EVD *. mo 

STATEMENT !*----, 
.* I 



**** 

* * 

* C1* 

* * 
**** 



****G5********* 

* EXIT * 

* * 
*************,!,* 

TO: CML000 ROUTINE 
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CHYOOO 

****&1 ********* 

* * 

* ENTER * 

* * 
*************** 



*****B1 ********** 



* INITIALIZE 



**********#**«*** 



*****C1 ********** 



*SET POINTERS TO* 
* OUTPUT TABLES * 



***************** 



*****D1 ********** 



**** 

* * 

* B2 * 

* * 
**** 



*****B 2** ******** 



SAVE ELEMENT 
ST.RBT 



***************** 



*****C2********** 



LOAD BRANCH 
TABLE 2 



***************** 



***** 

♦ 002* 

* GH* 



* R3 * 

* * 
**** 



*****B3********** 



♦INDICATE A 
* ELEMENT 



***************** 



*****C3********** 



♦COMPOTE ELEMENT* 
* LENGTH * 



***************** 



***** 

♦ 002* 

* B4* 

* * 



**** 

* * 

* DU * 

* * 
**** 

I 

*****5U ********** 

* * 
♦INDICATE L OB I* 

* ELEMENT * 

* * 

* * 
***************** 



*****CU ********** 



*CO«PUTE ELEHFNT* 
* LENGTH * 



***************** 

1 

**** 

* * 

* F3 * 

* * 
**** 



**** 

* * 

* R«i * 

* * 
**** 



***** B 5********** 



* SAVE ELEMENT 

* START 



***************** 



*****C«5* ********* 



LOAD BRANCH 
TABLE 7 



***************** 



***** 
*002* 
* G«* 



LOAD BRANCH 
TABLE 1 



***************** 



***** E 1********** 

* * 
*SET POINTER TO * 

* OPERAND FIELD * 

* * 

* * 
***************** 

**** I 

*002* 

* G« *-> 



GO TO 
LIHE N OF 

CURRENTLY 

LOADED 

BRANCH 

TABLE 



ANT OTHER 
CONDITION 


ILINE 


1 


END OP 
FIELD 


ILINE 


2 


LEFT 
PARES 


ILIIIE 


3 


COMMA 


|LIHE 


» 


RIGHT 
PAREN 


ILIIIE 
1 


5 



BRANCH TABLE 1 



LINE (CHART 
NDMBER |REF 



| 01-B2 



| 02-G2 



| 02-G2 



I 02-G2 



02-G2 



BRANCH 


TABLE 2 


LINE 
N0MBEB 


ICHART 


1 


| 02-GU 


2 


| 01-B3 


3 


| 02-B1 


D 


| 01-B3 


5 


I 02-G2 



**** 

* * 

* P2 * 

* * 
**** 



*****F2********** 



* INDICATE E 

* ELEMENT 



***************** 

I**** 
* * 

L _>* g^ * 
* * 

**** 



BRANCH 


TABLE 3 


LINE 
NUMBER 


ICHART 
(REF 


"l | 01-B5 


2 


I 02-G2 


3 


I 02-G2 


H 


| 01-F3 


5 


1 02-G2 
1 J 




BRANCH 


TABLE U 


LINE 

NUMBER 


ICHART 

IBEE 


1 


| 01-EU 


2 


I 02-G2 


3 


| 02-G2 


II 


I 02-G2 


5 


I 02-G2 



* F3 * 

* * 
**** 



*****F3******** 



LOAD BRANCH 
TABLE U 



**************** 



V 

***** 
*002* 
* G«* 



BRANCH 


TABLE S 


LINE 
[NUMBER 


ICHART 
|PEP 


j 1 | 02-GU 


2 


| 02-G2 


3 


I 02-G2 


"t 


| 02-G2 


5 


I 01-"2 
I J 



BRANCH 


TA3LE <i 


LINE 
I NUMBER 


ICHART 
|»EF 


1 | 02-R2 


2 


| 02-BU 


3 


| 02-B3 


y 


| 02-BU 


5 


I 02-G2 
1 j 



*****F4 ********** 



* SAVE ELEMENT 

* START 



***************** 



*****p(4 ********** 



LOAD BRANCH 
TABLE 5 



***************** 



V 

***** 
*002* 
* GU* 

* * 



BRANCH 


TABLE 1 I 


LINE 
N1MBER 


ICHART 

|ref 


1 | 02-GU 


2 


| 02-G2 


3 


| 02-G2 


It 


| 01-B1 


5 


1 01-^5 



**** 

* * 

* E5 * 

* * 
**** 



*****F5* ********* 



♦INDICATE L OP I* 

* ELEMENT * 



***************** 

**** 

* * 

* G5 * 

* * 

**** 

*****G5* ********* 

♦COMPUTE ELEMENT* 

* LENGTH * 

: : 

***************** 



*****H5**** ****** 



LOAD BRANCH 
■TABLE 6 



***************** 



***** 
*002* 
* Gt* 
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***** 
*001* 
* K1* 

* + 



***** 
•001* 
* K 1 * 

* * 



***** 
*001* 

* K3* 
* * 



1-C3 

***** 

*001* 
* K3* 

* * 



*****B1 ********** 



INDICATE D 
ELEBENT 



***************** 



*****C1 ********** 



♦COBPUTE ELEHENT* 
* LENGTH * 



***************** 

**** 

* * 

* D1 *-> 

* * 
**** 

*+**+D1 ********** 

* 4 

* LOAD BRANCH * 

* TABLE 3 * 

* * 

* * 
***************** 



.1. 



. YES 

* — --, 




*" 




" * 


YES 




* 


* *. 

OPERAND * 


**** 

YES * * 


1 

V 




D . 
*. 

*, * 
*. .* 


* 


*..., 


* 


* 


"ABLE FULI 

*. .* 
*. . * 
* HO 


* >* r,2 * 

* * 


*** + 
* * 




* NO 




**** 








* D1 * 

* * 










* m * 

* * 






] 

t 




+ *** 






' 




***+ 






! 





D5 


* 
* 


YES 
* , 

I 


* 


* 

* 




DS 


"*. YES 
*" 1 


.* 
*. . * 




I 






* 


* * 
*. .* 


4 


* NO 




**** 








* fO 


I 




* + 








1 


* * 


I 

**** 
♦ * 




* D1 * 

* * 








1 

**** 
* * 


* D1 * 

* * 


* G2 * 

* * 












* G2 * 

* * 




**** 












**** 





*****Cq ********** 

* * 

* * 

♦COUNT OPERANDS * 

* * 

* * 
***************** 



*****D(t ********** 



*NOVE IN OPFPAND* 
* FORBAT * 



***************** 



END OF *, 


YES 


OPERAND 


*- — -, 


FIELD . * 


1 


.* 




*. .* 


V 


* VO 


**** 




* 




* H2 



01-H1*****01-HK 
01-H2*001*01-K1 
01-H3* K3*01-K2 



***** G 2* ********* 



SET SYNTAX 

ERROR 



***************** 

**** 

* * 

* H2 * 

* * 
-**** 

+***H2* ******** 

* * 

* EXIT * 

* * 
*************** 

TO: CHP000 



**** 

* * 

* GU *— 



*****pb ********** 



LOAD BRANCH 
TABLE 1 



***************** 

01-C2**** 

01-C5*001* 

01-P3* HI *-> 

01-F1I* * 

01-H3**** 

01-HH 

01-H5*****GI* ********** 



* INCREMENT * 
>* POINTER TO * 

* OPERAND * 

* * 
***************** 



***** 
*001* 

* PI* 
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CH (1000 

****A1********* 

* * 

* ENTER * 

* * 
*************** 



OPEBSND 
BEQOT5ED 



V 
-*. 

C1 ♦. 

* * 
OPERAND 

PRESENT 



. * 
, .* 

* YES 



****+ c 2* ********* 

* * 

* SET EFBOF. * 
->* INDICATOB FOB *- 

* NO OPERAND * 

* * 
***************** 



***** 

• 003* 

* B1* 
* * 



V 

***** 

*003* 
* B1* 

* * 



.* *. YES 
*. EXTBN .* 



*****F2*** ******* 

* + 

* * 
->* PROCESS EXTRN * 



L 



. * VALID *. HO 
OPERRRD .***- 

*. FOKBftT . * 



***************** 

**** 

* * 
->* BU * 

* * 
**** 

***#*G2********** 

* * 

. * SET EPHOB * 

->* INDICATOR FOR * 

♦INVALID OPEBAND* 

* * 
***************** 



EUU . — 

• * 1 

*. .* V 



***** 
*002* 
* B1* 

* * 



*****J1 ********** 

* * 

* * 
*PFOCESS EQUATE * 

* * 

* * 
***************** 



*****H2* ********* 



SET ERROR 
SWITCH 



***************** 

I 

**** 

* * 

* B4 * 

* * 
**** 



*****02-^2 02-F2 

*00U*02-B5 02-F1 

* C2*02-C2 02-G2 

* * 02-C^ 02-H2 

* 02-E2 03-K4 

02-E1 



CHA160 7 NO CFABT 

*****QH+********* 

*c«nooo * 

* — , , * 

[->* H^T^E CONTROL * 
* DANE RECORD * 
• * 

***************** 
** I 



* BU * 

* * 
**** 



3 .* SPECIAL 
*. TERN FIELD 



" BH/01/C1 

*****Dtt ********** 
*C»8020 * 

* * 

* VRTTE SPECIAL * 

* TERM FIELD * 

* * 
***************** 

- >! 



ANT *. YES 
ERBORS .* 



.* OPEBSND *. NO 
DNPACK .* — 
♦.REQUIRED .* 



BE/01/B2 
*****G4 ********** 

*CRKO00 * 

* *-* 

♦ONPACK OPERAND * 

* FIELD * 

* * 
***************** 



****F5********* 
* * 

.>* EXIT * 



*************** 

TO: CHE000 



. .* 

* NO 



V 
***** 
*005* 
* A1* 

* * 



****Jft ********* 

* * 

* EXIT * 

* * 
*************** 



**** 

* * 

* BH * 
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***** 
♦001* 
* H1* 



*#** 

* * 

* pq * 

* * 
**** 



. * 

*. .+ 
* NO 



*****B2*********+ 



* PROCESS USING + 
->* INSTRUCTION *- 



***************** 



*****C2* ********* 



* PHOCPSS ORG 
->* INSTRUCTION 



***************** 



V 

***** 

♦001* 

* TJU* 

* * 



V 
***** 
*001* 
* BO* 

* * 



. * 
■ .* 
* MO 



*****B5 ********** 



PROCESS END * 

INSTRUCTION * 



***************** 



***** 
+001* 

" BH* 



*****C^* ********* 



* PROCESS STftPT * 
>* INSTRUCTION * 



***************** 



*. . + 
* NO 



*. . * 
* NO 



*• . * 
* NO 



*****D2* ********* 



* PROCESS TTTLE * 
->* INSTRUCTION *- 



***************** 



***** E 2********** 



* PROCESS SPACE * 
> + INSTRUCTION *- 



***************** 



***+*p 2********** 

* * 

* * 
->* II3NOPE EJECT *- 

* * 

* * 
***************** 



*****G2* ********* 



* PPOCESS PRTVT * 
->* INSTRUCTION *- 



***************** 



*****H2********#* 

* * 

* * 
->* PROCESS ENTRY *- 

* * 

* * 
***************** 



***** 
+O0K* 
* Dtt* 

* * 



V 
***** 
•001 + 
* aft* 



V 

***** 

+ 001* 

+ B1* 

* * 



V 
***** 
*001* 

• nil* 

* + 



***** 
*001* 
* BU* 

* * 



***** EH ********** 



***************** 



*****p[) ********** 



* PROCESS DSO" » 
>* IVSTBOCION * 

« » 

* * 

I 




4 

***** 

♦ 001* 

* BU* 

* * 





***** 
♦001* 
* B«* 



***** 
+001* 

* an* 



**** 

* * 

* B4 * 

* * 
**** 
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*****PU ********** 
**** * * 

* * * SEARCH TO * 

* UK * >*FYPBESSION KFD * 



CMOUt 



*001* 

* El* 

* * 



ONE 

OPERAND 



***************** 



* VALID 

expression 



V 

***** 
*004* 
* B2* 

* * 



*****C1 ********** 

* * 

* * 

* SEARCH TO 1 * 

* * 

* * 
***************** 



D1 



*. 



L FOUND 

"*. .*" 

*. .* 

YES 



**** 
+ * 
* OK * 



V 

***** 
*00K* 
* B2* 



V 

***** 

• 00 n* 

* B2* 



****«ra********** 

» * «*** 

* SAVE EXPRESSION* * „ * 

* START AND * >* G» * 

* LENGTH J *„„* 

***************** 



*****DI4********** 

* * 

* SEARCH TO * 
->* LENGTH FIELD * 

* END * 

* * 
*#**+****+******+ 



El *. 
. * *• 

VALID *. 
TYPE CODE ." 



V 

***** 

• 004* 

* E-2* 



VALID 

LENGTH 
FIELD 



***** 

♦ 00 II* 

* B2* 



*****F1 ********** 



SAVE TYPE IN 
TEFn RECORD 



***************** 



*****plt********** 

* * 

* SAVE LENGTH * 
*FTELD STA»T AND* 

* LENGTH * 

***************** 



*****G2******** 



* *. NO * 

*". DUPLICATION .* >*SET VALUE TO 1 ♦ 

*. FIELD .* * J 



**** 

* * 

* f^H *- 

* + 
**** 



***************** 



NO CHART 
*****H1 ********** 
♦CBV000 * 

* * 

* CONVER? TO * 

* BINARY * 

* * 
***************** 



/DS 




V 


* 




***** 


. * 




♦ 004* 


* DS 
1 




* 11* 

* * 



, * VALID * 
. DUPLICATION 
*. FACTOR .* 



***** 

*oou* 

* 32* 



f" 

***** 

♦004* 
* E2* 



***** 
*00"* 
* F1* 

* * 



.* &T * 

-*. OPFPAND END 



* YES 

I 
I 



*****j ((********** 



SET SPECTM, 
TF*"1 SWITCH 



***************** 
I 
I 



K1 *. 
* *. +*** 

.*PX°PESSION *. YDS * * 

FOP •* >* k 1 * * 

*. IEHG7H .* ****** 



*****jrti*** ******* 



*SET ""HS TtJJPACK * 
* SWITCH *~ 



***************** 



***** 

*0r>l* 
* nu* 

* * 



**** 

* * 

* D4 * 

* * 
**** 
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***** 
*003» 
* s«* 



CONSTANT 
. FIELD 



**• * *C 1 ********* * 



* TEST CONSTANT * 

* FIELD SYNTAX * 



***************** 



.» FORIIAT 
*. VALID 



**+**E1 ********** 

* * 

* SAVE CONSTANT * 
•FIELD STAPT AND« 

* LENGTH * 

* * 
***************** 



***** 
*003« 
* JO* 

* * 



***** 

*003*03-"1 

* Jl*03-B1 

» * 03-D1 

* 03-E1 

I 03-Et 

I 3-Bft 



*****B2********** 



SET EPROR 
INDICA^O? 



***************** 



*****C2********** 



SET ERROP 
SWITCH 



***************** 



***** 
*001* 
* B<l* 

* * 



***** 
*00°* 
* PI* 



VALID 
OPERAND 



*****ca ********** 



•PUT A CHARACTER* 
* IN RECO»D * 



***************** 



MORE 
DATA 



V BH/01/C1 
*****FH ********** 

•caf020 * 



•WRITE A RECORD * 
* * 

***************** 



*****B 5**** ****** 

* * 

* * 
->* SET ERROR BIT * 

+ * 

* * 
***************** 



+***C5 ********* 

* * 

* EXIT * 

* * 
*************** 

TO:CNE000 



•CNV020 * 



♦WRITE A RFCOPD * 
* * 

***************** 



****E5********* 

* * 

* EXIT * 
» * 

*************** 

TO:C«P0U0 
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A1 *.. 
.* * 

.* ADDRESS 
->*. CONSTANT 
*« 

*. . * 



**** 



* " * 

>* EXIT * 

* 
*************** 

TO: CSPOUO 



* * 

♦ 001* 

• HI* 
***** 



* A2 * 

* * 
**** 



B1 *. 

.* *. 

CHARACTER 

"*. .*" 

*. . * 
* HO 



CI *. 

* * 

INTEGER 



***** 
*00U* 
* 81* 

* * 



NO CHAP.T 
*****C 2* ********* 
♦CHVOOO * 



* ISO 



D1 *- 

* * 

DFCTHPLL 



***************** 



I ***# 

* * 



J1 
**** 



**** 

*. YES * * 

o * — .->* ER * 



* HO 



**** 

* * 
— >* ?3 * 

* + 

**** 



*****F1 ********** 



♦CONVERT HEX TO * 
* BINARY * 



***************** 



PECOFiD 
PULL 



M0R1£ 
DATH 



#****P3+*******+* 
**** * * 

* * *comvp,pt ftnapy * 

* f t * >* 'constPiN^ * 

* * A * * 
**** * * 

***************** 



EH/01/C1 
*****q 2* ********* 

*cnw020 * 



♦ WFTTF. A RECORD * 

* * 
***************** 



r 



*****£5***« ****** 

**** * * 

* * *CONVPPT DECIMAL* 

* F ^ * — ~_>* CONSTANT * 

* * ft * * 
**** * * 

***************** 



BH/01/C1 

*****<3U********** 

*C"*W020 * 

* * 

>* * 

*WPTTE A RECOPD * 
* * 

******* ********** 

I 



V PH/01/C1 

*****£ c;***# ****** 

*C"PW020 * 



*WRITF A RECORD * 
* * 

***************** 



HS * 
* 

MOPE 



**** 

* * 

* J1 *-> 

* * 

**** 

" BH/01/C1 
*****j1 ********** 

♦CKH020 * 

* "WRITE LAST * 

* RECORD * 

* * 
***************** 



**** 
1 * * 
U>* A2 * 



.* HIGH *- NO 

*. ORDE nYTE .* 

*. .* 



L->* Jl * 

* * 
*** * 



BF/01/C1 

*****j^ ft* ******** 
*C«PO?0 * 



*KPTTP A RECOPD * 
* * 

***************** 



1**** 
* * 

->* .71 * 



**** 

* * 
->* J1 * 

* * 
**** 
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CUKOOO 




****P2* ******** 

* 


* EH 


"FR 


*************** 


*** + 




* * 




* 132 *-> 





** «**p 2* ********* 

* * 
*GET FXPPESSION * 
♦STARTING COL"MN* 

* AND LENGTH * 

* # 
*>c***^*** ******** 

*#** 

* * 

* C? * 

* * 
**** 

*****C 2* ********* 

* * 

* SEARCH FOR * 
**,+»-, OR BLANK* 

* AFTER TE"H * 

* * 
***************** 



* VALID 

ARITHMETIC 
*. SYNTAX . 



V BF/01/A1 
***#*E2********** 
*CHDOOO * 

* * 

* CREATE A TERM * 

* RECORD * 

* * 
***************** 



* * 

* + 

->* SET ^PPOH * 

* * 

* * 
***************** 



****£3********* 

* * 

* EXIT * 

* * 
*************** 

TO: TMEOOO 



.* END OF *. NO 
*. EXPRESSION .* . 



* *** 

* * 

* C2 * 

* * 

** + * 



END OF *„ NO 

OPERAND .* 1 

FIELD 



ID .* ( 



**** 

* * 

* *>2 * 

* * 

**** 



*++*H2********* 

* * 

* RETURN * 

* * 
*************** 
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CNDOOO 

****A 1********* 

* * 

* ENTER * 

* * 
*************** 



***+*B1 ********** 

* DETERMINE HMD * 

* SET SIGN * 

* INDICATORS * 

* <+,-, OB *) J 

***************** 



*****32********** 

* * 

* * 

* SET ERROR *- 

* * 

* * 
***************** 



C1 *. 

.* CHAR, *. 
.* HEX. OR *. YES . « 

*. BINARY SELF .* >*. 

*. DEFINING .* ' 

♦.TERM .* 
*. .* 
* NO 



DECIMAL 
NUMBER 



. + 
* NO 







***# 














* 


* 












* G 1 


* 












* 


* 












**** 










NO 




































k*#*C3***$****** 


* * 








* 


PUT VALUE AND * 


VALID 
SELF 


* 


YES 




* 


ATTRIBUTES IN * 
TERH RECORD. * « 










DEFINING 


# 






* 


SET IMPLIED * 1 


*. . * 








* 


LENGTH TO 1 * 


*. .* 








+4*************** v 


* 








* 

* 
* 

* 


**** 
**** * * 

* * J1 * 
D3 *---. * * 

* | ***# 
**** V 

*. 
D3 *. 
. * *. 
* VALID *. YES 

DECIMAL .* 














*. NUMBER .* 



**** 

* * 

* D3 * 

* * 
**** 



LOCATION 
COUNTER 

.REFERENCE. 



*****pi* ********* 

* * 

* SET XREF * 
♦POSSIBLE CHANGE* 

* INDICATOR * 

* * 
***************** 



V 

. *. 

G1 *. 

* * 

IS 

SYMBOL 

VALID 



*****H1 ********** 

* * 
•PUT SYMBOL AND * 

* ATTRIBUTES IN * 

* TERH RECORD * 

* * 
***************** 

**** 

* * 

* Jl *-> 

* * 
**** 

. *. 
J1 *. 

.* LAST *. 
.* TERH IN 
*. EXPRESSION 



* BO 

L— 



****+E2********** 

* SET LOCATION * 

* COUNTER * 
-PREFERENCE. SET * 

♦IMPLIED LENGTH * 

* TO 1 * 
***************** 



< #*** 

* * 
U>* J1 * 

* * 
**** 



**#**g 2* ********+ 

* * 

* * 
->+ SET ERROR *- 

* * 

* * 
***************** 



*****j2********** 



* SET LAST TERM * 
*>* <?IT INDICATOR *- 



*****Dtt********** 

* PUT VALUE AND * 

* ATTRIBUTES IN * 
>* TERM RECORD. *- 

* SET IMPLIED + 

* LENGTH ^O 1 * 
***************** 



**** 

* * 

* J1 * 

+ * 
**** 



*****E3********** 
+ * 

* * 

* SFT ERROR * 

* * 

* * 
***************** 

**** 
I * * 
L->* g3 * 

* * 
**** 



BH/01/D1 

*****Q3********** 

♦CMW030 * 



>* WRITE ERROR 

A * RECORD 



! : 

*+** 

* * 

* G3 * 

* * 
**** 



***************** 



**** 

* * 

* Jil * 



BH/01/C1 

*****J3********** 
*CHW020 * 



***************** 



***************** 



****jU********* 
* * 

>* RETURN * 

A * * 

■ *************** 

**** 

JU * 
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CM, 000 

****IH**** + ** + * 

* E^EP * 

* * 
*************** 



V 

* t 
*SET MSSING EHE* 

* EWPOP * 



***************** 



*****cu ********** 



•SET MODULE NH«E* 
->* HISSING E»»01 « 



***************** 



*****D3********* 
* 

* SET END OF 

* SOURCE 

* INDICATOR 
* 
**************** 



V 50 CHART 

*****p}**** ****** 

•cnuooo * 

* * 

* WRITE LAST * 

* PECOPD * 

* * 
***************** 



1 ja/ovai 

*****F3********** 
*CAH00'1 * 

* * 

* NBTTE LAST * 

* BLOCK TO WORK * 

* * 

***************** 



I SEE NOTE 

++**G3********* 

* * 

* EXIT * 

* * 
*************** 

FETH: ICGNSB 



FETCH IS IM IBS SYSTEH/3 DISK SYSTEMS 

SYSTEM CONTBOL PROGRAM LOGIC MANUAL, SV21-0502 
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cnnooo 

****R 1+**** **** 

* * 

* ENTER * 

* * 
*************** 



CBWOIO 

****B 1********* 

* * 

* ENTER * 

* * 
*************** 



CBW020 

****C1********* 

* * 

* EHTEB * 

* * 
*************** 



CHH030 

****D1 ********* 

* * 

* ENTER * 

* * 
*************** 



+***K1********* 

* * 

* RETURN *<- 

* * 
*************** 



*****A ?********** 



*BOVF IH CONTROL* 
>* RECORD *- 



***************** 



*****B 2* ********* 



* !10VE IN NAME 
->* RECORD 



***************** 



*****C2********** 



*****p 3 ********** 



CLEAR Tin HE 
RECORD 



***************** 



* MOVF III TEEM 
->* RECORD 



***************** 



*****D2* ********* 



CMH100 

****B«******** 
* 

* ENTER 
* 

****** ******** 



*****£[)********** 

* * 

* * 

*SET UP LINKAGE * 

* * 

* * 
***************** 



* HOVE IN ERROR * 
->* RECORD *- 



***************** 



*****E 2* ********* 

* * 

* * 
*SET OP LINKAGE *<- 

* * 

* * 
***************** 



*****P3 ********** 

* * 

* CLEAR ERROR * V 
->* RECORD * 



***************** 



WRITE A 
BLOCK IN 
. PROCESS 
*. .* 



*****G2********** 



* PUT RECORD IN * 

* CURRENT BLOCK * 



***************** 



BLOCK 
FULL 



JA/01/A1 

#****F3********** 

*CA1001 * 
* . -* 

->* WAIT FOR J 

* CURRENT WRITE * 

* * 
***************** 



PEFMAKENT 
. ERROR . 



SEE NOTE 1 

****H3*+******* 

* " * 

* EXIT * 

* * 
*************** 

TO: EOJ 



* JA/01/A1 

***** j 2* ********* 
*CAM001 * 



* WRITE FLOCK * 

* * 
***************** 



. * READ A *. YES 

. BLOCK IN .* 

*. PROCESS .* 



*****EK ********** 

* * 

* GET A RECORD * 
*FPOB THE BLOCK * 



***************** 



" JA/OVA1 

*****GH ********** 
♦CAH001 * 



* READ A BLOCK * 

* * 
***************** 



END OF 
FILE 



JA/01/A1 
*****D 5 ********** 
•CAM001 * 

* • --* 

->♦ WATT FOR * 

* CURRENT READ * 

* * 
***************** 



PERMANENT 
ERROR . 



SEE NOTE 1 

****y5********* 

* * 

* EXIT * 

* * 
*************** 

TO: EOJ 



SEE NOTE 1 

****H5********* 

* * 

* EXIT * 

* * 
*************** 

TO: BALT/SYSLOG 



SEE NOTE 1 
****K3********* 



****J(|+******** 

* * 

* RETURN * 

* * 
*************** 



NOTE V EOJ AND HALT/SYSLOG ABE IN IBM SYSTEM/3 DISK 
SYSTEMS SYSTEM CONTROL PROGRAM LOGIC MANUAL, 



SY21-0*02. 



*************** 

TO: BALT/SYSLOG 
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SBTOOf) 

*+**A3********* 

* * 

* * 

*************** 



*****p-}*4«* ******* 



* ESTABLISH * 
♦CONHUNICSTIONS * 



*********** mm 



C3 *. 
* IS *. 

*CGNSF '» 
FECALLTNG 

fCGNSP „* 
*. .* 


YES 
* , 

] 


*< .* 


v 


* NO 


**** 






* 






* B 1 ! 

* 






**** 



*****D3********+* 

* * 

* PREPARE Port * 
*'JPDATE PASS 0* * 

* WORK FTLE * 

* * 
***************** 



*****E3********** 

* * 

* INITIALISE * 

* SYMBOL TABtP * 

* PARAMETERS * 

* * 
*************+*++ 



*****Y1 ********** 

* * 

* ESTABLIS" * 

* SYMBOL TABLE * 

* BOUNDARIES * 

* * 
***************** 



**** 

* * 

* AS * 

* * 
**** 

! 

*****AS* ********* 

* * 

* INITIALIZE * 

* LOCATION * 

* COUNTFH * 

* * 
***************** 



* B5 *-> 

* * 
**** 

SBT030 

*****g «;**** ****** 

* BLANK OUT * 

* STBBOL TABLE, * 

* ZEPO SYMBOL * 

* COUNT * 

* * 
***************** 



**+**C 5* ********* 



JTUBN OFF RECALL* 

* SWITCH * 



***************** 



****D P >*******+* 

* * 

* "EJtTT * 

* * 
*************** 

TO: SBPOOO 



* A5 * 

* * 
**** 
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SBPOOO 

****j^1 ********** 

* * 

* ENTER * 

* * 
*************** 

+ *** 



.* CONTROL 
J— >*. RECORD 



SBP010 

*****B2********** 

* PLACE CORRECT » 
. YES * LOCATION * 

*i- >* COUNTER VALUE ♦- 

* TV RECORD * 

* * 
***************** 



CK/01/B1 
*****B3 ********** 
*SE»010 * 



* UPDATE RECORD * 

* * 
***************** 



LAST 

FECORD 



' CK/01/A» 

*****C1 ********** 



READ NEXT 
RECORD 



***************** 



. CK/OVM 
*****CU ********** 
♦SBV100 * 

* . * 

* READ NEXT * 

* RECORD * 

* * 
***************** 

I 



SBL000 3 KiliV 

*****f,5 ********** 

*CAM001 * 



>* WRITE LAST * 

* BLOCK » 

* * 
***************** 



SEP NOTE 1 

****CS ********* 

* * 

* EXIT * 

* * 
*************** 

FETCH: *CGNSS 



**#**DU ********** 



************** 



* CC/01/A1 

_„' " # *****E5*********+ 

.* "*. *sB«oob J 

■'tMSTROCTIOII*'. »---■' >*PPOCFSS BACHINE* 

. ( HS]rai..iu> t . t INSTRUCTION * 

'* * * * 

* # *' ***************** 

Y*° I ».** 

* * 
(.->* B1 * 

* * 

A **** 



F lYSTY» S C0iTP0*L PRoIFahVoJiC 8IS.T S SY«1-0 S 02. 



KRROR *. 
PECOPD 

.* 
. * 
* *. .* 
* NO 

I 

i 

.*- 
GH *. 

*. 


YES 

* ■*. 

1 

**** 

* * 

* R1 * 

* * 
**** 

YES 

YES 

. YES 


CD/01/111 

«****GS** ******** 
*SBD000 * 


DS/DC . 

*. .*" 

*. .* 

* NO 

I 

.*. 

m *. 
* *. 


.>* * 

* PROCESS DC/tS * 

* * 
***************** 

i **«* 

* * 
L->* B1 * 

* * 
**** 

CE/01/A1 
*****H5* ********* 
♦SBO000 * 


eqh" + 

* . .*" 

*. .* 

* NO 

! 
i 

1 

.*. 
JU *. 

* *. 


->*PROCBSS OPG OB * 

* EOO * 

* * 
***************** 

] **** 

* * 
L->* B1 * 

* * 
**** 

CJ/01/A2 

*****J5********** 
*SBE000 J 


* 




.* 
*. . * 
*. .* 
* HO 

1 
i 

.*. 

VH *. 
* *, 


. YES 


* PROCESS EXTPN * 

* * 
***************** 

I **** 

* * 
i«»>* B1 * 

* * 
* + ** 

CF/01/R1 

*****K5********** 

♦SBPOOO *_ 




->* * 



I 

V 

**** 

* * 

* ?1 * 

* * 
**** 



* PPOCESS START * 

* * 
***************** 

**** 
* * 

U>* B1 * 
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SBHOOO 

****Jt 1********* 

* * 

* ENTEH * 

* * 
*************** 



B1 *. 

* 

SYMBOL 



* NO 

L— 



->*. PREVIOUSLY 

*. DEFINED . 



* YES 
>l 



**+**B3**** ****** 



♦PREPARE SYPPOL * 
->* TABLE ENT»Y *- 



***************** 



T\U *. 

* 

LENGTH 



. NO CHABT 

* + ***Ci| ********** 

*SBC000 * 

* * 

* INCREHENT * 

* LOCATION * 

* COONTEB VALDE * 
***************** 



****+DU ********** 



* SET SY11BOI. * 

* PESOLVE PIT * 



***************** 
< 
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. * 


*. 


NO 


*. SYMBOL .* 




*. .* 


1 


*. .* 




*. .* 


V 


* YES 


**** 






* * 






* Gil * 






* * 






+ *** 


' 




*****pU ********** 




* * 




* ADD SYBPOL TO * 




* TABLE * 




* * 




* * 




***************** 




**** 1 




* * 




* at *-> 




* * 1 




**** / 




SBB030 1 







****GG********* 

* * 

* EYIT * 

* * 
*************** 

TO: sppooo 
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SEDOOO 

+***ft 1********* 

* * 

* ENTER * 

* * 
*************** 



**** 

* * 
« J1 * 

* * 
**** 



*****m* 
*SBVOOO 



EV1I,U»TE "HE 
EXPPESSTOt! 



***************** 



**** 

* * 

* cu * 

* * 
***+ 



PREVIOUSLY 
*. DEFINED . 



" CI/01/A2 
** * * *D 1 *** ** ** ** * 
•SBROOO « 

* * 

* SEAFCH SYMBOL * 

* TABLE * 

* * 
***************** 



— *. PREVIOUSLY 
*. DEFINED . 



*****F1 ********** 

* » 
♦SET PREVIOUSLY * 

* DEFINED * 

* INDICATOR * 

* * 
***************** 



" CK/0VB1 
**+**<5 1*** ******* 
*SBW010_ - * 

« """ * 

* UPDATE RECORD * 

* * 
***************** 



SBD030 V CK/ 

*****|]1*****¥ 
*SB»100 



>* READ NEXT 

* RECORD 



***************** 
**** 



**** 
SBD03 5 



* J1 *■*. 

ERROR ». YES * * 

RECORD .« ->* C« * 

* ** **** 



VALID *. TO 
LENGTHS .* 



V NO CHART 
*****D3 ********** 
*SBXOO0 * 

* — -- — * 

* COMPUTE TO^RL + 

* LENGTH * 

* * 
***************** 



V NO CHART 
*****E 3 ********** 
•SBC000 * 

* * 

* INCREMENT * 

* LOCATION » 

* COUNTER VALUE * 
***************** 



SYMBOL *. 


NO 




TO STORE 






.SWITCH Ofl.* 








*. .* 








*. .* 






Y 


* YF'' 






**** 


i ***■ 




* 




* 


* 


* 


TH 


L->* G3 


* 


* 




* 


* 




<*** 


* + *4 









F3 


*. 








.* * 








.* 


" *. 


NO 


*. SY*POL 




*- 


- — -• 




. ** 




| 


"*• -* 








*. . * 






7 


* YES 






**** 


**** 








* 


* * 








* H3 


* G3 *-> 








* 


* + 








*** + 


**** 


■ 








*****<; 3 ********** 




* 




* 




* ADD SYHBOL 


TO 


* 




* TA 


SLE 




* 





***************** 

**** 

* * 

* H3 *-> 

* * 
**** 

****H3 ********* 

* * 

* EXIT * 

* * 
*************** 

TO! SEPOOO 



**** 

* * 

* B3 * 

* * 
**** 
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SBOOOO 

****A1********* 
+ + 

* ENTER * 

* * 
*************** 



CONTROL *. YES 
RECORD .* 



. * 

BO 



*****B 2**** ****** 
* SET LOCATION * 
COUNTER VALUE * 
TO BAXIBOB *- 
♦PREVIOUS VALUE * 



***************** 



->* 



****P3********* 
* * 

>* EXIT * 

A * * 

I *************** 

t **** TO: sbp 

* B3 * 

* * 
**** 



SB0070 V CG/01/A1 
t****^***,,****;' 

JSBVOOO * 



* EVALUATE THE 

* EXPRESSION 



***************** 



SBOO10 


. *. 
CI * 












* 


* 






**** 




org on 




* 


ORG 


* 




EQ0 






* 


>* BU 












* 






* 






* + ** 



E5U 



VALID 
OPERANDS 

*. .* 
*. .* 


*' 


MO 
*— --, 

I 




* YES 




*** + 

* 

* 









**** 

* * 

* B3 * 

* * 
**** 



-* *. YES 

. PREVIOUSLY .* . 

*. DEFINED .♦ I 



*- .* 
NO 



SB0120 

*****D(t ********** 

I * 

* DETERMINE NEB * 

* LOCATION * 

* COUNTER VALUE * 

* * 
***************** 



Ed *. 
* LOC. * 

COUNTER 
VALUE 
VALID 



SBO190 CK/D1/A1 

***.* E5 ****,»*,4J 

*SBH000 * 



**** 

* * 

* B3 * 

* * 
**** 



->* UPDATE RECORD * 
* fllTH ERROR * 



***************** 



...,. P1 ,,,SK2J« 2 

*SBR000 * 

* * 

* SEARCH SYBBOL * 

* TABLE * 

* * 
***************** 



*****pif ********** 



* SET LOCATION * 

* COUNTER VALUE * 



***************** 
**** 



PREVIOUSLY 
*. DEFINED . 



*****G2********** 

* SET ON * 

* PREVIOUSLY * 
->* DEFINED *- 

* INDICATOR * 

* * 
***************** 



CK/01/B1 

*****G3********** 
•SB8010 * 



* UPDATE RECORD * 

* * 

***************** 

I **** 

* * 
L->* B3 * 

* * 

**** 



**** 
SBO2O0 



****GU********* 

* * 

* EXIT * 

* * 
*************** 

TO: SBP000 



*****R1 ********** 



* ADD SYSBOL TO * 

* SYHEOL TABLE * 



***************** 

1**** 
* * 
->* B3 * 

* * 

**** 
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SBSOOO 

****j-j ********* 

* * 

* ENTER * 

* * 
*************** 



*****pc;********** 



* *. **** 
.*' *, NO * * 
*. SYMBOL .* >* BU * 



.* LOCATION 

*. COnBTE" 

*. SET 



.* *. YES 

*. PREVIOUSLY .* 1 

*. DEFINED .* I 



**** 

* * 

* H1 * 

* * 

**** 



t CI/01/A2 

*****pi ********** 
*SEB000 * 

* .„„. .. — * 

* SEARCH SYtlBOL * 

* TABLE * 

* * 
***************** 



~*. PREVIOUSLY .* 
*. DEFINED .* 
*. . * 



**** 

* * 

* H1 * 

* * 
**** 



*****; 1 4 ******** * 

* * 
♦SET PREVIOUSLY * 

* DEFINED * 

* INDICATOR * 

* * 
***************** 



'■ CK/01/B1 
*****G1 ********** 
*SBV010 * 



* OPDATE RECORD * 

* * 
***************** 

**** 

* * 

* H1 *-> 

* * 
**** 

SBS020 V CK/01/AU 
** * * *H 1 ********* * 

♦SBN100 



READ NEXT 
RECORD 



***************** 



A 

! 
.1* 



***************** 



* P5 * 

* * 
**** 



*****C 3**** ****** 



♦LEAVE LOCUTION * 
♦COUNTER AT ZE*0*<- 



***************** 

I**** 
* * 
->* 54 * 
* * 

**** 



START 
OPERAND 



NO .* SINGLE ♦. 
r — *. SELF-DEFINING.* 



****+E4 ********** 

* * 

* SET LOCATION * 

* COUNTER TO * 

* VALUE * 

* * 
***************** 



V CK/01/A1 

**+**cs**** ****** 

*SBW000 * 



* UPDATE RECORD * 

* * 

***************** 

**** 

* * 

* D5 ♦-> 

* * 
**** 

D5" 
. * 
NO .♦ 
..«*. SYW 



* HU * 

* * 
**** 



L->* 



>* GH * 

* 
**** 



*. SYHBOL 


. 


*- 


— i 


*. 


* 




] 


*. . ♦ 








*. .* 






V 


* YFS 






**** 


**** 








* * 


* * 








* HU * 


* GU *-> 








* * 


* * 








**** 


**** 


1 








*****gu* 


k******** 




* 




* 




♦ STORE SYHBOI. 


in 


* 




* TA 


JLE 




* 





***************** 

**** 

* * 

* HU * 

* * 
**** 

SBSO80 

****p(| ********* 

* * 

* EXIT ♦ 

* * 
*************** 

TO. SBpnoO 





* 


YES 


ERROR 




*-- — . 


. ♦ 


( 


. ♦ 




1 


♦., . * 




V 


* NO 




** + * 

* * 

♦ D5 ♦ 


I 




V 




* ♦ 


**** 




**** 


* * 






* Btt * 






* * 






**** 
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*+** 

* * 

* JU * 



SBVOOO 

****A 1********* 

• * 
» ENTER * 

* * 
*************** 



*****B1 ********** 



*ZEHO OUT TOTAL 
* HORK AREA 



***************** 

**** 
+ * 

* C1 *-> 

* * 
**** 

SBV010 .*. 

CI *. 
.♦ANOTHER*. 
. 'EXPRESSION 
*. IN 

*. OPERAND . 



**** 

* * 

* A3 * 

* * 
«*** 



I 
.1. 

* * 

* C2 * 

* * 
**** 



****(_- 2********* 

* * 

* RET U FN + 

* * 
*************** 



A? *. a****^********** 

.-* *• * ADJUST * 

->.: relccatabt.e*:*IL s - — >, 5?Eg?i?Ig! : 

*■„ .-* * COUNT * 

*. , * * * 

*. .* ***************** 

* NO I 
**** | 

* * 

* B3 *->| 

**** V 

P3 *. *****plt********** 

.* first *. * * 

*■* Z53E.SS *-"S * SET IMPLTFD * 

•* 0P 5F.S ND „•* '">* LENGTH OF *- 

*. ONE .* * OPERAND ONE « 

+ . . * * ■ * 

*- .* ***************** 
NO 



****f(i ********** 



**** 

' * 

• D3 * 
< * 

**** 



*****D1 ********** 
♦INITIALIZE REF.* 
» WORK AREA AND » 

* RELOCATION * 

* COUNT * 

* * 
***************** 



C3 *. 

.* FI^ST *. 

.* TFRM OF *. 

*. OPERAND .* 

*. TWO . * 

*. .* 


*• . * 


* NO 
**** 


* * 




* D3 *-> 




**** 




V 

*****D3********** 

* PERFORM * 

* ARITHMETIC * 

* OPERATION * 

* REQUESTED * 



**** 

* * 

* E2 



** I 



.* FIRST 
TIBE 
*. THROUGH 



**** 
SBV030 V CR/01/AU 
*****E 2* ********* 
*SBW100 * 



->* 



READ NEXT 
RECORD 



***************** 



E3 *. 
.* LAST *. 
* TERH IN 
EXPRESSION 



***************** 



**** 

* * 

* E2 * 



*****F 2* ********* 

* 

+ , 

: i 
***************** 



* SET ERROR 
->« INDICATOR ON 



**** 

* * 

* C2 * 



* SE™ IPPLIED * 
>* LENGTH OF * 

* OPERAND TUO * 

* + 
***************** 



.* VALID *. NO 

->*. RELOCATABLE .* 

*. USAGE .* 



*****71t ********** 

* SET DP FINAL * 

* VALUE OF * 

♦EXPRESSION AND * 

* ATTRIBUTES * 

* * 
***************** 



*****E s**** ****** 

* SET ERROR * 

* INDICATOR AND * 
->* INVALID * 

* RELOCATABLE * 

* EXPRESSION * 
***************** 



I 



*** + 



.SELF-DEFINING. 
*. TERM .* 





. * 


LOCATTOH 




*. 


COUNTER. 




* 


REFERENCE 

*. . * 

*. . * 

* WO 

I 


s 


3V060 


. +. 
J1 *. 

* * 




. * 


SYMBOL 




+ . 


RESOLVED 




*. 


*. . * 
*. . * 
* YES 




**** f 




* 


* 




* K 


»-> 




* 


* 




**** v 


SBV090 


. ♦. 



**** 

* * 

* B3 * 

* * 

**** 



**** 

* 

* A3 



*****H 2* ********* 

* * 
+ SET LOCATION * 

>* COUNTER *- 
♦INITIALIZED BIT* 

* * 
***************** 



*****H3 ********** 

* * 

* TEFM VALUE * 
->* EQUAL CURRENT *— 

* VALUE OF L.C. * 

* * 
***************** 



CI/01/A2 

*****j 2* ********* 
*SBR000 + 

->* SEARCH SYMBOL * >*[ 

* TABLE + 

* * 
***************** 



* SYMBOL * 

RESOLVED IN 
*. TABLE .* 



**** 
* 
M * 
* 

**** 



*****jit ********** 

* SET UNDEFINED * 

* SYMBOL AND * 
->* EXPRESSION *- 

* EHROH * 

* INDICATORS * 
***************** 



«****K2********** 
* 
+ 
->* 
* 
* 
***************** 



SET EXTRN 
NUMBER AND 
ATTRIBUTES 



**** 

* * 

* CI * 

* * 
**** 



*****K3********** 

* * 
*MOVE VALUE AND * 

* ATTRIBUTES TO + 

* TERM FIELD * 

* * 
***************** 



**** 

* * 

* K1 * 

* * 
**** 



CF/01/A1 

*****j5 ********** 

*SBH0OO * 

* „-_* 

->* UPDATE RECORD * 

* WITH ERROR * 

* * 
***************** 

1**** 
* * 
->* C2 * 

* * 

**** 
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SBYOOO 

* ENTEP * 
* 
*************** 



,,***B2********** 

*HOVE SYHBOL AND* 

♦ATTRIBUTES INTO* 

* SYflBOL TABLE * 

* * 
***************** 



TABLE 

rniL 



SBY S,,*, C3 «.»******* 

*sewioo * 



PEAD NEXT 
RECORD 



***************** 



CONTROL 

pecosd 



****B2********* 

* RETURN * 

* * 
*************** 



SY21-0502 



*****C5*********J 

* SET OVERFLOW * 
->* INDICATOR * 

* t 
***************** 



•■ CK/01/P1 
*****D5********** 
•SBN010 J 

* '"renbite * 

* ovepflob * 
♦control record * 

***************** 



SEE NOTE 1 

****E5********* 

* I 

* EXIT * 

* * 

*************** 

FETCH: JCGNSF 
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SBROOO 

****A2********* 

t * 

* ENTER * 

* * 
*************** 



*****B 2** ******** 

* * 

* * 
♦HASH THE SYMBOL* 

* * 

* * 
***************** 



*****C2** ******** 

* * 
•CONVERT HASH TO* 
•TABLE ADDR. ABD* 

* SA VE * 
+ * 
***************** 



EMPTY 
LOCATION 



*** + 

* * 

* EO * 

* * 
*** + 



SYMBOL 
MATCH 



*****E3 ********** 
* 
* 
->* 
* 
* 
***************** 



SET SYMBOL 

DEFINED 

INDICATOR 



*I 



**+*EH ********* 

* * 
•>* RETURN * 

* * 
*************** 



* E4 * 

* * 
**** 



*****P2* ********* 



INCREMENT 
POINTER 



***************** 



END 0? 
TABLE 



*****{I2*«* ******* 

•SET POINTER TO * 

*START SEARCH AT* 

-* BEGINNING OF * 

* TABLE * 

* + 
***************** 
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SBEOOO 

****A2********* 

* * 

* ENTER * 

* * 
*************** 



* PREV *. 

DEFINED .* 
►. SYMBOL .* 
*. .* 
*. .* 
* BO 


YES 
1 

* 

* J2 

* 






**** 


**C2********** 




MOTE NAME * 

RECORD TO * 

SYMBOL AREA * 





***************** 



***** D2* ********* 
♦CLEAR ATTRIBUTE* 

* BYTE. SET ON * 

* EXTRN AND * 

* RESOLVED * 
I.n.I!!Si c »TORS * 
***************** 



....* 52 „*.5,«,«2 

*SBROOO * 

* _ ,__» 

* SEARCH SYMBOL * 

* TABLE * 

* * 
***************** 



.•PREVIOUSLY 
DEFINED 
*. SYMBOL . 



***** G 2* ********* 

* TORN ON * 

* PREVIOUSLY * 

* DEFINED * 

* INDICATOR IN 

* NAME 8~- 
********* 



*****H2********* 
•SBN010 



UPDATE NAME 
RECORD 



***************** 
**** 



* J2 * 

* * 
• *** 



****J 2** ******* 

* * 

* EYIT * 

* * 
*************** 

TO: SBPOOO 



***** F 3 ********** 



• ADD SYBBOL TO • 
->* TAELF * 



***************** 
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SBHOOO 

* * 

* ESTER ♦ 

* * 

*************** 



SBN010 

****B1*** ****** 

* * 

* EHTES * 

* * 
*************** 



*****A 2* ********* 

* HOVE ERROR * 
•RECORD TO HORK * 

APES, CLEAR * 

* ERROR * 

* * 
***************** 



->* 



*****B2* ********* 

* * 

• SET UP LINKAGE * 



***************** 



****+C2** ******** 



•UPDATE CURRENT 
* RECORD 



***************** 

I**** 
* * 
->* J« * 

* * 
**** 



SBH100 

****AH********* 

* * 

* ENTER * 

* * 
*************** 



*****PM ********** 

* * 

* * 

* SET IIP LINAGE ♦ 

* * 

* • 
***************** 



LAST 

PECOPD 



JA/01/A1 

*****Dft ********** 
*CA*001 * 

*~»RITE CURRENT * 

* BLOCK * 

* * 
***************** 





E» *. 








.* *• 






* 




*. 


YES 




PERHANENT 


, 




* 


. ERROR 
*. .* 


* 





" JA/0VA1 
*****pt| ********** 

•CM001 * 

t „ * 

* * 

*PE»D NEXT BLOCK* 

* * 
***************** 



PERHANENT 
. ERROR 



SEE NOTE 1 

****G5********* 

* * 
->* EXIT * 

* * 
*************** 

to: EOJ 



***** HI ********** 



GET CURRENT 
RECORD 



***************** 

**** 

* * 

* J» *-> 

* * 
***• 

****jll ********* 

* * 

* RETURN * 

* * 
*************** 
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SFIOOO 

****H1********* 

* ( 

* EHTEP, * 

* * 
************** + 



***** 
*002* 
* H2* 



***** A 2* ********* 



INITIALIZE 
PHASE 



***************** 



*****B2*********S 
*SFW200 * 



* READ A P.ECOBD * 

* * 
***************** 



TERM 
FECOBD 



»..., C3 .**2S«*<S 1 

•SPTOOO * 



*+** 



->* PPOCESS TEP" * >* B2 * 

* PECOD * * * 

* * **** 
***************** 



» PAST *. YES 

PSD OP TEXT .* 

*- .* 



.* CONTPOL 
->*. RECOPD 



**** 
. NO * * 

.* >* B2 * 

* * 

***+ 



MO .* LA 
r — *. TEXT 

**** 


5T *. 
RECORD .*< 

. * 
. * 
* YES 


B2 * 

* 




**** 




*****F1* 

♦CAH001 


JA/01/A1 

' SEE note; 
********* 


* *HHITE 

* * BLC 


LAST * * 
)CK * * 



NAME 
"ECOPD 



***************** 



V DC/01/A3 

*****F 2+ ********* 
•SFNOOO * 

* .„» » 

* PBOCESS NAME * 

* SECORD * 

* * 
***************** 



* 


CROSS 

SEP 

* . * 

*« . * 
* YES 

{ 


*. 

*" 


NO 




+ . 

* 




V 

***** 
*002* 
* G2* 

* * 

* 




***** 
*002* 
* B2* 

* * 









OVEOFLOW 
. P.EC03D 



*****p 3**** ****** 



SET OVERFLOW 
INDICATOR OP? 



***************** 



*****G 3 ********** 



TURN PECAI.L 
SWITCH ON 



***************** 



SEE NOTE 

****H 3** ******* 

* * 

* EXIT * 

* * 
*************** 

FETCH: fCSIS? 



**** 

* * 
->* B2 * 

* * 
**** 



BOTE 



PETCK IS III IBM SYSTEM/3 DISK 
SYSTEMS SYSTEM CONTROL PROGRAM 
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***** 
•001* 
* G1* 



***B2********** 



*B2 
♦CAB001 



* BEAD LAST BLOCK* 

* or FILE * 

* * 
***************** 



SFP020 



C2 *- 

SYMBOL 



DD/01/A3 
*****D2********** 
♦SFH100 * 

* * 

* HDD SYMBOL TO * 

* WOPK FILE * 

* * 
***************** 



E2 ♦. 
.♦SYMBOL *. „„ 
.♦COUNT DEC- *. NO 

*. CEMENTED TO .* 

*. ZEHO .* 
*. .* 
*. .* 
* YES 



. JA/01/A1 

*****7 2* ********* 

♦cahooi * 

♦ * 

* WRITE LAST * 

* BLOCK * 

* * 
***************** 



**** 
*001* 
* G1 *-> 



**** 
SFP030 



*****G2********** 

*c»nOOi * 

* — . — -- * 

* BEAD FIUST * 

* BLOCK * 

* * 
***************** 



*****H2********** 
♦SET END SWITCH * 

: * 

***************** 



***** 

*ooi* 

♦ B2* 

* * 



********** 



INCREMENT 
PO.INTEB 



***************** 



Chart DA (Part 2 of 2). $CGNSF Initialization Routine (SFIOOO) and 
Main Control Routine (SFPOOO) 



Program Organization 3-39 



SFTOOO 

****B1*»* ****** 

* * 

* ENTEB * 

* 
*********** **** 



SYMBOLIC 
. TERH 



**** 

* * 

* HI * 

* * 

**** ' 



.* RESOLVED '*. YES 
*. SYMBOLIC ,*-—-, 



TERB 



. * 
■ - * 
* BO 



**** 

* * 

* HI * 

* * 
**** 



bi.*.B„J8« t 

♦sfsooo * 

j search synbol* 

* TABLE * 

* * 
***************** 



PI *. 

. *SYBBOL *. 
.* IN TABLE *. NO 
*■ AND I*"---, 

♦.RESOLVED .* I 



* YES 



**** 

* * 

* HI * 

* * 

**** 



*****G1********** 
* RESOLVE TERH * 

* : 

********«*»,*,«** 



5FNOOO 

****J3*******„* 

* * 
I ENTE5 * 

* * 
*************** 



.***, B 3*»*?J*£S}5 T 

*SFS0O0 t 

* SEARCH SYBBOL~* 

* TABLE * 

* 
***************** 



.* SYMBOL '*. TO * » 

. IN TABLE :*-- — >* E3 J 



- .* 
* YES 



*****D3********** 

* HARK NAME AS * 

* HULTIPLY * 

* DEFIHED * 

* * 
***************** 



t **** t ****E3********* 

. E3 J >I ErIT t 

**** **************** 

TO: SFP000 
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p. 

* * 

* HI * 

* * 
***# 



****H1********* 

>* EXIT * 

********* ****** 

TO: SPPOOO 
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SFBOOO 

***#&1 ********* 

* * 

* ENTER * 

* * 
*************** 



*****B1 ********** 

: 

* SET OP LINKAGE * 

* I 

* * 
***************** 



,****C1********** 

*■ i 

♦UPDATE CURRENT * 
* RECORD * 



***************** 

J **** 

* * 
U>» H3 * 

* * 

*+** 



SFH100 

***** 3********* 

* * 

* ENTER * 

* * 
*************** 



***#*8 3 ********** 

* * 

* * 
*SET OP LINKAGE * 

* * 
***************** 



.* WRITE A 

BLOCK IS 

*. PROCESS 



*****D3********** 



* PUT RECORD IN * 

* COPRENT BLOCK * 



***************** 



.*. 

E3 *. 

BLOCK 



**** 

* * HO .* 

* H3 *< *- FULL 

* * 
**** 



* YES 
I 



. JA/01/A1 

*****F3********** 

*c»nooi * 

* — ■ * 

* HRTTE CURRENT * 

* BLOCK * 

* * 

***************** 



.*' END OF *. YES 

*. ETTENT .* 



**** 

* * 

* H3 *-> 

* * 

**** 

****H3********+ 

* * 

* RETURN * 

* * 

*************** 



JA/01/M 
*****C(t ********** 
*CAH001 * 

* * 

->* BAIT FOR * 

* CURRENT HP.ITE * 

* * 
***************** 

I 



PERMANENT 
ERROR . 



SFW200 

*#**«■;********* 

* I 

* ENTER * 

* * 
*************** 



LAST 
RECORD 



V JA/01/M 

*****C5**** ****** 
•CAB001 * 

*„_— — — — — * 

* VRITE CDRRENT * 

* BLOCK * 

* * 
***************** 



PERMANENT 
. UPROR . 



. JA/0VA1 

***** E ■;********** 

*CAK001 * 

;- * 

♦HERD NEXT BLOCK* 
* * 

***************** 



SEE NOTE 1 

****F(l********* 
► * 

* EXIT *< 

* * 
*************** 

TO: EOJ 



SEE NOTE 1 

****<3H********* 

* * 
->* EXIT * 

* * 
*************** 

TO: HRLT/SYSLOG 



PERMANENT 
. ERROR . 



*****G5********** 



GET CURRENT 
RECORD 



***************** 

1 **** 

* « 
l->* R3 * 

* * 

**** 



» s ?IlElsI?iTEN n cg»TJo! Y p| O OG G RllS E LO G TPSAHSSL T f^ 3 ^i K 5 2 . 
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SSTOOO 

****A3********* 

* * 

* E VT F p * 

* * 

*************** 



*****p 3 ********** 



* ESTABLISH * 
♦COMMUNICATIONS * 



***************** 



V JA/01/A1 

***** C 3 ******** 4 * 

*CAW001 * 

*, * 

* READ FT^ST * 

* BLOCK * 

* * 
***************** 



*****D3***« ****** 



♦INITIALIZF ESL * 
* TABLE * 



SSPOOO 

****A2********* 

* ENTER * 

* * 
*************** 

**** 

* + 

* B2 *-> 

* * 

**** 

*SSW200 



* BESD 1 WORK * 

* RECORD » 



******** ********* 



C2 *. 
* *. 

TERH *. IBS 

RECORD .*---- 



OS 



CONTROL '*. NO 

RECORD .* , 



WO CHRP'* 
*****C3**********" 
♦SST000 * 

->* pkocess"toe~~* , 

* term record * | 

***************** I 



B2 * 



***************** 



****E3********* 

* * 

* exit * 

* * 
*************** 



TO: SSPOOO 



Chart EA. $CGNSS Initialization Routine (SSI 000) 



*. 



E2 



LAST "*. HO 
RECORD .* 



**** 

* * 

* B2 * 

* * 
*+** 



****F2* ******** 

* EXIT * 

* * 

*************** 

TO; SSLOOO 



v .* EXTRN '*. ho 

->*. OP BNTFY .* — 
*- .* I 

•v.*-* I 



**** 

* * 

* B2 * 

* * 
**** 



*SSEOOO * 

* — — * 

* PROCESS EXTRN * . 

* OR ENTRY * I 

* * I 
***************** ^ 



**** 

* * 

* B2 * 

* * 
**** 
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SSLOOO 

****H2*******«* 

* *. 

* ENTER J 

*************** 



' JA/OI/H 
«****B2********** 
•CAB001 * 

* _-—- .-* 

♦ SPITE LAST * 

* BLOCK * 

***************** 



' CROSS "*• «0 
REFERENCE .* 



.* 

.* 
YES 



X 



*****C3********** 

* * 
*HOYE ESL TABLE * 

>* TO JCGRPE *- 

* position * 

* * 
***************** 



SEE DOTE 
****C«********* 

->* EXIT * 

* * 

*************** 
FETCH: SCGNPE 



* C3 * 

* * 

**** 



*****D2********** 

* ADD SYJBOL * 

* TABLE TO BOCK • 

* FILE * 

* * 
***************** 



****** 2********** 
♦CAHOJH „___J 

*""»5ifi"i»i* *— 

* BLOCK * 

* * 

***************** 



NOTE : FETCH IS ™ J B B.»5?? H {?9!iJ85<>i' 
CONTROL PROGRAH IOGIC NANOAL, SY21-030i 



iTSTENS SYSTEH 



SSE000 

****J1********* 

* * 

* ENTER * 

* * 
*************** 



*****B1*** ******* 

: : 

*SAVE TYPE BYTE * 



***************** 



V EE/01/A5 

*****C1********** 

*SSN200 ___ * 

I iE»D"iiEi(T * 

* RECORD * 

* * 
***************** 



ERROR 
RECORD 



**** 

* * 

* H2 * 

* * 
**** 



*****E1*** ******* 



* HOVE HME TO 

* ESL RECORD 



***************** 



« C3 * 
* * 

**** 



Chart EC. $CGNSS Termination Routine (SSLOO) 



ENTRY 
'*. .*" 



*****G1 ********** 

* * 
*SET EXTRN TYPE * 

* INDICATOR * 

* * 
***************** 



EE/0VA5 
*****H1*** ******* 
*SS»200 * 

*~~bypass~naiie * 

* RECORD * 

* * 
***************** 



*****J1********** 
*ADD SUBTYPE AND* 

* COHNON * 
*INFORHATION TO * 

* ESL * 

* * 
***************** 



V EE/01/A1 
*****K1*** ******* 
*5SW000 * 



*****F2* ********* 

* * 

♦BUILD EHTRY ESL* 

->* RECORD * 



***************** 
**** 



**** 
SSE060 

*****G2* 

*SS0O00 T 

* * 

*ADD ESL RECORD * 

* TO ESL TABLE * 

* * 
***************** 

**** 

* * 

* H2 * 

* * 
**** 

****H2********* 

* 1 

* EXIT * 

* * 
*************** 

TO; SSPOOO 



* DPDATE TERN * 

* * 
***************** 

| **** 

* * 
U>* 02 * 

* * 
**** 



Chart ED. $CGNSS EXTRN/ENTRY Processing 
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SSVOOO 

* ENTER * 

* * 

****+** ******** 



: 

*SET OP LINKAGE * 

: 

************** *** 



*****C1*** ******* 



•UPDATE CURRENT 
* RECORD 



SSU100 

****A3********* 

1 * 

* ENTER + 

* + 
*************** 



*»***B3 ********** 

* * 

*SBT OP LINKAGB * 

: : 

***************** 



**** 

* * 
->* H3 * 

* + 
**** 



nrite a *. tes 
block 111 ;*:;-. 

. PROCESS .* 



L 



...,.c„..«<:sj« 1 

*C»»001 * 

>; w»it"por * 

* current write * 

* * 
***************** 



*****D3 ********** 



* PUT RECORD IN * 

* CURRENT BLOCK * 



***************** 



SSB200 

****15. ******** 

I * 

* EHTFP * 

+ * 

*************** 



LAST 
RECORD 



JCAH001 >* 

* write'this * 

* BLOCK * 

* * 
***************** 



PBPNANENT 
. ERROR 



I 



YES .* *. 

; *. PERNANENT . 

*. ERROR .* 



t „■> I, »0 .* BLOCK 
* H3 *< *. poll 



*****P3***** 
•CAB001 



SEE NOTE 1 
****E1 ********* 

* EXIT * 

* * 

*************** 

TO: EOJ 



• NRITE BLOCK * 

* * 
***************** 



*CAB001 * 



JREAD NEXT BLOCK* 
* * 

***************** 



PERMANENT '.* 
ERROR .* 



END OP 
EXTEN* 



**** 

* * 

* H3 *-> 

* * 

***• 

•***H3********* 

* * 

* PETORN * 

* + 
*************** 



SEE NOTE 1 
****GI| ********* 

->* EXIT * 

* * 

*************** 

TO: HALT/SJSLOG 



*****G 5 ********** 



GET CURRENT 
RECORD 



***************** 

!**** 
* • 

->• H3 * 

* • 

**** 



g?»J*5?«»K D cSS*KriS8l I ,M* l 5SxJ»B.3K??' , «^:Ho2. 
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P EI 000 

****S3********* 

* * 

* ENTE* 1 * 

* * 
*************** 



***«*B3********** 



* establish * 
♦cobhunications * 



***************** 



V SEE NOTE 
*****C3***+****** 

* * SSTPIP * * 

* * ALLOCATE * * 

* * SYSTEN * * 
PRINTER 



* + 



* * 



***************** 



SEE BOTE 

<******* 



*****D3*** 

* * '" T 

* *$tOPES OPEN* * 

* *THE SYSTEB * * 

* * PRINTER * * 

* * * * 
***************** 



*****E3 ********** 

* * 

* PREPARE DTF«S * 
*FOR PROCESSING * 



s?ii E is %m u„iioi*%iu™i™™«™™i-. 

SY21-0502. 
SY2i-0">12. 



HANUAL, 



***************** 



**»**r3********** 

•INITIALIZE THE * 

* HEADER FIELD * 

* t 

* * 
***************** 



.* OBJECT *. NO 


*. OUTPUT .* 7 


•• ■* 


*. •* i 


*. .* » 


- * YES ****** 




* J3 * 




* * 




**** 






*****H3* 


******** 

* 


• SET BP OYEBLAY * 
•LINKAGE EDITOR * 


* OPTNS RECORD * 

* * 


,«*»************* 


**** 




* * 




* J3 ♦-> 




• * 




**•* V 


PEI080 .*- 


J3 *. 


.* *• 


.* BODULE *..NO 


*. »A 


BE 



*****JII********** 

* USE DEFA0I.T * 
>* 10DTTLE NABE * 



***************** 



****p;3********* 
* EXIT * 

*************** 
TC: PEP00O 
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PPOOOO 

****A2********* 

* * 

* ESTER * 

* « 

*************** 



*****B 2* ********* 



* SORT THE ESL * 

* TABLE * 



********** ******* 



BO .* OBJECT 
*. OUTPUT 



+****D2**+******* 



* ADD ESL TO * 

* OBJECT FILE * 



***************** 



****E2********* 

* * 

* EXIT * 

* * 
*************** 

TO! PES000 



Chart FB. $CGNPE ESL Object Output Routine (F'EPOOO) 



PBSOOO 

****A1*+* ****** 

* « 

* ENTER « 

* * 
*************** 



B1 *. 
* I 

NOLIST 

*. . * 
*. .* 
NO 



YES 




* 
>* 

* 


****B2********# 




A 






I 




*************** 




**** 


TO: PEL000 




* B2 * 

* * 





•PEGOOO * 
• * 

* PRINT ESL * 

* HEADERS * 

* + 
***************** 



*****D1*** ******* 

* * 
•SET POINTER TO * 

* START OP ESI * 

* TABLE * 

* * 
***************** 



PESO 10 

*****E1 ********** 

* * 

* SET OP PRINT * 

* LINE * 

i : 

***************** 



PESOHO ♦ FF/01/A1 

****, P1 *;»,i£*'* , ij;i" 
♦perooo * 



JPRINT THE IHJGE* 
***************** 



.* END OF *. YES 
*. TABLE .*----, 



**** 

* ■ * 

* B2 * 

* * 
**** 



Chart FC. $CGNPE ESL Table Print Routine (PESOOO) 
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PELOOO 

****a2********* 

* i 

* ENTER * 
*************** 



»*,** B 2********** 

* INITIALIZE * 

* HEADER FOP * 

* SOURCE/OBJECT * 

* * 
***************** 



*****C2********** 

*SET OP PPinil I 
* CONTROL SIZES * 

: * 

***************** 



*****D2********** 

* INITIALIZE * 

* HISCELLANEOUS * 

* COMMON FIELDS J 

***************** 



I SEE NOTE 1 
****E2********% 

* EXIT * 

* * 
*************** 

FETCH: SCGNPS 



Chart 



PROGRAM LOGIC MANUAL, 
SY21-O502. 

FD. $CGNPE Termination Routine (PELOOO) 



PEH000 

* ? 

* ETJTSfc * 

* ^ 
*************** 



****+B2********** 

* : . 

*SE" HP LINKAGE * 

* 
***************** 



WRITE A 

BLOCK IN 

. PROCESS 



*. YES 



JA/01/A1 

*****C1********** 
♦CAM001 * 

* * 

->* WAIT FOR * 

* CURRENT WRITE * 

* * 
***************** 



*****D2********** 

*P0T A RECORD IN* 

* CURRENT BLOCK * •— 



***************** 



BLOCK 
FULL 



' JA/01/A1 
*****E2********** 
*CAM0O1 * 

* , J 

* WRITE A BLOCK * 

* * 
***************** 



.*. 

G2 *. 



PERMANENT 

. ERROR . 

*. •* 

*. .* 

* YES 



SEE NOTE 1 

****E3********* 

* * 

* EXIT * 

* * 
*************** 

TO: EOJ 



END OF 
EXTENT 



SEE NOTE 1 

****G3********* 

->* EXIT • 
* * 

*************** 

TO: HALT/SYSLOG 



****H2********* 

* RETURN * 

*************** 



V® JM8Ss»8?«?te T &IKoS pSSgrVlOgIcTaMl. SY21-O.02. 
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PEROOO 

****j»1********* 

* * 

* ENTER * 

* * 

*************** 



+****B1 ********** 



*SET POP SPACE 1* 
* AFTER PRINT * 



****** *********** 



PERIOD 

****A2*+******* 

* ENTER * 

* * 
*************** 



*****B2********** 



*SET FOR SPACE 2* 
* AFTER PRINT * 



***************** 



PER105 

**+**C2********+* 



*GET PRINT IMAGE* 

* ADDRESS * 



******** ********* 



*****D2********** 



*SAVE RETURN AND* 
* DTF REGISTER * 



****** ********* 



*****T? 2** ******** 



SET REG. TO 

PRINTER DTF 



***************** 



*****P2* ********* 

* * 
♦SET SPACE AFTER* 
♦AND IMAGE ADDS.* 

* IN DTF * 

* * 
****** *********** 



SEE NOTE 1 
*****G2********** 

* * SJLPRT * * 

* * PRINTER * * 

* * DATA HGHT * * 

* *THRTJ TRANS * * 

* * VECT * * 
******** ********* 



PER200 

****A3********* 

* * 

* PflTpp * 

* „, 

****** ********* 



*****B3 ********** 



*SAVE RETURN ANE* 
* DT "EGISTEP * 



'***************** 



*****C3********** 



* SET REG. tq * 

* PRINTER DT ' * 



***************** 



I 

*****D3**+******* 

: : 

*Trjpn OFF PRINT » 

: : 

***************** 



*****E 3 ********** 



*SET FOR SINGLE * 
* SPACE PEFO*F * 



************ 



* * *$LPRT * * 

* * PRINTER * * 

* * DATA MG1T * * 

* *THRO TRANS * * 

* * VECT * * 
***************** 



****+<; 3********** 

* TORN ON PRINT * 

* + 

* * 

***************** 



PE* 300 

****ft(l ********* 

* * 

* ENTER * 

* + 

*************** 



*****B*( ********** 



*SA7E RETURN AND* 
* DTF HEGISTEP * 



***************** 



*****C4 ********** 



SET RFG. TO 
PRINTER DTP 



***************** 



*****DU********** 



*SET SKIP BEFORE* 
* IN D^p * 



***************** 

*** + 



■ *. YES 

*.«■«»» ECOmmnI*---- 
*-PRT ERROR.* 



SEE NOTE 2 

****E5********* 

* + 

>* E7IT * 

* * 
*************** 

T 0: eoj 



PEPH05 V 

***** F 4 ********** 



***************** 



****GH ********* 

* * 

* RETURN * 

* * 
*************** 



*****U2* ********* 

* * 

* RESET SKIP * 

* BEFORE IN DTF * 

* * 

* * 
***************** 

!+*** 
* * 

l->* E y * 
* * 

**** 



*****H3********+* 

* * 

* ZERO SPACF * 

* BEFORE * 

* * 

* m 
***************** 

1**** 
* * 

->* m * 

* * 
*** + 



NOTE 1: I*HFPU AND S*LPRT ARE IN ISM qv^TPMyn 

S5i5,??ISrt88TJIIiBffi?«w!r s fil?^» T '''" 
SCTE 2 - I^iS IZ^tflUti ESIJc'SSS!?. 8T21 . 0502 . 
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PSIOOO 

****R1********* 

* ENTER * 

* * 
*************** 



*****B1*»* ******* 



* ESTABLISH « 
*CO»t!D»ICRTIONS * 



***************** 



*****C1*** ******* 

: * 

* PREPARE DTPS * 
***************** 



*****D1********** 

* * 
*PDT DC BLOCK IH* 

* HSHCOI1 * 



***************** 



$ GE/0VA1 

*****E1*** ******* 
*PSY000 J 

* IHITISLlil . * 

* PPIHT CONTROL * 

* * 
***************** 



*****F1*** 
*PS«100 



****•'** 



*GET FIRST TEXT * 
* RECORD * 



***************** 



i GD/01/S3 

«****B1*** ******* 
*PSH600 * 

*- "-' * 

* INITIALIZE * 

* OBJECT CURD * 

* PECORD * 
***************** 



****H1********* 

* EXIT * 

* * 
*************** 

TO: P5CO00 
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PSCOOO 

****A1*******+* 

* FKTEH * 

* * 

*************** 

**** | 

* * 

* * I 

**** | 

*****B1 ********** 

* * 

* SAVE CONTROL * 

* RECORD * 

* * 

* * 

************ ***** 



ci4,SK2l« 5 

•PSH200 * 

* READ a'sOBBCe"* 

* RECORD * 

* * 

***************** 



*****D1********** 



* ADJOST SOBBCE * 

• STfIT BOBBER * 



***************** 



*. SEOOERCB 
*. \ 



*. 

RROR~ 
. * 
.* 
* IBS 



*****p | ********** 

**************** * 



COB DEBT 

smr 



.* BABE *. 

BECORD 

*- . * 



.,... 5 ,.„?i«.<r 

*PS«100 « 

* -.. * 

->* GET A CONTROL ■> 

* BECORD * 

* * 
****** *********** 



*PS»100 



* * 

* A3 * 

* + 
***♦ 

I 
I 



MULTIPLY 

DEFINED 
. SYMBOL 



* ****A<4*** + ****** 

: : 

->* SET ERROR * 

* * 

* * 
***************** 



**** 
» * 
* B3 *-> 



**** 
PSC010 



J 



♦PSU100 * 



* BEAD A RECORD * 

* * 
***************** 



BK *. 
.♦MACHINE*. 
.♦IBSTPOCTION*. YES 
->*. KITH .* 

♦. LENGTH .* 
*. .* 
*- -* 
* NO 



**** 

* * 
>* D3 * 

* * 
**** 



YES . ♦ ERROR 
[■"*■* RECORD 

* *'*■.. .. 

* G3 * 

* • * 
**** 



PSC015 » NO CHART 
•****D3********** 
♦PSE000 * 

* * 

* EVALOATE *<- 

* EXPRESSIONS * 

* * 
***************** 



GROOP 1 *. NO 

ASSEMBLER .* 

. OPS. .* 



. * 
• ■-.„-„„ . 
INSTROCTION 



MACHINE 

STR 



» TBS 

...,* F 3.J.SJi2,« 1 

*PSSOOO * 

liiociss nACHiSil 

* INSTROCTIOH * 

* * 
***************** 

**** 

* * 

* G3 *-> 



E»" '*,, 

* 

ERROR 

*. 
*. 



NO 



**** 
025 

♦PSK000 



TES 



♦PSAOOS * 

* — * 

->*PROCESS GROOP 2* 

* IHSTR. * 

***************** 

I **** 

* * 
<■->* G3 * 

* * 
**** 

*** 

♦PSBOOO 

->»PROCESS GRO0P~1* 

* INSTR. * 

* * 
***************** 

I**** 
* * 
->* G3 * 

* * 
**** 



psc:025 tr no chart 

*****G3*J*!S(,SigSS 1 

000 



♦FLAG ANT ERRORS* 

* * 
***************** 

**** 

* * 

* H3 *-> 

* * 
**** 

PSC600 



**** 

* • 
->• B3 * 

* * 
***♦ 



READ BABE 
RECORD 



***************** 



*****J2********** 



* SAVE POSSIBLE * 

* EXTRB BOBBER * 



***************** 

I 

**+* 

* * 

* A3 * 

* * 
• *** 



SKIP 

PRINT 



**** 

* * 

♦ K« * 



* PRINT "* 

LOC COUNTER 



.....Jl. .,,?,??,*'• 

♦psxooo * 

->♦ contert'loc""* 
♦counter to hex * 

* * 

***************** 



PSC610 V GE/01/A3 
♦PSZ006 * 



♦PRINT THE LINE * 
* * 

***************** 



LAST 

RECORD? 
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**** 

* * 

* R4 * 

* * 
***+ 



L 



NO 

**** 
* 

>* B1 * 
* 
**** 



****K5********* 

->* EXIT * 

* * 

*************** 

TO: PST000 
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PSTOOO 

****»1*** ****** 

* * 

* ENTER * 

* * 
*************** 



. * END *. YES 

. SUTEHENT . * 

«. HISSING .♦ 



*****B2********** 

♦SET HISSING EHD* 
->* STHT ERROR * 



***************** 



-SO/01/M 



*. 



*****C2********** 
"00 



PST010 

**** 
♦PSH7 00 

•* ohtIdt "*:*"! — >,";55~ott"»hv"* 
'♦.specified.* * object code j 

*"**"* ***************** 

"**NO 



PST *****D1*** ******* 



* C10SE FILES *< 



***************** 



El *. 
.* *- 
.♦ HOD0LE *. NO 

*. N»HE .♦ 

*. PRESENT .♦ 
*. •* 
*. .♦ 
* YES 



" GI/01/B1 
*****D2* ********* 

•pswooo * 

* * 

* PUT OOT EHD * 

* RECORD ♦ 

* * 
***************** 



*****E 2*** ******* 

* WRITE LUST * 

. *BLOCK TO OBJECT* 

* FILE * 

* * 
***************** 



i I NO CHUPT 

_-•*■* *****F2********** 

* "*. *P5P000 * 

:*" .tt'SioB ':■ J52- >*ii«T:irsi"sTHT* 

*. SET . * 



AGAIN 

* ' 

***************** 



* NO 



SEE NOTE 1 

****G2********* 

* t 
-> * EX TT * 

* * 
*************** 

FETCH: *CGNBX 



( SEE NOTE 1 
****H1 ********* 

* t 

* EXIT * 

* * 
*************** 

FETCH: 5CGNSX 



S °- E 1: l I i?g a I s siStIS' , cB""! / l!.8iiS« logic hmom.. 

SY21-0502 
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PSROOO 

****B1********* 

* « 

* ENTER » 

* * 
*************** 



. * KODECK *. YES 
6 NOOBJ . * — -- . 
*■ .* I 

*• • •* 

*- . * 7 



* 
+ *** 1 


NO 


**** 


* * 

* D1 *-> 

* * 1 

**** + 

PSH001 .«. 




* K1 * 

* * 
**** 



„•* *. NO 

*. RELOCATABLE .* 

». CODE .* 



D2 »..$S<8J«* 

♦PSH50O * 

* * 

->* POT OOT * , 

* ABSOLUTE CODE * 

************* 



DE J J 

**** f 



**** 

* * 

* J1 * 

**** 



•PSH500 « 

* ,..* 

->* POT OUT ADCON * . 

* CODE 



*********** 



■ft***** V 



*** + 

* * 

* J1 * 

* * 
**** 



PSHO50 7 GD/01/A* 

♦•♦♦•n*********^ 

♦PSH500 * 

* . , — * 

*POT OUT OP CODE* 

* AND BYTE * 

* * 
***************** 



" GD/01/A4 
*****G1*** ******* 
♦PSHMJO * 

* * 

♦POT OUT OPERAND* 

: ' 
******** ** **** ** * 



V GD/01/AH 

*****m*****4**** 
*PSH500 * 



•POT OUT OPERAND* 
* 2 * 



***************** 
***+ 



**** 
PSHH90 



. * DUP *. YES 

FACTOR .* 1 

*. G.T.O. .* I 



PSH600 

****G 3 ********* 

* * 

* EHTEP * 

* * 
*************** 



*****H3********** 



* INITIALISE * 

* OBJECT MCOtP * 



***************** 



****J3********* 

* * 

* SETU1V * 

* * 

*************** 



**** 


* NO 


**** 


* K1 *-> 

* * 
**** 




* Dl * 

* * 

**** 


V 
****F1********* 

* * 

* RETOPN * 




******** 


******* 
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PSH500 

****A»********* 

* * 

* ENTFH * 

* * 
*************** 



.* ROOfl IB *. NO 
. RBCOBD .* , 



. . * 
* YES 



**** 

* * 

* D5 * 

* * 

**** 



*****Cf) ********** 



* PUT CODE IN * 

* 9ECORD * 



***************** 



KOOH *. NO 

■ LEFT IN .* 

. RECORD .* 



PSH535 GI/01/ 
*****D5********i 
*PSW000 



>*PUT OUT OBJECT * 

A * RECORD * 



**************** 



I * 

**** 

* * 

* D5 * 

* * 
**** 



' GD/0VG3 

***** ES ,».S%5li45; 3 

*°SH600 * 

* ,.-.* 

-* INITIALIJE * 

* OBJECT RECORD * 

* * 
***************** 



PS"5ttO .*. 




FK *. 




YES .* MOUE *. NO 


****j-S********* 


*. OOT " .* 






*************** 



PSH700 

****(; tl** + ****** 

* + 

* EN^E* * 

* * 

*************** 



VODRCK *. y^g 
P NOOBJ . * . 



**** 

* * 

* K« * 

* * 

**** 



ANY *. vps 
CODE IN .* 

"ECOFD .* 



**** 

* K<* 

* 
**** 

*** 



*iCU********* 

* 
PE T, . r KV * 

************ 



GT/01/B1 

*****j5*«* ******* 

♦PSWOOO * 

*— — .- — * 

— — >**»U m OfJ" 1 OBJEC^ * 

* PECOPD * 

* * 
***************** 



-* TNTTIAtTZP * 
* OBJECT PECORD * 



***************** 
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PSYOOO 

****\ 1*** *♦••** 

* * 

* ESTEB * 

* * 

*************** 



pszooo 

****(3********* 

* * 

* ENTER * 

* * 
*###*#**•****+* 



B1 *. 
.» *. 
.* 132 COL *. YES 
*. PSIKTER .* 

« HO 



**** 

* * 

* G1 * 

* * 
#*** 



*»*»»C1*«* ******* 

. * 

•CLUB UOBK AREA* 

: 
**#***•********** 



«****D1*** ******* 

•IHITIALIZ1 HOVE* 

*»BEAS 6 LENGTHS* 

: * 

***************** 



.* 120 COL *. NO 

*. PRIHTEB .* 

*. -* 



*****Y1 ********** 

* i 

•SET PJBABETEES * 

* FOB 120 COL * 

* PBINTER * 

* * 
***************** 

**** 

* * 

* G1 *-> 

* * 
• *** 

****G1********* 

* i 

* FETOBN * 

* * 
*************** 



*»**«E2* ********* 

* * 
•SET PARAMETERS * 

->* ?OR 96 COL * 

* PRINTER * 

* * 
***************** 

**** 

* * 
U>* G1 * 

* • 

• *•* 



B3 *, 
.* 
.* 
*. NOLIST 



ANl 

SOORCE 
ERRORS 



**** 

• * 

• D3 * 

• * 
*••• 



PRINT 
OB 



*•** 

• * 

• D3 •-> 

• • 
• •** 

D3 



.* 132 *. 
COLOHN 

*. PBIBTEB .* 



*****CA ********** 

* * 

* CLEAR PRINT * 
->• AREA 

* 
********* 



••+**•*• V 



**** 

• • 

• H3 * 

• * 
• *** 



***** 0(4 ********** 



• ADJUST TOP 2_ • 
->*I.INES OP PPIBT * 



***************** 



' NO CHART 
*****E3»»»******* 
•PSP000 * 

: " — 

* PPI1H* A tTME * 

* * 



.* 132 *- TES 

COL"?1N ■♦ ' 

*. PPTNTE" .* I 



* NO 

! 

.*. 

.* *• 


* 
* 
* 

NO 


* 
H3 * 
* 
**** 


* 

* 

+ 
* 

* 


HO CHRPT 
»S?000 J 


.* 2ND *■ 


pHTTJT 


* 


*„ •* 
*. ■* 
*. .* 
* YFS 
**** 1 

* * 1 

* Hi *->! 






* lihe t 

********** 

i 


\ 

* 
* 


* 
* 
* 











Chart GE. $CGNPS Print Image Edit Initialization Routine (PSYOOO) and 
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Program Organization 3-53 



PSSOOO 

****B1********* 

* • 

* EHTER * 

* * 

*************** 



*****C1 ********** 



♦CLEAR ASSEMBLY » 
* ABEA » 



***************** 



D1 *. 
.* *. 

*' EXPBISSION 

*. E880BS . 



*****E1*** ******* 



* SET HDHEBIC * 
•PART OP OP CODE* 



***************** 



ABSOLUTE 
*. REGS 



VALID 

BEG t 



*****H1 ********** 



* SET ZONE PART * 

* OF OP CODE * 



***************** 



***** 
*002* 
* HH* 

* * 



***** 

*002* 

* B5* 

* * 



V 
***** 
*002* 
• F»* 

* * 



**** 

* * 

* A3 * 

* * 

**** 



*. TYPE 1 



*. YES 



*. .* 
* NO 



E3 *. 
■ * *. 
.* TYPE *. YES 
*. 7,1), OB 1 .* 



*. .* 
* NO 
**** I 

* * 

* P3 *-> 

* * I 

**** V 

.*. 
F3 *. 
. * * 
.* VALID *. Y^5 

*. VAI.UF .* 

*• .* 

*. * 

*. . * 

* NO 

I 

V 

***** 

*002* 
* Pit* 



-* *. YES 

->*. ABSOLUTE .*---- 
*. LENGTH .+ 



****;|i 

*002 + 
* B5* 

* * 



->*:* valiVq- *:.!2. 

*. CODE .* 



***** 

*002* 

* DS* 

* * 



T 

***** 
•002* 
* B«* 



^ .*„ OPEBAND *. YES 
->*. 2 SPECIFIED .*----, 



*****C"5********** 

CODE 
YPE 1 

* 

***************** 



♦SET CODE FOB * 
* TYP- _ 



*****D4 ********** 

* * 
♦ADJUST OPERANDS* 

* TO LOOK LIKE * 

* TYPE » * 

* * 
***************** 

I**** 
* * 
->* F3 * 
+ * 
**** 

*****E4 ********** 

* * 
•SET CODE FOR * 

>* TYPE ■',8,9 *— 

* * 

* * 
***************** 



**** 




* * 




* P3 * 




* * 


* 


**** 


***** 




♦ 002* 




* A1* 




* * 



ABSOLUTE 
IflNEDIATF 
. BYTE 



*****Gq ********** 

* * 
*SE" CODE FOR * 

* TYPES 2,11,5,6 * 



***************** 



TIFE H . • , 

*• .* I 

*- .* 

*■-■* . . T 



* YES ***** 
| *•** *002* 

U>* J5 * * * 
* * * 
**** 



V 
*** 
•00 

* R 



J1 


*. 


















*. 








K*** 








* 


NO 


* 




* 


TYPE 







. 


*— 


->* 


A3 


* 



-* *. YES 
*. ABSOLUTE .* 

*. LENGTH .* 



*- . * 
* NO 



***** 
*002* 
* BS* 

* + 



. + 
. . * 
* NO 



***** 
*002* 
* PI* 

* * 



*****|r 3 ********** 

* * 

*set code for * 

->* Type o * 



***************** 



***** 

*002* 

* A1* 
* * 



. * TYPE *. ves 
3,"4 .* 



*. .* 
* NO 



J1 *. 

* * 

TYPE 5 

*. .* 
*. .* 
* NO 



***** 
•002* 
* A 1* 

* * 



. .* OPND 1 *. NO 
->*. ABSOLUTE .*----. 
*■ •* I 

*. .* 

*. .* V 

* YES ***** 

***** I t°u: 

**** y 
.*. 

J5 *. 
.* *. 

.* VALID *. NO 

->*. OPND 1 .* , 

*. . * I 

*. .* 

*. .* V 

* YES ***** 

I *002* 

* D5* 
* + 



*****K<5 ********** 

* * 
*SET OPND 1 FOR * 

* ■"ypes »,s,e * , 

* i 

* * 

***************** A 

***** 

•002* 

* HI* 

* * 
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.*. 

A1 *. 

.* *• 

be:g *. ies 

USED III .* 

. OPTO 1 .* 
*. .* 



ABSOLUTE 
. DISP ^ 



YIUD *. HO 
VALUE .» 



* BO 



* TES 



*****5i-jd 



*#***st ********** 

j 

***************** 



tJSING 
IN EFFECT 



**** 

* * 

* Bf> * 

* * 
**** 



**** 

* * 

* D5 * 

* * 
**** 



01-B5 
***** 
*001* 
* K2* 

* * 



*****P4 ********** 



* SET ERROR * 
♦INVALID LENGTH * 



*.***#************ 



oi-a« 

01-F1 

01-H5 
***** 

♦ 001* 

* K1* 
* * 



I 



*****35**** ****** 



* SET ERROR * 

1->* INVALID * 

♦RELOCATABIIITJ * 
* * 

***************** 
** I 



* * HO . 

* P5 *< *. 



C2 



VALID 
DISP 



.* 



*****C3********** 

* * 

* SET OPBD 1 * 
->* DISP. * 

* * 

* * 
***************** 



**** 

* * 

* HK * 



***** 

01-A5*001* 

* F3* 



***** 
*001* 
* J5* 



D1 



.*' TTPE *. VO 
*. 0,1,7 .* - 



•*. .*■ I 

*• •* I 

*. .* I 



*****0H ********** 

* * 

* SET ERROR * 

* INVALID * 
♦IHBEDIATE PIELD* 

* * 
***************** 



* 

I 

*****D5********** 

* * 

* SET ERROR * 

!->* INVALID * 

* DISPLACEMENT * 
* * 

***************** 
** 



**** 

* * 

* H1 * 

* * 
**** 



. * RES «. TES 

USED IN .* 

*. OP1ID 7 . * 









V 






**** 






* 


«*- 




* H« 


E3 ..._ 




**** 


vulii; *- to 






VALUF -* ' 












** ! 




***** 






*001* 


* YES **** 


* 


* G1* 

* * 




* D5 


* 





*****F1 ********** 

* * 

* SET OPSD 2 * 

* ADDRESS * 



***************** 



V2 *. 
.* *. 

USING *. TO 
IB EPPECT .* 



**** 
*00 



r.- 



**** 

* * 

* B5 * 

* * 

**** 



**** 

* . * 

* F5 *<- 

* * 

**** 



V 
„*. 

G2 *■ 
* 

VALID 



*****FH**#******* 

* * 

* SET EFR09 * 

* INVALID *" 
♦REGISTER USAGE * 

* * 
***************** 



**** 

* * 

* F5 * 

* * 

**** 



*#***G3+**+****** 



DISP; .* >*SET QPND 2 DISP* 

*' * * 

* *' ***************** 



***** 

♦ 001* 

* Dl* 



*****F5* ********* 

* * 

* SET ERROR * 
*ADDRESSIBItTTY * 

* ERROR * 

* * 
***************** 



*****H1****,* 
♦PSHOOG 



GD/01/B1 

*&***** 



__>* prjT CODE IN * 
\ * OBJECT RECORD * 



******#********** 



**** 

* * 

* tk, *__ 

* * 
**** 



*****{] (| ********** 



ZERO OBJECT 
CODE 



***************** 



* m * 

* * 
**** 



**** 

* * 

* K1 * 

* * 
**** 

****K1*** ****** 

* * 

* EXIT *<- 

* * 
*************** 

TO: PSC025 



NO CHART 
*****J2* ********* 
♦PSX000 * 

* * 

->*CONVERT OBJECT * 

* CODE TO HEX * 

* * 
***************** 



**+**K2********** 



*POT OBJECT CODE* 
-* IN LISTING * 



JH *. 

.* 
.* LENGTH 



* NO **** 
. **** * * 

* * * HI * 

L->* K1 * * * 

* * **** 
**** 



***************** 
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PSBOOO 

****A 1********* 

* * 

* EHTFF * 

* * 
*************** 



**** 

* * 
->* CI ♦ 

* * 
**** 



.* ENTRY *. YES 
*. OB EOH .* , 

*■ •* 7 



* NO 
I 



**** 

* * 

* E3 * 

* * 
**** 



*** + 
*. YES » * 
. * >» HI * 



* NO 

I 

I 



* „ *. **** 

START *. YES « * 
INSTR. .* >* B5 « 



* C.i * 



C3 *. 

.* * 

* VAT.TD 

"FGTSTFR 
*. SPEC 



* YFS 
I 

I 
I 

V 

t****^*******,,,,,,,, 

* * 

* SET t'ST^G * 

* SWITCH OF* * 



*********** ****** 

**** J 

* * 

* E3 *->l 

* * 

**** J 

**.., a. v "° CHAP* 

*PSXOOO * 

* * 

* * 

♦CONVFFT TO *>FX * 

* ' * 
***************** 



**** 

* * 

* ca * — , 
**** I 

*****m ********** 

* * 

* F*POR IFVALTD * 
->* *>FG. USAGE * 

* t 
***************** 

**** 

* * 

* * 
**** 



*****e*;* ********* 

* * 

* SET LOCATION * 

* COUNTER TO * 

* START VALOE * 

* * 
****** *********** 

**** ■ 

* * 

* cs *-> 

* * I 

**" J, 

*****££;* ********* 

* * 

* SET STAR* * 

* ADDRESS IN * 

* OBJECT CARD * 

* * 
***************** 



****&£) ********* 

* * 

* EXIT * 

* * 
*************** 

to: "SC02S 



USING *. YES 
INSTP .* 



**** 

* * 
->* D4 * 

* * 
**** 



**** 

* * 

* HI * 

* + 
**** 

t 



VALID 

REGISTER 
SPEC 



* * 

* PUT V1LTF TH * 

* LISTING ADnp * 

* FIELD * 



* 
1 
1 

1 

V 

*****G2*+* 


YRS 




V 
**** 

* * 

* cn * 

* * 

**** 


**** 


************* 
1 *** + 

1 * * 

l->* pit * 
* * 

**** 


***** 


** 








♦SET BASE VALUE 

* AND USTUG 

* SWITCH ON 


* 
* 

+ 









********* ******** 
I **** 



•PSKOOO * 

* * 

* SEARCH TO * 
♦CONTROL RECORD * 

* * 
***************** 



*****j-\ ********** 

* * 

* SET NE» » 

* LOCATION t 

* COUNTER VALUE * 

* * 
***************** 



V GD/01/Gt* 

*PSH700 * 

* „ 

* PUT OUT ANY * 
*COCE ON OBJECT ♦ 

* CARD * 
***************** 

I 

| **** 



•->* c> * 
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PSIOOO 

#***A1********* 

* I 

* ENTER * 

* * 
*************** 



* BG * — " 

* * 1 

**** V 



DC/DS 



*. YES 



CONTROL 
RECORD 



CI *. 

.* * 

. * END 

*. TNSTR. 
*. 

*. .* 

*. .* 
* HO 



.* im» *• 
*. instr. 
*. •* 

*. .* 

*. .* 

* MO 



.*. 

J1 *•* 
.* * 

.* ISEQ 
*. INSTR. 

*. .* 

* NO 



V 

***** 

*003* 

* B1* 

* * 



**** 
. YES * * 

•*ir.->* c3 * 
* * 
**** 



YES 



.* * 

,* 
*. NOLIST 
*. 

*. .* 

*. .* 
* NO 



***** 
*002* 
* B1* 

* * 



**** 

* * 

* Btt * 

* * 
**** 

TES 

**** 

* * 

* 12 * 

* * 
**** 



«***«D2********** . 

* * 

* GET EXTRN * 
->* NUI1BER * 

* * 

* * 
***************** 

**** 

* * 

* E2 *-> 

* * 
**** 

V NO CHART 
*****E2********** 
*PSX000 * 

« * 

* * 
♦CONVERT TO HEX * 

* * 
***************** 



*****F2********** 

* i 

* PUT VALUE IN * 

* ADDR. FIELD * 



***************** 

**** 

* * 

* G2 *-> 

* * 
**** 

****G2********* 

* * 

* EXIT * 

* * 
*************** 

TO; PSC025 



**** 

* * 

* C3 * 

* * 

**** 



**** 

* * 
*■ G2 * 

* * 
***+ 



*****C3********** 

* * 

* SET DEFAULT * 
*EttTPY POINT TO * 

* X'FFFF' * 

* * 
***************** 



V NO CHART 
*****C It ********** 
♦PSY000 __J 

'"initialize _ * 

* pbint routine * 

* * 
***************** 

] **** 

* « 
L->* G2 * 

* + 
**** 



.*" CONTROL *. YES 
RECORD .* 7 



**** 

* * 

* E2 * 

* * 
**** 



V NO CHART 
*****E3********** 
*PSE000 * 

* * 

* EVALUATE * 

* EXPRESSIONS * 

* + 
***************** 



ANY *. Y"S 
ERRORS .* 7 



**** 

* * 

* E2 * 

* * 
**** 



*****r3********+* 



♦SET ENTRY POINT* 
* SPECIFIED * 



**************** 
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.* 



***** 
♦001* 

* P1* 
* * 



EJECT *:.L E - S , 

•• ••■* 1 

*. .* I 

NO **** 

* * 

* E<l * 

* * 
**** 



» B4 *- 

* * 

**** 



***** B IJ ********** 

* x 

* CLEAB TITLE 
~>* FIELD 



PHUT 



*. YES 



*****C2*********« 

* + 

* SET PRIST * 
->* PARAMETERS AS * , 

* REQUESTED * | 

***************** i 

**** 

* * 

* I>1 * 

* * 
**** 




*- **** 

*. YES * * 

SPACE .* >* D3 * 



*"H0 



**** 

* t 

* D3 * 

* * 
**** 



. * PPIHT 
*. . OFF 



* ""AW " : 

***************** 



**** 
* * 
c« *<- 




*+** 

* « 

* GO * 

* * 

**** 



Bit' '* 

. * hope 

*. DATS 



**** 

* * 

* SH * 

* * 
**** 



****** I 

^Z^Liuv**! 1 ' 



YES 



*PS»ioO 



* BEAD A BECOBD * 

* * 

***************** 



*. YES 



**** 
* 
->* B» * 

* 

**** 



*****E3********** 
* * 

WsftH CO°ffi I 

* 

***************** 



BK 



PRINT 
OFF 



YES 



****F1**» ****** 

* » 

* EXIT » 

* * 
******* ******** 

TO: PSC025 



V 
.*. 

F3 *. 
■ ♦ *. 

.* LIRE 
*. CT. > PAGE 
♦. SIZE 
*- .* 

*. .* 
* MO 



*****G3********** 



* INSERT BLANK * 

* LIKES * 



**** 

* * 

* F1 * 

* * 
**** 



*PSG00O * 

->* —J 

•START NEK PAGE * 

* * 
***************** 

**** i 

* * 

* G« *-> 

* * 

**** j 

+ ****GI| ********** 

* * 

* SET HO PBIK1- * 

* SHTTCH * 



***************** 

**** 
« * 
->* F1 * 

* * 
**** 



1. 



***+*********** ++ 

**** 

* * 
->* PI * 

* * 
**** 



L 
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**** 

* * 

* AH * 

* * 
**** 



. GI/01/B* 
***** ft ft ********** 
♦PSWIOO * 



***** 
*001* 

* B1* 

* * 



*****B1********** 

* * 

* * 
*SAVE PARAMETERS* 

* * 

********** ***^-c** 



V HO CHART 
*****C1 ********** 

*PSEOOO ___ J 

* EVALUATE * 

* EXPRESSIONS * 

* * 
***************** 



VALID 
LENGTH 



*****D 2*** ******* 



* SET INVALID 
->* LENGTH ERROR 



***************** 

**** 
+ * 

->* H1 * 

* * 

**** 



" NO CHART 

+****E1 ********** 
*PSH0OO ___* 

*11DLTIFLT LENGTH* 
♦BY DUP. FACTOR * 

* * 

***************** 



* VALID *. YES 

DUP. FACTOR .* 

*. .* 



*****G1 ********** 

* * 

* SET INVALID * 

* BOP. VALUE * 
+ * 

* * 
***************** 

**** 

* * 

* H1 *-> 

* * 

**** 

****H1 ********* 

* * 

* EXIT * 

* * 
*************** 

TO: PS CO 25 



*****J1 ********** 



*PUT ADDRESS IN * 
* ASSEMBLY AREA *<- 



NO CHART 
*****F2********** 
♦PSXOOO * 

* „ — * 

->*CONVEST L.C. TO* 

* HEX * 

* * 
***************** 



OD/01/Gd 
*****G 3 ********** 
*PSH700 * 

* , — -r* 

>* PUT OUT ANY * 

* OBJECT CODE * 

* * 
***************** 

**** 

# * 
->* H1 * 

* * 
**** 



**** 
* * 

>* ftU * 

* * 

**** 



***************** 

**** 

* * 

->* Dt * 

* * 
**** 



L 



* J2 *•. 

.*' VALID 

ADDRESS 
♦.CONSTANT 
*. .* 
*. .* 



*****j3********** 

* * 

* * 
->« SET ERBOI> BIT *-• 

* * 
» * 
***************** 



* BEAD II BECORD * 

* * 
***************** 



**#**BU ********** 



STORE IS 
ASSEMBLY AHEA 



***************** 



.* KOBE 
*. DATA 



**** 

* * 

* D» * 



**** 

YES * ♦ 

t >* ftll * 



. HO CHART 
*****D4 ********** 
♦PSK000 * 



*TEST FOR EBBOHS* 
* * 

***************** 



V HO CHART 
*****£!! ********** 

*PS?OO0 * 

* -* 

♦COK7ERT DATA TO* 

* HEX. * 

* * 
***************** 



*****PU ********** 

* * 

* * 
*PUT IH LISTING * 



***************** 



■■ GE/0V53 
*****G(| ********** 
♦PSZ0O0 * 

* * 

* * 

* PRINT DATA * 

* * 
***************** 



GD/01/B1 
*****HC| ********** 
*PSHOOO * 

* * 

* »UT DATA TN * 

* OBJECT CARD * 

* * 
***************** 

**** 

* * 

L->* pi * 

* * 
**** 

*****jil ********** 

* * 

♦CLEAR ASSEPBTY * 
->* AREA * ' 



*************** v 



**** 

* * 

* D4 * 

* + 
**** 
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PSW200 

****A5********* 

* * 

* ENTER * 
» * 

*************** 



PSfOOO 

****B1********* 

* ■ * 

* ENTER * 

* + 
*************** 



+****C1 ********** 

* * 

* * 
♦SET OP LINKAGE * 

* * 
» ■ * 
***************** 



WHITE A 

BLOCK IB 

. PROCESS 



******** 



* POT RECORD IH 

• CORPERT BLOCK 



***************** 



BLOCK 
FULL 



. * 

* YES 



♦cabooi * 

* brite currebt * 

* BLOCK * 

* * 
***************** 



END OF 

EXTENT 



****J1********* 

♦ * 

+ RETURN * 

+ * 

*************** 



*CAfl001 * 

* * 

->* WHIT FOR * 

* CORRENT WRITE » 
+ * 

***************** 



PBPHANENT 
. ERROR . 



SEE BOTE 

****P2* ******** 

* * 
» EXIT * 

* * 
*************** 

TO: EOJ 



SEE BOTE 

****H2********* 

* * 

* EXIT * 

* * 
*************** 

TO: HALT/SYSLOG 



PSB100 

****Btt ********* 

* * 

* ESTER * 

* * 
*************** 



*****ca ********** 

* * 

* * 

•SET HP LIBKAGE * 

* * 

* * 
***************** 



*****B5********** 



*SET OP LIBK»GE * 



***************** 



READ A 

PLOCK IB 

. PROCESS 

*. .* 

*. .* 

' SO 



*****Etl ********** 

* * 
•GET RECORD FROI1* 

* BLOCK * 



***************** 



BO .« BLOCK 
*. E!1PTY 



V JA/01/A1 

*****Gl|******ft*** 
*CA1001 * 



* READ A PLOCK * 

* * 
***************** 



****H4********* 

* 4 

* RETMUM * 

* * 
*************** 



JA/01/A1 

*****n 5 ********** 

•CAB001 * 

* , 

>* BAIT FOR * 

* CORREBT READ » 

* * 
***************** 



PERMANENT 
ERROR . 



* YES 



SEF BOTE 
****P5********* 

* * 

* EXIT * 

* * 
*************** 

TO: EOJ 



|?Sl.j io I?gTill D c8SiKf T li8lpM s igSi? M „SRi:v3Dis» 
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BXIOOO 

****j3********* 

+ * 

* EHTEH * 

* * 
*************** 



*****r 3 ********** 



* ESTABLISH * 

*coH»nmc*Tio«s * 



***************** 



*****C 3**** ****** 

* PREPARE EXTRA * 

* WORK DTF FOR * 

* WRITING XSEF * 

* BLOCKS * 

* + 
***************** 



*****T)3 ********** 

* * 

* PREPARE WORK * 
*DTF FOR READING* 

* WORK BLOCKS * 

* * 
***************** 



*****B3 ********** 



* INITIALIZE * 
♦WORKING STORAGE* 



***************** 



****P3********* 

* * 

* EXIT * 

* * 
*************** 



TO: BXPOOO 
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BIPOOO 

**+*A1 ********* 
« * 

* ENTER * 

* * 
*************** 

*+** 

* * 

* B1 * 



IP 

• *** 



V MP/01/A1 

**B1********** 
*BI»OO0 * 



* GET »OH!C PILE * 

* BECOBD » 



***************** 



BXP020 



TEBH 
EECORD 



**** 
.BO * * 

.» >* C3 * 



* * 

* C3 * 

**** 



CONTROL 
RECORD 



*. NO 
. * 1 





*. 


NO 


SYMBOLIC 


» , 


TERM .* 




*. . * 




*. .* 


* 


* YES 


**** 






* 






* B1 






* 






**** 



*. 



.* LAST 
. TNTERMED. 
*.TE7T PEC. 



**** 

* * 

* B1 * 

* » 
**** 



Y^S 



**** 

* * 

* Oil * . 

* * i 

BXPO30 V HF/01/A1 

*****D(| ********** 
♦BXWO00 * 



* GET SYMBOL * 

* RECORD * 

* * 
***************** 



* DU * 

* * 

**** 



*****B1 ********** 



* HDD STMT. NO. * 

* TO TERM TIBLD * 



***************** 



*BXNOO0 * 

* * 

•STORE RECORD IN* 

* BOILD UREA * 

* * 
***************** 

!**** 
* * 
->* B1 * 
* « 
**** 



*****E 3 ********** 

* * 
♦SAVE STATEHENT * 

* NUMBER * 

* * 

* * 
***************** 



LAST 

BECOBD 



YES 



****£S********* 

* * 
■>* EXIT * 

* * 
*************** 

TO: BXL0O0 



.* SABE 
*. RECORD 

"*. „* 

*- .* 
* YES 


*. HO 
.* 1 

' 1 

V 

**** 


I 

1 


* B1 

* 


| 


**** 


*****G3*********1 
♦BXW000 * 



*****pu ********* * 

* * 

* SET TYPE BYTE * 

* FOR SYMBOL * 

* RECORD * 

* * 
***************** 



♦GET NAME RECORD* 
+ * 

***************** 



*****H3********£* 
*PX1000 * 

*— -i * 

* HOVE NAME * 
*R3C0PD TO BUTLC* 

* APE* * 
***************** 

j **** 
i * * 
i__>* nt * 
* * 
**** 



*****Htl ********** 



* SET LENGTH TQ * 

* ONE * 



***************** 



7 HD/01/A1 
*****j«, ********** 

*EXMOO0 * 

* ... * 

* 10VE SYMBOL * 
♦PECORD TO BUILD* 

* AREA * 
***************** 



* DK * 

* * 
**** 
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BXLOOO 

**'*»n ********* 

I ENTEB * 

* * 

*************** 



* curbent *. 

build area . 

*. EHPTY .* 



**** 

* * 

* D1 * 

* * 
**** 



*****c:i ********** 



* PUT OUT LAST 

* BLOCK 



***************** 

**** 

* * . 

* D1 *-> 

* * 
**** 



*****D2** ******** 

* * 

* SET NOXREF * 
->* INDICATOR *- 

* * 

* * 
***************** 



BXL050 



**** 

* * 

* K1 * 

* * 
**** 



' HF/01/A3 



*****El********** 
•BXS03O * 

*_ — * 

* WAIT Oil LAST * 

* DISK WRITE * 

* * 
***************** 



*****»! ********** 

* * 
♦SAVE LAST BLOCK* 

* ADDRESS * 



***************** 



*****Gi* ********* 



COMPUTE PASS 
COOHT 



***************** 



B,tl «*S** B 1*** ******* 

* * 

* INITIALIZE * 
*PBIBT AREA AHt) * 

* HEADER * 

* * 
***************** 



*****J1 ********** 

* INITIALIZE * 

* COHBON FOP. * 

* SCGNSX * 

* * 
***************** 

**** 

* * 

* Kl *-> 

* * 
**** 

BXL080 



BXMOOO 

****X1 ********* 

* * 

* ENTER * 

* * 
*************** 



*****B1 ********** 

* * 

* * 
♦HOVE IN BECOBD * 

* * 

* * 
***************** 



*****C1 ********** 

* * 

* * 

* COUNT RECORD * 



****************** 



.* BLOCK *. NO 

*. TOLL . * 

*. ■* 



HB/01/A1 

*****£ 1 ********** 

•bxsooo * 

•sort the block * 

* * 

***************** 



" HF/01/A-I 
*****F1 ********** 

•BXW100 * 

* — . * 

* * 
*VRITE THE BLOCK* 

* * 
***************** 



***+*G1 ********** 



*SET RECORD AND * 
* BLOCK COUNTS * 



***************** 
< 



BXH090 

****H1*** ****** 

* * 

* RETURN * 

* * 
*************** 



Chart HD. $CGNBX Build Area Move and 
Output Routine (BXMOOO) 



SEE NOTE 1 
**tt*|-1***+***** 

EXIT * 

* 
*************** 

FETCH: SCGNSX 



NOTE 1: FETCH IS IN IBB SYSTFH/3 

DISK SYSTEM SYSTEH CONTROL 
PROGBAH LOGIC HANUAT , 
SY21-0502. 
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BXSOOO 

+ ***JI1********* 

* * 

* ENTER * 

* * 
*************** 



*****£ 1*********4 

* * 

*HOVE IN RECORD * 

* COOHT * 



***************** 



* COOHT " * 
LESS THAN 2 



BXS010 

*****D1 ********** 



*SORT THE BLOCK * 

* * 

* * 
***************** 

< 



****E1*+******* 

* * 

* RETURN * 
+ * 

*************** 



Chart HE. $CGNBX Cross Reference File 
Block Sort Routine (BXSOOO) 
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BX»000 

♦♦♦♦»i ********* 

* * 

* ENTER » 

* * 
*************** 



*****B1*** ******* 

* * 

* * 
♦SET tJP LINKAGE * 

* * 
***************** 



mo x 

block m 

. PROCESS 



*****D1********** 



♦SET RECORD FROH* 
* BLOCK * 



***************** 



JA/01/A1 

*****C 2* ********* 

*CAH001 * 

^* ■ ^ 

* HUT FOR READ * 

* * 
***************** 



D2 
.* 

PERKANENT 



BLOCK *« 


NO 


EMPTY 




. * 


I 


* IBS 


**** 




* 




* PU 



*****F1*** 

*cahooi 



JU/01/A1 

******* 



* BEAD A BLOCK » 
******** ********* 

l **** 

( * * 

L-;>* FU * 

* * 

**** 



*. 



ERROR .* 



* YES 



i SEE NOTE 
****E2********* 



*************** 
TO: EOJ 



BXW050 

****A3********* 

* * 

* ENTER * 

* * 
*************** 



*****B 3 ********** 

* * 

* * 
♦SET DP LINKAGE * 

* * 

* * 
***************** 



JA/01/A1 
*****C3 ********** 
*CA*001 * 

* * 

* BAIT FOR LAST * 

* SUITE ♦ 

* * 
***************** 



PERMANENT 
. ERROR . 



* NO 

| **** 



RXW100 

****AU********* 

* * 

* ENTER * 

* * 
*************** 



FIRST 
ENTRY 



i * * * D5 * 

l_>* in * * * 



**** 
+ * 

* Eft ♦ 

* * 
**** 



JA/01/S1 

*****Cq********+* 
•CAH001 ♦ 

* * 

* HAtT POR LAST ♦ 

* 8RITB * 

* * 
***************** 



OERNANE1IT 
. ERROR . 



SEE NOTE 
****D5 ********* 

YES * * 

* >* EXIT ♦ 

A ♦ * 

*************** 

TO: EOJ 



**** 

* * 

* EH *-> 

* * 
**** 

JA/01/A1 
*****E4 ********** 

*CA*0O1 _ * 

* HRITE THIS * 

* 9L0CK ♦ 

* * 
***************** 

**** 

* * 

* yn *-> 

* * 
**** 

****F4********* 

* * 

* RETURN * 

* * 
*************** 



**** 

* * 

* DS * 

* * 
**** 



NOTE : EOJ IS IN TEH SYSTEJ/3 DISK SYSTESIS SYSTPH 
CONTROL PROGFAH LOGIC KHmAL, SY21-0^02. 



Chart HF. $CGNBX Disk Data Management Interfaces (BXWOOO) 
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sriooo 

****A3********* 

* + 

* ENTER * 

* * 

*************** 



*****B3 ********** 



* SET OP * 

•communications * 



***************** 



*+***C 3 ********** 



♦INITIALIZE FOB * 
* PRINTING * 



***************** 



XREF 
REQUIRED 



****1M ********* 

* * 

* EJIT * 

* * 
*************** 

TO: SXT030 



*****E3 ********** 

* * 

* SET INPUT USD * 

* OUTPUT BLOCK * 

* POINTERS * 

* * 
***************** 



*****F3 ********** 



INITIALISE 
DTP'S 



***************** 



*****G 3 ********** 



SET WATT ON 
LAST WRITE 



***************** 



****H3********* 

* * 

* EXIT * 

* * 
*************** 

TO: srsooo 



Chart IA. $CGNSX Initialization Routine (SXIOOO) 
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**** 

* * 

* A3 * 

* * 
**** 



sxsooo 

****1 1*** ****** 

* I 

* ENTER * 

* * 
*************** 



■■ 


B1" '*.. 


.* *. 


.* SIHGLE *. JES 


*. BLOCK .* 7 


*• ■ * I 


**"H0 **** 




* * I I J3 I 


* CI »->( * * 


* * **** 


• **» I 


SXS020 v 

" *$***C1*«******** 


• * 


* SET A STBIHG •■ 


•POTHTE? TO 1ST * 


» BLOCK * 



***** S 2********** 



***************** 



*****B 2** ******** 

* * 

* * 

* ARCD TO LOB *<- 

* * 

* * 
***************** 



< .* *• > 

-•*. AKCD:BBCD . *-- 



I f 



*****B3 ********** 

* * 

* * 
-* SET A 6 B SW * 

* * 
***************** 



*****\H ********** 

* * 

* * 
->* SET B SW * 

* * 
. * 
***************** 



*****gC| ********** 

* * 

* * 

* BBCD TO LOB * 

* * 

* * 
***************** 



»,»************** 



*****j>1 ********** 

* SET B STBIHG * 
•POIHTEB TO 1ST * 
♦BLOCK 6 STBIHG * 

* SIZE * 

* * 
***************** 



*****I i*** ******* 

* * 

* DOUBLE STBIHG * 

* SIZE * 



***************** 

**** 



**** 

sys S!2*« F i*«* ******* 

♦BEAD BLOCK AT A* 
♦STBIHG POIHTEB * 
* IHTO AIHRBA * 

+ * 

***************** 



* LOW - *. YES 
HIGH VALUE .* 



A SW 

SET 



*****E3** 
*SIOO00 



IC/01/B1 

******** 



* POT OUT A BCD * 

* * 
***************** 



**** . 


* 


* HO .* 


B SW 


A3 *< *. 


SET 



LAST 
PASS 



****DH********* 

* * 

* EXIT * 

* * 
*************** 

TO: SJT000 



*****C5********** 

* * 

* SET CHATH TO * 
->* UHCHAIHED * 

* * 

* * 
***************** 



*****n 5 ********** 

* * 
•ABB HIGH VALUE * 
*TO LAST RBCOBD * 

* *1 * 

* * 
***************** 



*****E5** ******** 



WHITE LAST 
OUTPUT AEEA 



***************** 



*****FS* ********* 

* * 

* BESET OUTPUT * 

* BLOCK COEE •* 

* POINTER * 

* * 
***************** 



*****G1********** 

*BE»D BLOCK AT B* 
*STRIHG POIHTEB * 

* IHTO BIAREA * 

* * 
***************** 



*t***H1*** ******* 

* HOVE A STRIHG * 

* POIHTEB TO * 

* XBAVL1. B * 
*STEIHG POIHTEB * 

* TO XHILVL2 * 
***************** 



**** 

* * 

* J1 *-> 



**** 

S5ts *IS**ji********** 

* i 

* SET COBE * 

* POIHTESS TO * 

* IHPUT AHEAS * 

* * 
***************** 



**«<* 

* * 

* A3 * 

* * 
**** 



V IC/01/B1 

*****G 3** ******** 
•SXOOOO * 

* + 

, * 

* PUT OUT B BCD * 

* * 
***************** 



** + * 

* * 

* A3 * 

* * 

**** 



**** 

* * 

* J3 * i 

* * 1 

**** s 

*****j3 ********** 

* * 
♦READ BLOCK IHTC* 

* AIABEA * 

. : 

**** ************* 



*****K3 ********** 

* * 

♦SET 1ST RECORD * 

* OF BIAPEA TO * 

* HIGH VALtlE * 

* * 
***************** 

**** 

* * 
L->* J1 * 

* * 

**** 



*****G5+* ******** 

* * 

* INCREMENT ASB * 
♦STRING POINTER * 
*BY STRING SIZE * 

* * 
***************** 



B *. HO 

POINTER > .* 7 

. XflLAST .* I 



**** 

* * 

* pi* 

* * 

**** 



**+**j5********** 

* * 

* INCREMENT * 

* CURRENT PASS * 

* COUNT * 

* * 
***************** 

I**** 
* * 

L->* CI * 

* * 

**** 



Chart IB. $CGNSX Merge Control Routine (SXSOOO) 
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sicoooo 

****B1*** ****** 

* EHTBR * 

* * 
*************** 

**** 

* * 

* CI *-> 

* * 
**** 

SXO020 .*. 
CI • 
.* 
.* LAST 
«. PASS 



NO .* OUTPUT 
*. ABE* PULL 



*****E -J ********** 

* * 

* PUT AVL2 IN * 
•CHAIN OP OUTPUT* 

* AREA * 

* * 
***************** 



***+*j-1 ********** 

* * 

* * 
♦WRITE THE BLOCK* 

* * 

* * 
***************** 



*****G1 ********** 

* + 

* SHIFT * 

* AVAILABILITY * 

* TABLE * 

* * 
***************** 



*****H1 ********** 



* RESET OUTPUT 

* POINT EB 



***************** 



„.*.iSi2J« 1 

•SXL000 * 

*— —_,...* 

>* LAST PASS * 

* ROUTINE * 

* * 
***************** 



**** 
SXO055 

*****B2+********* 

* * 
♦INCREHENT INPUT* 

* AREA POINTER * 



***************** 



SX0040 

*****J 1********** 



HOVE RCD TO 

OUTPUT AREA 



C2* **. 
• * *. 
* END OP 

INPUT AREA 



D2 



. * CHAINED 

*. TO ANOTHER 



**** 

* * 

* J2 * 



SXT00O 

****AQ«******** 

* * 

* ENTER * 

* * 
*************** 



»*.**BI|»****iiSjr 
♦SXPOOO * 

• » 

♦PRINT THE LAST * 

* LINE * 

* * 
***************** 



SXT030 

*****ca ********** 

* * 

* PUT OUT ERROR * 

* SUHHARY * 

* STATEMENTS * 
***************** 



sxooeo 

*****D3*********« 



* SET FIRST 
->*PECORD TO HIGH 

* VALUE 



***************** 



1***4 
* * 
->* H2 * 



*****E2********** 

* READ PROM • 

* LOCATION AT * 
♦CHAIN DISK ADDS* 

* * 
***************** 



LAST 
PASS 



. * OBJECT *. 


NO 


*. OUTPUT .* 


— — ■■» 


*• .* 


I 


*. .* 




*. .* 


i 


* TES 


•*** 


I 


« 




* HO 




* 


1 


**** 


.*. 




EH *. 




.* *. 




•* *. 


NO 


*• ERRORS .♦ 




♦. .♦ 

*. .♦ 

*. .* 


"1 


* TES 


**** 






* * 






* G5 * 






* 4 






**** 


V SEE NOTE 


*****F4 ********** 




* * * * 




* *HALT/SYSLOG* * 




* *EPROR 


HALT * * 





**** 

* * 

+ H2 * 

* * 

**** 



***************** 



*****G2********** 

* * 

* ADD C/S OP * 

* BLOCK BEAD ^0 * 

* AVLT * 

* * 
***************** 

**** 



+ *** 
SY0 100 

**+**H2*********+ 

* * 

* RESET INPUT * 

* POINTER * 



****** *********** 
**** 



nit" 


*. 


SEE NOTE 


■* *. NO 

*. TFRNINATF, .* 

♦ . .* 

*- .* 
*. .* 
* YEP 
+ *** 


♦♦**G5********* 
* * 
>* EXIT » 

A * * 
1 *************** 

t **** FETCH: JOLYNX 


* * 

* HU *-> 

* * 
**** 




* G5 * 

* * 

**** 


, 


SEE NOTE 




♦♦♦♦HU ********* 




* EX1 


T * 





**** 
SXO110 



*************** 
TO: foj 



J2 



NEXT 

RCD ■ LOB 



***************** 



♦•♦♦♦K1 ********** 



♦ INCREHENT * 
♦OUTPUT POINTER ♦ 



***************** 

I**** 
* . 
->* B2 ♦ 

* * 
**** 



♦♦♦♦^♦♦♦♦♦**** 
« * 

♦ RFTURN * 

* * 
*************** 



**** 

* * 

* C1 ♦ 

* * 
**** 

NOTE: HALT/SYSIOS, F5TCH, BVt 
ARE IN T°N SYSTEH>3 
DISK SYSTEMS SYSTT" 
CONTROL "ROGRAN LOGIC 
1IRDAL, '!Y21-0 , i02. 
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5X1000 

****A ■)***** **** 

* * 

* ENTER * 

* * 
*************** 



.*. 
B1 *. 

.* « 

HO .* PIBST 
, ». EHTRI 

*. 



IE/01/A3 

*****r ]*****'***** 



* WAIT OS LAST » 

* tlSK WRITE * 
» * 
***************** 



D1 *. 



TERH 
RECORD 



V 

***** 
*002* 
« B1* 

* * 



snoeo .«. 

El « 



.* SYMBOL 
->*. RESOLVED 

*. 

*. .* 

*. .* 
* HO 



E3 *. 
. *SY!tBOL *. 
.*OH CURRENT 
->*. PRINT 

*. IMAGE . 



**** 

l->* J1 * 

* + 

**** 



**** 

* * 

* G3 * 

* * 
**** 



E1 *. 
.* *. 

. * nOLTIPLY 

DEFINED 
*. HARE 

*. .» 

«. .* 
* SO 



CURRENT 
SYMBOL 



**** 

* * 

* J1 * 

* * 
**** 



**** 

* * 

* J1 * 

* * 
**** 



*****H1 ********** 

* * 

* CONVERT * 
♦DEFINITION INTO* 
♦ATTRIBUTE FIELD* 

* * 
***************** 

**** 



**** 
SIL190 



* RETORN * 

* * 
*************** 



*. REFERENCES 


*- 


1 


*.ON IMAGE .* 




1 


*• .* 




V 


*. .* 




* YES 




**** 


*** + 






* 


* * 






*■ J3 


* S3 *-> 






♦ 


* * 






**** 


**** 








090 V NO CHA»T 


*****G1 ********** 




*SXP0OO 


* 




* PRINT CURRENT 


* 




* IN 


GE 


* 





***************** 



*****H q ******** ** 

* * 

* CLEAR * 

* ATTFIB0TE5 * 

* FIELD * 

* * 
***************** 



* J3 *-> 



•' I 



**** 

SXL100 

*****j 3**** ****** 
•COVVERT LENGTH * 

* AND VALUE TO * 

* JTTRIB FIELD, * 

* SAVE STNBOL * 

* * 
***************** 



++***K3 ********** 



FESFT KEF. 

COUNT AND 

POINTER 



***************** 

| **** 
I * • 

!.->* J1 * 

* * 

**** 
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***+« 
♦001* 
* D1* 



Bl" 


*. 






B2 


+ « 


.*. 
B3 *. 


■ * *, 






.♦STHBOL ♦. 


- * *. 


. * CURRENT 


* 


. HO 


. .♦ON CURRENT *. WO 


. ♦ REPS. *, TES 


*. SYMBOL 








>*. ON IHAGE .♦ 1 


*• 


* 




*. IHAGE .* 


*. .* 1 


*. . * 






*. .* 


♦. .♦ 


*- .* 






*. .* 


*, .* ^ 


* TBS 






* YES 


* Tin **** 


**** 








**** 






* 


* * 

* C1 *-> 








* * 

* C2 *-> 






* C2 

* 


* * 








* * 

**** 






**** 


SXL050 






SXL030 V SO CHART 


SXL040 


4****C| ********** 


*****C2********** ' 
♦SXPOOO * 


*****c 3 ********** 


* 

* CONVERT 




* 
* 


* * 

* ADD SYMBOL TO * 


* REFERENCE 

* RUBBER 




* 
* 


* IHAGE + 


* * 



****** *********** 



. POSSIBLE .*— - 
*. CHANGE .* 



4* * * *g 1 *** 4* ** *4* 

* * 

* * 

* ADD * TO REP. * 

* * 

* * 
4****4 *********** 

< » — 



***************** 



SXL06O 

***4*F1 ********** 



* HOVE IN REP. 



**4* ******* ****** 



*44**Q 3 ******** ** 



* ADD UNDEFINED * 
*SYHBOL MESSAGE * 



44*************** 



****4£3 ********** 



♦RESET REFERENCE* 
*CODNT 5 POINTER* 



***4 ****** ******* 



*****F3********** 



SAVE THIS 
SYMBOL 



******** 4*4* 4***4 



*****£ f ********** 

* * 

♦COUNT REP. AND * 

* INCREMENT * 

* POINTERS * 

* * 
4******4******4** 



444************** 

i**** 
* * 

»-->♦ CI * 

* * 

**** 



.* LINE 

*. FULL 



NO CHART 
*****j •]********** 

♦SXPOOO * 

* — ■,-, * 

♦ PRINT CURRENT * 

♦ IHAGE, RESET * 

♦ * 
44**4************ 



*4**K1********* 

* * 

* RETURN * 

* * 
******* 4*****4* 
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EHCN100 

****A 1********* 

* I 

* ENTER * 

*************** 



***#*B1 ********** 

* * 

* * 
♦SET OP II UK AGE * 

: ' : 

***************** 



IIS . * FIRST 

ii-*. ENTRY 



JA/0VA1 

*****D1********** 
•CAB001 * 

♦"nait'fob last * 

* NRITE * 

* * 
***************** 



sxwooo 

**** a 2* ******** 

* ENTEB * 

* * 
*************** 



***** B 2********** 

* * 

* * 
*SET OP LINKAGE * 



***************** 



' JA/01/A1 

*****C2********** 

*camooi J 

^ . ^ 

•BEAD »»IT BLOCK* 
* * 

***************** 



SXW050 

****H3********* 

* * 

* ENTER * 

* * 
*************** 



*****B3********** 

* * 

* * 
*SET HP LINKAGE * 

* * 

* * 
***************** 



JA/01/A1 

*****C3********** 
*CAH001 * 

* — * 

* BAIT FOB LAST * 

* BLOCK * 

* * 
***************** 



*. SO 
PERMANENT .* 7 

. ERROR .* I 



*. -* 
* IES 



PERMANENT 
. ERROR . 



**** 

* * 

* G1 * 

* * 
**** 



SEE NOTE 
V 
****E2********* 

* EXIT * 

* * 
*************** 

TO: EOJ 



*****!" 
♦CABOOl 



• JA/01/A1 

***P1*** ******* 



* NRTTE THIS * 

* BLOCK * 

* * 
***************** 

**** 

* * 

* G1 *->) 

* * ' 
**** 

****G1*** ****** 

* RETORN * 

* * 
*************** 



NOTE • EOJ IS IN TBI" SYSTEM/3 glf* S^ST"" 5 SYSTEM 
CONTROL PROGRAM LOGIC MANUAL, SV21-0502. 
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CAH001 

***** 1*** ****** 

* * 

* ENTER * 

* * 
********* ****** 



*****B1**« ******* 

* * 

* * 
•INITIALIZE DTP * 

: : 

***************** 



***** c ,*i*l*i*-y*i ,> 

»C»BWT * 

• . * 

* CALL UII * 

* SOBNOBTIHE * 

* * 
***************** 



**** 

* * 

* B2 * 

* * 
**** 



. *. 
B2 *. 
* ALL * 
SECTORS 
WITHIN 
LIMITS 



IS THIS 
1 PUT OP 



CAM01H 

*****B 5* ********* 



SET EOF 

COMPLETION 

Y'»2' 



IS THIS 
A GET 



.* IS THIS 


*. 


NO 


"■ » GET 0? 




* — *--» 


*• POT OP 


* 




*. . * 






*• . * 




4 


" TES 














* 








E1 *-> 






* 








**** 



CAH06 

*****0 2* ********* 



♦INDICATE BRITE 
* I» IOB 



***************** 



**** 

CAH011 ♦ JA/01/G3 

*****E1**» ******* 

♦CAMCVT * 

•CALC DISK B~FOR* 

• 1ST SCT? * 

* ACCESSED * 
***************** 



n 



END OF 
FILE 



* NO 



*****G1 ********** 

* * 

* IOBNB* NUMBER * 

* OF SECTORS * 

* BINDS 1 * 

* * 
***************** 



-* « OF 
*. SECTORS 



CAMEUlt 

*****P2********** 

* SET NO RECORD * 

* FOUND * 
>* COMPLETION * 

A * X'UU' * 
I * * 

I ***************** 
**** ■ 



* F2 * 

* 4 
**** 



!**** 
* < 

l->* F3 * 

* * 
**++ 



- *****H2********** 

* * 

* SET NUMBER OF + 
->* SECTORS * 

♦REQUESTED TO 1 * 

* * 
***************** 

I 

I **** 



CAM012 * JA/01/G3 

*****J1**» ******* 

♦CAMCVT * 

*--. * 

♦COMPAPE FOR END* 

* OF FILE * 

* * 
***************** 



**** 

* * 

* B2 • 

* * 

**** 



****+ C 3 ********** 



♦ INDICATE READ 
>* IN IOB 



***************** 



CAII070 J 

*****C4 ********** 

* SET END OF * 

* EXTENT * 

* COMPLETION * 

* X'70" * 

* * 
***************** 



***************** 



*****C 5**** ****** 

* DECREMENT * 

* NUMBER OF * 

* SECTORS * 
♦P.EOUESTED BY 1 * 

* * 
***************** 



CABOe^ V SEE NOTE 
*****D3 ********** 



* *DIODSP DISK* * 

* * IOS * * 



***************** 



IS WAIT 
SPECIFIED 



?<,***iliV.*^*" , 

♦CAMWT * 

* , 

>* CALL BAIT * 

* SUBROUTINE * 

* * 
***************** 



****j? 3********* 

* * 

* RFTURN * 

* * 
*************** 



CAMCVT 

****G3********* 

* • 

* ENTER * 
« * 

*************** 



*****H3 ********** 



♦CALCULATE DISK * 

♦ ADDRESS * 



***************** 



*****J3********** 

♦ • 

♦ COMPARE DISK * 
♦ADDRESS TO ENn * 

♦ OF FILE * 

♦ * 
***************** 



****ki********* 

* * 

* FE'URN * 

* * 
*************** 



NOTE : 

SEE IBB STSTEB/3 
DISK SYSTEMS DATA 
MANAGEMENT AND INPUT/ 
OUTPUT SUPERVISOR 
LOGIC MANUAL 
SY21-0512 



CAMWT 

****PU ********* 

♦ * 

♦ ENTER * 

♦ * 
*************** 



* *DIODBT IOS * * 

* * WAIT * ♦ 



***************** 



*****J 5**** ****** 



*. PERMANENT 
*. ERROR 
*. .♦ 
*. ,* 
♦ NO 
1 
1 
1 
1 

I 


* 
* 


Yi?S 


* set ^bnopmal * 

* t»ih» * 

* * 
***************** 

J **** 
i * * 

«-->* p3 * 
* * 
**** 


V 

****£[) ********* 






PETUSN 
*************** 


* 

+ 
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Chapter 4. Assignment Build 



Introduction 

The Assignment Build Program ($CCPAS) operates under 
control of System/3 Disk System Management and requires 
20K of main storage for execution. It is run to create, 
replace, modify, or delete CCP assignment sets in the 
Assignment File $CCPF I LE (Figure 4-1). Any combination 
of these actions may be requested in a single run of the pro- 
gram. The Assignment File, allocated and initialized by 
CCP Generation, must exist before running Assignment 
Build. The file must contain a CCP configuration record 
and file directory. 



Method of Operation 

When the user loads Assignment Build, the mainline 
phase ($CCPAS) receives control. The mainline phase 
verifies that $CCPFILE is usable, loads the Syntax Scan 
Routine ($CC2SS), processes the SET statement, controls 
loading and execution of all overlay phases, handles all 
I/O operations, and handles logging of statements and 
messages and going to end of job. 

The Syntax Scan Routine ($CC2SS) is called by the appro- 
priate statement processor to scan the input control state- 
ment, issue messages if required, and modifies the keyword 
parameter list (contained within the calling statement 
processor) with the parameter values contained in the 
control statement. 



The SET statement must be the first control statement 
processed and specifies the ACTION to be performed 
by Assignment Build. The ACTION parameter also 
determines the required sequence for the remaining 
control statements. There are four possible assignment 
actions: 



• ACTION-CREATE. Create a new assignment set as 
specified by the remaining control statements and 
place the new set in $CCPFILE following the last 
existing set. 

• ACTION-REPLACE. The REPLACE action is 
similar to CREATE except that before the end-of-set 
phase places the new set in $CCPFILE, it first deletes 
the replaced set and moves up all sets that follow the 
replaced set to occupy the freed space. Then, as with 
CREATE, the new set is placed after the last existing 
set. 

• ACTION-DELETE. Delete an assignment set from 
$CCPFI LE and move up all sets following the deleted 
set to occupy the freed space. 

• ACTION-SYSMOD. Modify an existing assignment 
set System Information Table. (The modified table 
occupies the same space in $CCPFILE as it did before 
the action was performed.) 
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$CCPFILE 



Beginning of file 



End of file 
allocation 



-ff- 



-//- 



-/h- 



-V/- 



— " — 

;Any unused space 
(optional) 

-■'■ •' // 



-//- 



VA- 



< 

o 

c 



o 

O 



1st sector 

CCP configuration 

record 

B. 1.0010 



2nd sector 
directory record 



B.1 .0020 



Sectors of 1 st 
assignment set 



Sectors of 2nd 
assignment set 

(optional) 



Any further assignment sets 
(optional) 



-//- 



Display format 
index built 
'during startup 

(optional) 



-ff- 



Sets of tracks used for 
main storage dumps 

// 



1 or more tracks for 
CCP trace data 

(optional) 

// 



/ 



i 



\ Tables that make up an assignment set. 
i Each table will start a new sector. 



SIT 

System information 
table 

B. 1.0100 



TAT 

Terminal attributes 
table 

B.1 .01 10 



LCT 



Line control table 
B.1 .0120 



TUT 

Terminal used table 
B. 1.0130 



TNT 

Terminal name table 
B. 1.0140 



STT 

Switched terminal 
table (optional) 

B.1 .0150 



FCT 

Disk file control 
table (optional) 

B.1 .01 60 



PCT 

Program control table 
B.1 .0170 



A 



//' SYSTEM 



A 



//TERMATTR 



A 



//BSCALiNE 



// MLTALINE 
(Models 8, 10, 
and 12 only) 



A 



// BSCATERM 



// MLTATERM 
(Models 8, 10, 
and 12 only) 



^ 



A 



//TERMNAME 



A 



//DISK FILE 
(optional) 



//SYMFILE 
(optional) 



A 



//PROGRAM 



^ 



Principal source of each table's contents (assignment build statements) 



J 



Any combination of assignment actions may be performed 
with a single execution of Assignment Build. Diagram 
4M 0100 shows normal module and data flow of 
Assignment Build. Figure 4-2 shows the main storage lay- 
out of Assignment Build. 

CONTROL STATEMENT PROCESSORS 

Each control statement, except the SET and SOURCE 
statements is processed by its individual overlay statement 
processor. The order of loading and executing the various 
statement processors is determined by the sequence of the 
input control statements. Only one overlay statement 
processor will exist in main storage at a time. The control 
statements and their processors are listed below. 

Control Statement Processor Diagram Associated Tables 



Program Organization 

Each statement processor processes one or more statements, 
performs diagnostics on each statement, and builds its 
associated table in $CCPWORK and a compressed version of 
the same table in the main storage table save area. Each 
table built in main storage will be used by one or more 
succeeding phases for diagnostics and for determining 
various parameter defaults and values as required. 

For a CREATE or REPLACE action, all tables of the 
assignment set are built in $CCPWORK to ensure the set 
is error free before $CCPFILE is modified. For a SYSMOD 
action the SIT table is modified in the disk I/O buffer and 
then, if the SIT table is error free, written to $CCPFILE. 



// SET 
// SYSTEM 
// TERMATTR 
// BSCALINE 
// BSCATERWI 
// MLTALINE 
// MLTATERM 
// TERMNAME 
// DISK/SYMFILE 
// PROGRAM 
// SOURCE 



$CCPAS 

$CC2SY 

$CC2TA 

$CC2BL 

$CC2BT 

$CC2ML 

$CC2MT 

$CC2TN 

$CC2DF 

$CC2PG 

$CCPAS 



4P.0140 None 

4P.0300 SIT (System Information Table) 

4P.0400 TAT (Terminal Attributes Table) 

4P.0500 LCT (Line Control Table) 

4P0600 TUT (Terminal Used Table) 

4P 0700 LCT (Line Control Table) (Models 8, 10, and 12 only 

4P.0800 TUT (Terminal Used Table) (Models 8, 10, and 12 only) 

4P.0900 TNT (Terminal Name Table) 

4P.1000 FCT (File Control Table) 

4pll 100 PCT (Program Control Table) 

4P.0110 None 



DIAGNOSTICS 

Three stages of diagnostics are performed on each input 
control statement: 

• Preliminary diagnostics. Performed by the Mainline 
Statement Read routine ($CCPAS). 

• Syntax checking. Performed by the Syntax Scan 
Routine ($CC2SS). 

• Logic diagnostic. Performed by each statement processor. 

Two types of messages may be issued during diagnostics: 
warnings, which allow processing of the set to continue, 
and termination errors, which allow only the read routine 
diagnostics and syntax checking to continue. After a 
termination error occurs, control statements continue to 
be processed but no logic checking is performed and the 
associated tables are not built in either the main storage 
table save area or in $CCPWORK. If termination error 
occurs during the processing of an assignment set, $CCmLt 
is not altered by the requested action. Termination errors 
in one assignment action do not affect succeeding assignment 
actions. 
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SCCPAS 

Assignment build main tine 



4P.0100 



♦ Rsad SET statement 

♦ If ACTION OELETE 

Delete the set from $CCPFILE 

♦ Road next statement 

♦ SET statement ^^^^^^n 

♦ /" statement , 




Return to caller 



Diagram 4M.0100. Overall Module and Data Flow of Assignment Build 
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e 



3 

o 



< 
o 

c 



* 



m 

c 



TJ 

o 





Supervisor | 




SCCPAS 


COMCOM 


Common communication area 


SYSBFR 


Control statement input buffer 


SETSCN 


SET statement keyword 




parameter list 


BFR@1 


Disk I/O buffer 


ASA040 


Overlay load routine 


ASA100 


SET statement processor 


ASA910 


Disk I/O routine 



ASLOOO 
ASROOO 
ASZ990 



Log routine 

Control statement read 

End-of-iob routine ^- 

$CC2SS " 
-•Syntax scan phase 



Table save area 



TAT table 



TAT use table 



TAT table 



TAT use table 



$CC2SY^ 

Phase initialization. ■ — . 

Diagnostics and table build. 

Control statement read. 

Misc. and end of phase routines. 

Control statement keyword parameter list. 



"k 



N 



TAT table 



TAT use table 



LCT table 



H 



TUT table 



\ 



s 



TAT table 



TAT use table 



Unused 



$CC2TA 



Note: Each statement processor overlay phase is laid 
out similar to SCC2SY. 



SCC2BL 



^ 



J=T 



TUT table 



TAT table 



K 



TAT use table 



$CC2BT 



$CC2ML 
(Models 
8,10, 
12 only) 



im 



\ 



TAT use table 



TUT table 



TNT table 



/ 





TAT use table 




LCT table 




TNT table 


/ 


FCT table 


/ 





$CC2MT 
(Models 
8,10. 
12 only) 





TAT use table 




LCT table 




TNT table 


\ 


FCT table 


PCT table 
\ 



SCC2TN 



d. 



$CC2DF 



n^ ^ 



IT 



SCC2PG 



SCC2SP 
Keyword 
parameters 



$CC2HK 
Phase initialization 
Replace routine 
Create routine 
FCT table update and copy 
PCT table sort 
PCT table copy 
Modify routine 



3 
O 



Start 



05 



■ Input i 



SCP 



System communication area 



NCCONF 



Program communication area 



NPEOJ@ 



$CCPAS 



$CCPFILE DTF 
$CCPWORK DTF 




Calling routine 



Input control 
statement type 




Diagram 4P.0100. $CCPAS Main Control 



m I - f Process 



1 If CCP or AUX program is executing 
in other level, issue message and exit. 
Modify system and program commu- 
nication area. 

^ 2 Open $CCPFI LE and $CCPWORK. 
Read $CCPFI LE configuration and 
directory records. 

Verify $CCPFI LE is useable - if not, 
issue message and exit. 
Initialize the common communication 
area. 



E l -t ^ 3 Load $CC2SS 



■ syntax scan routine. 



t EOJ 
(see note) 



■■Output m 

r =s>r 



( EOJ 

(see note) 



Calling 
routine 



ASA040 

|ITj 4 Routine to load and execute the vari- 
— y^ ous statement processors based on 
WtsJ the input control statements read. 



$CC2HK 
4P.1200 



Calling 
routine 



Calling 
routine 



Calling J^^ 
routine 



ASZ990 
5 End of job routine. 

• Issue halt if required. 

• Close files $CCPFILE and 
$CCPWORK. 

• Restore system and program 
communication areas. 

• Go to EOJ. 



Calling 
routine 



System communication area 




NCCONF | 


Prograrr 


communication area 




NPEOJ@ | 







Log device 



Messages 



CA045 CA099 
CA053 



$CCPAS 



ik> 



ASROOO 

Input control statement read routine 

(see diagram 4P.01 1 0). 

ASL000 

Log routine (see diagram 4P.0120). 



ASA910 

Disk I/O routine 

(see diagram 4P.0130). 



ASA100 

Process the 'SET' statement 

(see diagram 4P.0140). 




Common 

communication 

area 



Configuration 
record 



Directory 
record 



$CC2SS 
Syntax scan 



\ SCC2SY 



B=C> u - "a't 



L $CC2TA 



\ $CC2BL 



\ $CC2BT 



X 



\ $CC2ML* 



\ $CC2MT* 



\ 



\ $CC2TN 



$CC2DF 



SCC2PG 



$CC2HK 



Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY2 1-0502. 

Models 8, 10, and 12 only. 



Calling 
routine 



Process ■ 




Transient 



j Source Get j 



Output i 



-□ 
o 



Read input control statement — if 
unrecoverable hardware error — exit. 

Identify the statement type and 
perform preliminary diagnostics. 
Preliminary diagnostics: 

• Statement does not start with //. 

• Invalid statement identifier. 

• Statement identified but based on 
read parameter list. It is not the 
correct statement. 

Log the statement. 

4 If comment statement, return to 1 . 

5 If /* go to 7. Process SOURCE 
statement, if read, and return 
to step 1 . 



6 Locate first keyword and update 
common communication area. 

7 Update read parameter list with 
statement type. 

8 Exit. 



$CCPAS 



Control 
statement 
input 
buffer 



Log device 



Logged 




statement 




Messages 




CA041 


CA054 


CA051 


CA105 


CA052 


CA130 




Now: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21-0502. 



Calling routine 



j? Diagram 4P.01 10. $CCPAS Control Statement Read Routine 






do 



■ Input i 



Control 
statement 
input buffer 



$CC2E1 


$CC2E7 


SCC2E2 


SCC2E8 


$CC2E3 


$CC2E9 


$CC2E4 


$CC2EA 


$CC2E5 


$CC2EB 


SCC2E6 


$CC2EC 



From $CCPAS 
Control Statement 
Read routine 4P.0110 



fct 



Process ■ 




, ASLOOO 

■^^ 1 If statement should not be logged, 
go to 7. (See note 1 .) 

Log input control statement. 
Go to 7. 



iV? 2 lf 



ASL010 

message should not be logged, 
go to 7. (See note 2.) 



1^ 3 Load module containing message. 



4 Locate correct message within mes- 
sage module. 

5 If required, log asterisk showing 
location of error. 

6 Log desired message. 

7 Exit. 



Halt/ 
Syslog 
(See note 3. 



<£ 



Halt/ 
Syslog 
(See note 3. 



Calling routine 



Note 1: Statements will not be logged if 
console is both sysin and syslog 
or if LOG is OFF. 

Note 2: Asterisks and messages will not 
be logged if LOG is OFF. 

Note 3: See IBM System/3 Disk Systems 
System Control Program Logic 
manual, SY21-0502. 



■ Output i 



Log device 



=£> 



Logged 
statement 



Disk I/O 
buffer 



Message 
module 



=o 



Logged 
asterisk 

Logged 
message 



Diagram 4P.0120. $CCPAS Log Routine 



$UUfAb — UISK !/<-> ruiis.ii sc 

Input ■ 



XR2 



ARR 



S 

en 

3 
O 



IOB 



DTF 



Calling routine 



Relative sector 
number and 
number of 
sectors. 




Disk I/O 

buffer 

(See note 1 .) 



Calling 
routine 

K 

■ * l r 



Process i 

ASA910-Read 
ASA930 - Write 



1 Setup file DTF for desired operation. 

2 Convert relative sector number to 
cylinder/sector. 

If not valid cylinder/sector, indicate 
in DTF and go to 5. 



f 



:^3 If requested, perform disk read. 



^ *4 |f requested, perform disk write. _^_ _ 



5 If any error, issue message. 



Calling 
routine 



I OS 
(See 
note 2.) 



Log 
routine 

4P.0120 



■■Output BMM 
J I 



$CCPAS 



DTF 



DTFKPR 



DTFNSC 



DTFOPC 



DTFCMP 



Disk I/O 
buffer 




Log device 



CA040 
CA060 



Note 1 : The disk"l/0 buffer is 3 sectors in length 
but the calling routine may request a 1, 
2, or 3 sector operation. 

Note 2: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21-0502. 



& Diagram 4P.0130. $CCPAS Disk I/O Routine 



— k 

o 



$CCPAS4P.0100 




Process i 



ASA100 



£> 1 Scan SET statement. 



2 Check for valid SET ID. 

Any errors, issue message and read 
next control statement. 



Diagram 4P.0140. SET Statement Processor 



ACTION-SYSMOD 

• Locate the set in $CCPFILE using 
the in-storage directory. 

• Read SIT table from $CCPFI LE. 

• Exit to read SYSTEM statement. 



ACTION-DELETE 

• Locate the set in $CCPFILE using 
the in-storage directory. 

• Move sets following set to be de- 
leted to occupy freed space and 
fill previously occupied space 
with X'FF'. 

• Update the in-storage directory 
and write it to $CCPFILE. 

• Exit to read next statement. 



5 ACTION-CREATE 

• Check for duplicate set I D. 

Exit to read SYSTEM statement. 



6 ACTION-REPLACE 

• Locate set I D in directory. 
Exit to read SYSTEM statement 



$CC2SS 

Syntax 

scan 

4P.0200 









Log 

routine 

4P.0120 



ASB005 
4P.0100 



Disk I/O 

routine 

4P.0130 



ASBOOO 
4P.0100 



Disk I/O 

routine 

4P.0130 




*ASA030 
4P.0100 



ASA990 
4P.0100 



ASA990 
4P.0100 



r 



Output i 



Keyword 
parameter 
list modified 



Log device 



CA043 CA101 
CA044 CA046 
CA026 



Disk I/O 
buffer 



=0 





SIT 
table 





$CCPFILE 



Deleted 
SET 



Calling 
module 



Process i 




-o 





Perform syntax check on parameters 
of input control statement based on 
keyword parameter list provided. 

Syntax check: 

Check correct use of punctuation 
Verify that given keywords are 
correct for the statement and 
model used. 

• Verify the values correspond to 
the keywords. 

• Check for duplicate keywords 
within the statement. 

• Verify required keywords are 
given (see note). 

Call log routine for each error de- 
tected. 



3 If required, translate, compress and 
convert the parameter values. 



Modify the keyword parameter list 
based on parameter values supplied 
and results of syntax check. 



■ Output! 



Log device 



Log 

routine 

4P.0120 



=o 



Messages 




CA002 CA01 1 

CA003 CA012 

CA004 CA013 

CA005 CA014 

CA006 CA015 

CA007 CA025 

CA008 CA027 

CA009 CA029 



Calling module 



Calling 
module 



1 



^s. 


Keyword parameter 
list — modified 








SXSFG1 
■ SXSCNT 
• SXSSCT 




SXSLNG 




SXSVAL 




\S 


SXSOVN 




SXSKF2 

• SXSFND 

• SXSERR 

• SXSCPV 




SXSOLN 




SXSOVL 










- 







Note: For continued statements this module ex- 
pects to continue with the partially modi- 
fied keyword parameter list. 



Diagram 4P.0200. $CC2SS 



•ml 



■ Input 



$CCPAS4P.0100 



Process i 



$CCPAS 



Common 

communication 

area 



Control statement 
input buffer 



$CCPFILE 

configuration 

record 



Disk I/O buffer 
SIT table 




Scan SYSTEM statement. 

If any errors in this set go to 5. 



SCC2SS 
Syntax 
scan 
4P.0200 



Perform diagnostics on parameter 
values, and, based on SET statement 
ACTION parameter, either: 
1^ • Modify the SIT table or 
• Build a SIT table. 



^ 



1 



Log 

routine 

4P.0120 



3 Modify in-storage configuration 
record to support like terminals. 
Any errors up to this point go to 5. 
See note 1 . 



4 Write SIT table to SCCPWORK. 



<J 



r+ 



Disk I/O 

routine 

4P.0130 



•^> 5 Read next control 



statement. 



Control 

statement 

read 

routine 

4P.0110 



$CCPAS 
4P.0100 



■■Output m 

I SYSSCN 

I Keyword 



Keyword 
parameter 
list 
modified 



Log device 



Messages 


CA025 


CA108 


CA078 


CA109 


CA09S 


CA110 


CA102 


CA234 


CA103 


CA239 


CA104 


CA251 


CA106 





$CCPAS 



Configuration 
record 



CFGMD1 
CFGMD2 
CFGMD3 



$CCPAS 



Disk I/O 
buffer 

SIT table 



SCCPWORK 



=o 



$CCPAS 



Control 

statement 

input 

buffer 




Notel: 



Note 2: 



Diagram 4P.0300. $CC2SY 



The modified portion of the in-core con- 
figuration record will be used for diag- 
nostics in module $CC2MT. 4P.0800. 

If the SIT table is built, additional infor- 
mation will be added to the SIT table by 
modules $CC2TA and $CC2H K. 



$CCPAS 



XR2 



O 
(Q 

£U 

3 
o 



Common 

communication 

area 



Control statement 
input buffer 



$CCPFILE 
Configuration 

record 



Sysin 



User supplied 
control statements 



$CCPWORK 




=. Diagram 4P.0400. $CC2TA 



$CCPAS 
4P.0100 



ri 



Process i 



t 



^ 1 Scan TERMATTR statement. 
2 If any errors in this set, go to 5. 



^> 3 Perform diagnostics on parameter Vj 




Output i 



SSPM@ 



Keyword 
parameter 
list 
modified 



values. 

Any errors go to 5. 

4 Build a TAT entry. 



Log device 



Messages 


CA115 


CA121 


CA116 


CA122 


CA117 


CA167 


CA118 


CA252 


CA120 





Table save area 



TAT table 



r^ 5 Read next control statement. 

If another TERMATTR statement 
return to 1. 

6 If any errors go to 10. 



Z^ 7 Update SIT table. 

8 Write TAT table to $CCPWOR K. 

9 Allocate TAT use table. 

10 Exit. 




$CCPAS 
4P.0100 









$CCPAS4P.01OO 



■ Input i 
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Common 

communication 

area 



Control statement 
input buffer 



$CCPFILE 

Configuration 

record 
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Process i 



I I 



w 



V> 1 Scan BSCALINE statement. 

If any errors in this set, go to 6. 



rl Output HM 
SSPM@ 
I Keyword 
^wj , « sj parameter 

Svntav 1r\ list 



Sysin 



User supplied 
control statement 



2 Perform diagnostics on parameter 
values. 

Any errors go to 6. 

3 Build a LCT entry. 



£ 



$CC2SS 
Syntax 
scan 
4P.0200 



T 



Log 

routine 

4P.0120 



4 Write the LCT entry to $CCPWORK 
(see note). 

5 Compress the LCT entry in table 
save area. 



6 



1 



Disk I/O 

routine 

4P.0130 



J~ 



^> 6 Read next control statement. 

If another BSCA line statement, 
return to 1. 

7 Exit. 



Control 
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Diagram 4P.0500. $CC2BL 



Note: The compressed LCT entry in the table save 
area and the LCT entry in $CCPWORK will 
be modified by module $CC2BT to reflect 
various information available only after the 
BSCATERM statement has been processed. 
See chart 4P.0600. 
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Common 
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$CCPFILE 

configuration 

record 
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Process i 



!5 i 
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In-core table save area 



TAT table 



TAT use table 



LCT table 



Compressed TUT table 



TUT build table 



Sysin 



User supplied 
control statements 




Scan BSCATERM statement. 
If any errors in this set go to 5. 



-* 



C>2 



Perform diagnostics on parameter 

values. 

If any errors go to 5. 

Build a TUT entry in table save area. 
If build area overflows, write the 
build area to temporary location in 
$CCPWORK (see note 1). 

Update TAT use table and LCT entry. 
Compress the TUT entry and save it 
in temporary compressed TUT table. 



$CC2SS 
Syntax 
scan 
4P.0200 



Read the next control statement. 
If another BSCATERM statement, 
return to 1 . 



If compressed LCT entry contains a 
poll list, modify the entries to one 
byte relative TUT I Ds. 

Update associated LCT entry in 
$CCPWORK. 

If TERMNAME statement was read, 
write TUT table to $CCPWORK and 
relocate the compressed TUT table 
in the table save area (see note 2). 



01 



Note 1 : If a previous line and its terminals have 
been processed, the temporary TUT 
tables will contain entries when entering 
this module. The entries may have been 
built by this module or by module 
$CC2MT. 

Diagram 4P.0600. SCC2BT 
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LTAT2 



• LCTAC 



TUT table 

(if TERMNAME read) 



Temporary 
TUT table 



Temporary 
TUT build table 



Note 2: When the first TERMNAME statement 
is read, it indicates all TUT entries have 
been built and the temporary TUT 
tables are relocated to their proper lo- 
cations. 
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Common 
communication 



Control statement 
input buffer 



$CCPFILE 
configuration 



Sysin 



User supplied 
control statement 



1 Scan M LT A L I N E statemen t. 
If any errors in this set go to 6. 



2 Perform diagnostics on parameter 
values. 

Any errors go to 6. 

3 Build a LCT entry. 



4 Write the LCT entry to $CCPWORK 
(see note). 

5 Compress the LCT entry in table save 



6 Read next control statement. 

7 Exit. 



$CCPAS 
4P.0100 




Note: The compressed LCT entry in the table save 
area and the LCT entry in $CCPWORK will 
be modified by module $CC2MT to reflect 
various information available only after the 
MLTATERM statement has been processed. 
See Chart 4P.0800. 



Diagram 4P.0700. $CC2ML (Models 8, 10, and 12 Only) 
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Process i 
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Scan MLTATERM statement. 
: any errors in this set go to 5 
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In-storage table save area 



TAT table 



TAT use table 



LCT table 



Compressed TUT table 



TUT build table 



^ 2 Perform diagnostics on parameter 
values. 
If any errors go to 5. 



Sysin 



User supplied 
control statements 



^ > 3 Build a TUT entry in table save area. 
If build area overflows write the 
build area to temporary location in 
$CCPWORK (see note 1 ). 

4 Update TAT use table and LCT entry. 
Compress the TUT entry and save it 
in the temporary compressed TUT 
table. 




$CCPWORK 




Read the next control statement. 
If another MLTATERM statement, 
return to 1. 



I I 



=>7 



Note 1: If a previous line and its terminals have 
been processed, the temporary TUT 
tables contain entries when entering this 
module. The entries may have been built 
by this module or module $CC2BT. 

Diagram 4P.0800. $CC2MT (Models 8, 10, and 12 Only) 
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If compressed LCT entry contains 
a poll list, modify the entries to one 
byte relative TUT IDs. 

Update associated LCT entry in 
$CCPWORK. 

If TERMNAME statement was read, 
write TUT table to $CCPWORK and 
relocate the compressed TUT table 
in the table save area (see note 2). 



Note 2: When the first TERMNAME statement 
is read, it indicates all TUT entries have 
been built and then the temporary TUT 
tables are relocated to their proper loca- 
tion. 
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User supplied 
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Scan TERMNAME statement. 
If any errors in this set go to 5. 

Compress in-core table save area — 
remove the TAT table, reduce LCT 
entries by removing length bytes 
and poll list. 



3 Perform diagnostics on parameter 
values. 

If any errors go to 5. 

4 Build a TNT and STT entry in table 
save area. 

If STT build area overflows, write 
the build area to a temporary loca- 
tion in $CCPWORK (see note). 



j^5 Read the next control statement. 
If another TERMNAME statement 
return to 1 . 



6 Sort the TNT entries by symbolic 
terminal name. 

Modify the TNT entries to reflect 
the proper TUT reference. 

7 Write the TNT table to $CCPWORK. 
If phone numbers were given, also 
write the STT table to $CCPWORK. 

8 Compress the TNT table and save it 
in the table save area. 
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$CCPWORK 




Note: Before processing the first TERMNAME 
statement, two entries are entered in the 
TNT table. The first will have a terminal 
name of all blanks and the second will have 
the name CONSOL. 
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I Compress trie m-SLorage l3ui^ *>ovw 
area by removing the TUT table. 
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If any errors in this set go to 7. 
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3 Perform diagnostics on parameter 
values. 
If any errors go to 7. 



4 Build a FCT entry in the disk I/O 
buffer. 



5 Compress the entry and save it in 
the table save area. 



When the buffer is full or after last 
FCT entry is built, write the disk 
buffer to $CCPWORK. 



Read the next control statement. 
If another DISKFILE or SYMFILE 
statement, return to 2. 
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Diagram 4P. 1000. SCC2DF 
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$CC2SS 
Syntax 
scan 
4P.0200 



3 Perform diagnostics on parameter 
values. 

If any errors go to 6. 

4 Build a PCT entry in table save area. 
If required, update FCT entries with 
file access method. 

Move PCT entry just built to disk 
I/O buffer. Compress PCT entry and 
save it in table save area. 

5 If disk I/O buffer is full or last PCT 
entry is built, write buffer to 
$CCPWORK. 



Read the next control statement. 
If another PROGRAM statement, 
return to 1. 
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FCTIN 

• FCTOUT 
FCTUPD 

• FCTADD 



FCTAT2 

• FCTORD 

• FCTRND 



PCT table 



PCT build area 



Diagram 4P.1 100. SCC2PG 
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$CCPFILE 
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directory 



Disk I/O buffer 



SIT table 



^^>1 If $CCPRLE directory is full, issue mes- 
I sage and go to 9 (see note). 

- ^2 If ACTION-SYSMOD, write SIT table 

to $CCPFILE and go to 8. 
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If ACTION -CREATE, go to 3. 

If ACTION-REPLACE, delete old set 
from$CCPFILE. 



In-storage table 
save area 



FCT table 



PCT table 



Program 

communication 

area 



NPDATE 



^3 Update the SIT table from $CCPWORK. 

[ Copy the SIT, TAT, LCT, TUT, TNT, 

I and STT tables from SCCPWORK to 

I SCCPFILE. 

■4 If symbolic disk files were given, update 
FCT entries in table save area to reflect 
program access method of the symbolic 
files. 

5 If disk files were given, copy FCT table 
from SCCPWORK to SCCPFILE and 
update program access method in each 
entry. 

6 Sort the in-storage PCT entries by 
program name. 

7 Copy PCT table from $CCPWOR K to 
SCCPFILE. 

The PCT entries are copied in the sorted 
order. 



II^^8 Update the in-storage directory and 
write it to SCCPFILE. 

9 Log the number of messages issued. 
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Modified 
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OR 
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assignment set 



Log 
routine 
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Note: If any termination error has been detected 
up to this point, SCCPFILE will not be altered. 



^f Diagram 4P.1200. $CC2HK 
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Chapter 5. Assignment List 



Introduction 

Assignment List ($CCPAL) is a stand alone program and 
requires 20K of main storage to execute. Assignment 
List runs under control of DSM and is distributed with 
CCP to: 

• Display the Assignment File ($CCPFILE) configuration 
record. 

• Display the Assignment File ($CCPFILE) directory. 

• Display one particular set or all sets created by the 
Assignment Build Program ($CCPAS). 

• Display and/or reset program request counts. 
System requirements of Assignment List are: 

• 5404 Processing Unit (64K of MOSFET memory) 
or 

5410 Model A15 Processing Unit (24K of main 

storage) -Model 10 

or 

5412 Model B17 Processing Unit (48K FETmemory)- 

Model 12 

• 5444 Model 2 Disk Storage Drive-Model 10 
or 

5447 Model 1 Disk Storage Drive— Model 4 
or 

3340 Model C2 Direct Access Storage Facility- 
Model 12 

• 5471 Printer-Keyboard 

• 5203 or 5213 or 1403 Printer 



Method of Operation 



Program Initialization (Diagram 5M.0100 and Figures 5-1 
and 5-2) 

After it is loaded, $CCPAL opens $CCPFILE, saves the 
SCCPFILE configuration record (ALCFG) and directory 
(ALDIR), loads the System Print routine ($$SYP1) into 
main storage, opens the printer, and sets the date 
(0-$$SYD2) constant. 



Functional Determination (Diagram 5M.0100) 

$CCPAL reads an input record containing the list specifica- 
tions into main storage, logs the record on the system log 
device, and scans the record for syntax errors and the 
desired function. If a syntax error exists, an error message 
is logged and the next record is read. If no syntax errors 
exist, the requested function is performed. 

$CCPFILE Configuration Display (Diagrams 5M.0100 and 
5P.0100) 

The $CCPFI LE configuration is a one-page printout of the 
$CCPFILE configuration record. $CCPFILE can be printed 
only if CCP Generation (see Chapter 2) has been completed 
successfully. If the $CCPFILE is requested but CCP Gen- 
eration was not successful, $CCPAL issues an error mes- 
sage and goes to end of job. 

The SCCPFILE configuration display shows all the 
supported function of the SCCPFILE being displayed 
(these functions were determined during CCP Generation — 
see Chapter 2). Print lines in the display contain 80 print 
positions or less. 
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$CCPFILE Directory Display (Diagrams 5M.O100 and 
5P.0200) 

The $CCPFI LE directory display is a one-page printout 
showing: 

• The number of assignment sets in the $CCPF I LE and 
the number of entries available. 

• Data obtained from last CCP run using the $CCPFI LE. 
(This is displayed only if there was a previous run.) 

• Main storage size of the system for which the $CCPFI LE 
is defined. 



• Maximum number of dumps the $CCPFILE can contain. 

• Start and end addresses of memory dump and trace 
areas. If the start and end addresses of the trace area 
are equal, no trace area will be shown. 

• Execution time default set ID. 

• Date of I ast $CCP F I L E u pdate . 

• Each set ID in the $CCPFILE and the set length in 
sectors. 

The output format of the print line will not exceed 80 
print positions. 
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// LIST [SET - 



[PGMSTAT- | y° s | ] 
;-j N0 



[RESETPS 




■ Process i 



1 Verify valid $CGPF! LE. 
If invalid, flush to /* or /&. 



2 Save configuration (ALCFG). 



3 Save directory (ALDIS). 



4 Process record from sysin syntax scan. 

— Log the record. 

— /* or /& 

— Syntax error. 

Evaluate record for processing to be 
requested — one of the requests listed 
below. 



Display requests. 

5 Configuration 

6 Directory 

7 Set (single/all) 

8 PGMSTAT/RESETPS 



Halt/syslog 
Issue error 
message 
(See note) 



EOJ 
(See note) 



Halt/syslog 
Log the 
input image 



5M.0100(A2J 

•EOJ y^ 

(See note) w* 



Halt/syslog 
Issue error 
message 
(See notej 



■ Output i 



M> 



% 



ALCOOO 
5P.0100 



ALDOOO 
5P.0200 



ALE001 
5P.0300 



ALU100 
5P.0400 



Log device 



Message or display 
of input image 



System printer 



Requested listing 



Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21-0502. 



Diagram 5M.0100. Overall Function of $CCPAL 
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Figure 5-1. $CCPAL Main Storage Layout, General 

$CCPAL Set Display (Diagrams 5M.01 00 and 5P.0300) 

The SET-ID and SET-ALL specifications cause display of 
one or all assignment sets in $CCPFILE. 

Following is a list of the seven tables displayed: 

• SIT (System Information Table) 

• TAT (Terminal Attributes Table) 

• LCT (Line Control Table) 

• TUT (Terminal Used Table) 

• TNT (Terminal Name Table) 

• FCT (File Control Table) 

• PCT (Program Control Table) 



Some information displayed will not appear on any of the 
Assignment control statements but have been included as 
useful information. These values were calculated or 
defaulted by the Assignment Build Program. 



Program Statistics (PGMSTAT) and Reset Program 
Request Counts (RESETPS) - (Diagrams 5M.0100 and 
5P.0400) 

$CCPAL contains code to perform two functions dealing 
with program statistics: 

• Display programs statistics. 

• Reset program request counts. 

These functions are requested by the list specification 
statement. If both functions are specified, the request 
counts will be displayed before being reset to zero. If 
the request counts are to be reset and displayed, an 
additional comment will be added to the display indicat- 
ing that the request counts have been reset. Unless 
PGMSTAT— YES is included on the specification statement, 
the request counts will not be displayed. $CCPAL will 
perform these functions for a particular set or all sets as 
specified on the specification statement. 
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ALA001 



ALCOOO 



ALDOOO 



ALE0O1 



ALFOOO 



ALGOOO 



ALHOOO 
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ALL100 



ALMOOO 
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ALU100 



ALEOOO 



ALH900, ALK500, ALD500, 
ALCVOO, ALROOO, ALLOOO, 
ALCPOO, ALPOOO, ALXOOO, 
ALE100, ALF500, CAM001 



DSKBFR 



SLPRNT 



SYSBFR.SYSWRK, 
ALCHDB, ALHD2B, etc 



ALCFG 
ALDIS 



ALSYMB 
DSKWKB 
ALMSTN 



ALBIDT 



End of main storage 



DSM supervisor 



$CCPAL initial set-up - Housekeeping and list specification procedure 



$CCPFILE configuration display 



$CCPFILE directory 



Processing before and after a set display 



Set display (system information table) 



(Terminal attributes table) 



(Line control table) 



(Terminal used table) 



(Terminal name table) 



(File control table) 



(Program control table) 



Constant area used by set display 



PGMSTAT and RESETPS processing 



Error message processing 



Miscellaneous routines used by $CCPAL 



Disk read buffer - six sectors (1536 bytes) 



System print module $$SYP 



Read and print buffers, workarea and parameter lists 



Configuration and directory save areas 



800-byte filename table 

Six-sector (1636-byte) disk buffer-overlays ALSYMB 

1636-byte Mastername table-overlays DSKWKP 



530-byte terminal ID table 



Maintenance area 



Figure 5-2. $CCPAL Main Storage Layout, Detail 
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Configuration record 



fer 



Process i 



r^ 1 Move title and date to print line. 



Move configuration record data to print 
line if it exists: 

• Maximum # of concurrent user 
programs 

• SIGN-ON security 

• I/O device support 

• Programming language support 

• DPF system 

• Update file sharing 

• Symbolic files 

• Program request count statistics kept 

• Test facility 

• Data mode escape characters 

• Number of MLTA lines available* 

• MLTA transmission codes * 

• MLTA terminal support * 

• Number of BSCA lines 

• BSCA line-type support 

• BSCA facilities 

• BSCA device-type support 



For each line 
to be printed 



$$SPP 
Print a line 
on the 
system 
printer 
diagram 
(see note) 



*Models 8,10 and 12 only. 



^ 



To SM.0100 
ALA005 
after display 



Diagram 5P.0100. Display of SCCPFILE Configuration 



■Output! 



System printer 



$CCPFILE 

configuration 

display 



Note: 



| Information placed in the configuration ' 
I record during the generation stage to define 

this file. The CCP features are only dis- 
| played if present. If a group of items is 
j listed, as for BSCA line-type support, only 

those configured for (proper bit settings) 
I will be displayed. 



Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21-0502. 



■ Input i 



ALD000from5M.0100 

i Process i 



ALDIS 



$CCPFILE directory 



lUf 



f^ 1 Move title and date to print line. 



B Data from the last CCP run will be displayed 
| only if there was one. Trace dump addresses | 
will be displayed only if they exist. 



Display: 

• Number of sets in this CCPFI LE. 

• Number of entries available. 

• Data from last CCP run: 

— Memory size of object CPU. 

— Max # of dumps. 

— Start of memory dump area. 

— End of memory dump area/ 
start of trace area. 

— End of trace area. 

• Execution time — set I D. 

• Date file last updated. 

• File I Ds and # of sectors. 



For each 
line to be 
printed 



$$SYP 
Display a 
line on 
the system 
printer 

See note 



■ Output i 



System printer 



$CCPFILE directory print 



Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21-0502. 



To5M.0100 
ALA005 after 
display 
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Diagram 5P.0200. Display of $CCPFI LE Directory 
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i Input i 



ALE001 from5M.0100 
1^. ™ Process i 



$CCPF1LE< l "-" — ~ 




— Sets 



1 Determine set to be displayed. 

• If SET-ALL and no sets. 

• If set not in $CCPFILE. 




2 Display SIT. 

3 Display TAT. 

4 Build POLLCHAR table (ALBIDT). 
Display LCT. 

» POLLCHAR table required. 

• Build terminal type TBL (ALTYPE). 

5 Display TUT. 

• Terminal type table required. 

6 Build MSTRNAME table (ALMSTN). 
Display TNT. 

• Access STT to display PHONENUM. 

• Terminal type table required. 

7 Display FCT. 

• Build filename table (ALSYMB). 

• Use filename table for SYMFILE. 

8 Display PCT. 

• Filename table required. 



9 If single set being processed 

10 If another set follows, return to 1. 



5M.0100 



A2I5M.0100 

$$SYP 
See note. 



Display a 
line on 
the system 
printer 



For each 
line to be 
printed 



(A1 I5M.0100 



p Output i 



System Printer 
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Sets 



Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY2 1-0502. 



Diagram 5P.0300. Set Display Processing 
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^ 1 If this file has no PGMST ATS. 



2 Determine job to be done. 

• If SET-ALL and no sets. 

• If set not in CCPFILE. 



3 If PGMST AT-YES 

• Display program name and 
usage counts. 

4 If RESETPS-YES 

• Indicate counter reset. 

• Reset usage count to 0. 



5 If last or only set being processed. 

6 If another set follows, return to 3. 



$$SYP 
(See note) 



I 



I 

Ttt 



I 



Display a 
line on 
the system 
printer 



A1 J5M.0100 



i Output i 



System printer 




Sets- 




>$CCPFILE 



Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21-0502. 



Diagram 5P.0400. PGMSTAT and RESETPS Processing 
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Chapter 6. User Security Information Build (Models 8, 10, and 12 Only) 



Introduction 

The User Security Information Build Program ($CCPAU) 
is a stand-alone CCP support program that runs under 
control of DSM. $CCPAU is used to initialize and/or 
modify the contents of the user's security data module, 
$CC4Z9 (Figure 6-1). 

$CC4Z9 is a dummy module created at CCP generation 
by the $ESEC generation statement. $CC4Z9 consists of 
a module name and an area defined by the LUSI keyword. 
It is this area that is filled by $CCPAU. (The user has the 
option of creating code instead of using $CCPAU to pro- 
duce $CC4Z9.) At execution time $CC4Z9 is used to 
analyze user passwords as required. 



Data module $CC4Z9 



C1 C2.C3 F8 CD 67 64 00 00 BF 00 00 00 



] 




L 



L 



/ 



I 



JJL 



K03 -64 



1 03/00 



X04 CD67 



Z018 



C03 ABC 



$CCPAU can be run in either level of a DPF system, but 
it cannot be run while CCP is running. $CCPAU requires 
the following minimum system configuration for execution: 

• 5404 Processing Unit (64K of MOSFET memory) 
or 

5410 Model A1 5 Processing Unit (24K of main storage)- 

Model 10 

or 

5412 Model B17 Processing Unit (48K FET memory)- 

Model 12 

• 5444 Model 2 Disk Storage Drive-Model 10 
or 

5447 Model 1 Disk Storage Drive-Model 4 

or 

3340 Model C2 Direct Access Storage Facility-Model 12 

• 5471 Printer-Keyboard or 5424 MFCU 

• 5203 or 521 3 or 1403 Printer 



Sample input data records for 
program $CCPAU. Output to 
data module $CC4Z9. 

Figure 6-1. Module Layout of $CC4Z9 



Note: Length of 'LUSI' = 13 

Length of input data = 10 
The last 3 bytes are padding 
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Method of Operation 

OCL STATEMENTS 

The following OCL is required to run $CCPAU. 
// LOAD $CCPAU,uu 

// FILE UNIT-xx,NAME-$CCPFILE,PACK-CCPOBJ 
// RUN 

where uu is the disk unit that $CCPAU is loaded from and 
xx is the unit that $CCPFILE is on, as many data input 
records as are necessary to create the data for $CC4Z9 
must follow the // RUN statement. 

DATA INPUT RECORDS 

Before allowing the user to enter data input records, pro- 
gram $CCPAU inspects the field NCCONF in the System 
Communication Region (SYSCOM) for a value of X'60'. 
If either bit is on, $CCPAU will not be allowed to continue 
and will be terminated. 

In addition to comment records (those records with an * 
in column 1), seven different types of data input records 
may be used as source data for the security data module 
$CC4Z9. These data records may be entered in any order 
and with any frequency up to the maximum length 
specified at CCP generation time. 

The seven types of data input records which may be used 
to generate the contents of $CC4Z9 are described below: 

1. Type C, character string. Any character may be 
used as input. 

Column 1 = C. 

Columns 2-3 = the number of data characters to 
follow. 

Column 4 = blank. 

Column 5 on = as many columns of character 
data as was specified in columns 2 and 3. 

Sample input record: 

• Input = C05 ABCDE, contents of data buffer 
= C1C2C3C4C5. 



2. Type Z, zoned decimal. Only zoned decimal data, 
signed or unsigned, may be used. 

Column 1 = Z. 

Columns 2-3 = the number of data characters, 
counting the sign if one is used, to follow. 

Column 4 = blank. 

Column 5 on = as many columns of zoned decimal 
data including the sign, as was specified in 
columns 2 and 3. 

Sample input records: 

• Input = Z04 1 234, contents of data buffer = 
F1 F2F3F4. 

• Input = Z05 +1 234, contents of data buffer = 
F1 F2F3F4. 

• Input = Z05 -1 234, contents of data buffer = 
F1F2F3F4. 

3. Type X, hexadecimal data. Data entered will be 
treated as hexadecimal and must be specified in 
even increments. 

Column 1 = X. 

Columns 2-3 = the number of data bytes to follow. 
This number must be an even integer. 

Column 4 = blank. 

Column 5 on = as many bytes of hexadecimal 
data as was specified in columns 2 and 3. 

Sample input records: 

• Input = X04 1234, contents of data buffer (2 
bytes) = 1234. 

• Input = X06 A1 B1 C1 , contents of data buffer 
(3bytes)=A1B1C1. 

4. Type I, one-byte integer records, signed or unsigned. 

Column 1 = I. 

Columns 2-3 = the number of data bytes, 
including the sign if used, to follow. This value 
cannot exceed 03 for unsigned or 04 for signed 
values. 
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Column 4 = blank. 

Column 5 on = the number of bytes of data, 
including the sign if used, that was specified in 
columns 2 and 3. This value may not exceed 255 

decimal. 

Sample input records: 

• Input =101 1, contents of data buffer (1 byte) 
= 01. 

• Input = I02 + 6, contents of data buffer (1 
byte) = 06. 

• Input =103+1 6, contents of data buffer (1 
byte) = 1 0. 

• Input = 1 03 -64, contents of data buffer (1 
byte) = BF. 

Type J, two-byte integer records, signed or unsigned. 

Column 1 = J. 

Column 2-3 = the number of data bytes, including 
the sign if used, to follow. This value cannot 
exceed 05 for unsigned or 06 for signed values. 

Column 4= blank. 

Column 5 on = the number of bytes of data, 
including the sign if used, that was specified in 
columns 2 and 3. This value may not exceed 
65535 decimal. 

Sample input records: 

• Input = J01 1, contents of data buffer = 0001 
(2 bytes). 

• Input = J02 +6, contents of data buffer = 0006 
(2 bytes). 

• Input = J03 +16, contents of data buffer = 001 
(2 bytes). 

• Input = J03 -64, contents of data buffer = 00BF 
(2 bytes). 

• Input = J05 65534, contents of data buffer 
= FFFE (2 bytes). 

Type K, three-byte integer records, signed or unsigned. 

Column 1 = K. 



Column 2-3 = the number of bytes of data, includ- 
ing the sign if used, to follow. This value cannot 
exceed 08 for unsigned or 09 for signed values. 

Column 4 = blank. 

Column 5 on = the number of bytes of data, 
including the sign if used, that was specified in 
columns 2 and 3. This value may not exceed 
16,777,215 decimal. 

Sample input records: 

• Input = K01 1 , contents of data buffer = 000001 
(3 bytes). 

• Input = K02 +6, contents of data buffer = 
000006 (3 bytes). 

• Input = K03 +1 6, contents of data buffer = 
000010 (3 bytes). 

• Input = K03 -64, contents of data buffer = 
0000BF(3bytes). 

• Input = K08 1 677721 5 contents of data buffer = 
FFFFFF(3bytes). 

Type L, four-byte integer records, signed or unsigned. 

Column 1 = L. 

Column 2-3 = the number of data bytes, including 
the sign if used, to follow. This value cannot 
exceed 10 for unsigned or 1 1 for signed values. 

Column 4 = blank. 

Column 5 on = the number of bytes of data, 
including the sign if used, that was specified in 
columns 2 and 3. This value may not exceed 
4,294,967,295 decimal. 

Sample input records: 

• Input = L01 1, contents of data buffer = 
00000001 (4 bytes). 

• Input = L02 +6, contents of data buffer = 
00000006 (4 bytes). 

• Input = L03 +1 6, contents of data buffer = 
0000001 0(4 bytes). 
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Input = L03 -64, contents of data buffer = 
000O0OBF (4 bytes). 

Input = L10 4294967295, contents of data 
buffer = FFFFFFFF (4 bytes). 

As each data record is entered from the system input 
device, syntax checks are performed and warning messages 
are issued whenever syntax errors are detected. Data 
records that do not contain errors are added to the data 
buffer within $CCPAU until their total size equals the 
size of data module $CC4Z9 or until a '/*' record is read. 
If the amount of data entered is insufficient or if enough 
data to fill $CC4Z9 has been accumulated prior to 
reading a '/*' record, appropriate warning messages are 
issued to the operator. Options are afforded which allow 
more data to be entered, to start over with a clear data 
buffer, or to write the data as is to module $CC4Z9. In 
all cases the data to be written to module $CC4Z9 is 
printed on the system log device before it is actually 
written to $CC4Z9. In the event that too little data was 
entered but the option to write the data to $CC4Z9 was 
taken, the unfilled portion $CC4Z9 will contain binary 
zeros. 

Diagram 6M.0100 is an overview of data flow in $CCPAU. 
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Save length value. 
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Note 1 : See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21 -0502. 



Diagram 6M.0100. Overall Data Flow of SCCPAU 
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$CCPAU 



ENTRY POINT: AU0000 

CHART: MU 

FUNCTIONS: Reads user's security data from SYSIN and, 

after syntax checking, writes it out to data module 

$CC4Z9. 
INPUT: Security data records via SYSIN. 
OUTPUT: 

- Listing of security data to SYSLOG. 

- Security data to $CC4Z9. 

EXIT, NORMAL: System end of job routine (see note). 
EXIT, ERROR: System end of job routine (see note). 

Note: DSM EOJ is described in IBM System/3 Disk 
Systems System Control Program Logic Manual, 
SY21-0502. 



Figure 6-2. Storage Layout of $CCPAU 
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Chapter 7. Format Generator 



Display Format Generator 

INTRODUCTION 

The Display Format Generator reads records generated 
from display format specification sheets (using $CCPDF 
for single or multiple format builds), and creates a 3270 
display format. Display format specifications can be read 
from the system input device or the source library. The 
Display Format Generator prints information for the user 
about the format as it is built. When the build is completed, 
the Display Format Generator calls the Overlay Linkage 
Editor Librarian Phase ($OLBO) to catalog the display for- 
mat into the object library. ($OLBO is described in IBM 
System/3 Overlay Linkage Editor and Checkpoint/Restart 
Program Logic Manual, SY21-0530.) 



The Display Format Generator runs under System/3 DSM 
and requires 22K of main storage for execution. The Display 
Format Generator requires a 2-track work file on disk called 
$WORK. The system in which the Display Format Gener- 
ator is running must contain the Overlay Linkage Editor 
Librarian modules. If reading display format specifications 
from the source library, a $SOURCE file is needed. If a 
$SOURCE file statement is not specified, a 5-track 
$SOURCE file is automatically allocated. However, whether 
the $SOURCE file is specified or automatically allocated, 
this file has to be large enough to contain all display format 
specifications. 



Two types of specification statements are prepared by the 
user to define a display format: display control statements 
and field definition statements. At least one display con- 
trol statement is required and it must precede all field defini- 
tion statements. The display control statement provides 
information about the entire display format. Each field in 
the display format must be defined on a field definition 
statement. The field definition statements define each field 
by name, length, location, and type. They also tell where 
data for each field is defined. 

The Display Format Generator runs offline; that is, it does 
not run under the control of CCP although the display for- 
mat it generates is used by the Display Format Control 
Routine (DFCR) which does run under CCP. The Display 
Format Generator can run in either level of a DPF system. 
It can run while CCP is running in the other level unless 
DFGR puts a format on the pack from which CCP was 
loaded. 
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Method of Operation 
FUNCTIONS 

The Display Format Generator performs the following 
functions (see Diagram 7M.0100 for an illustrated overview 
of the Display Format Generator using single or multiple 
format builds read from sysin or the source library): 

1 . Reads display format specification statements. 

2. Produces a printout of the specification statements, 
analyzes the specifications for errors, and logs diag- 
nostic error messages as required. 

3. Builds the display format as a 2-part table structure: 

a. Field Descriptor Table (FDT) - a table of descrip- 
tive field information including the symbolic name 
of the field. 

b. 3270 Data Stream - containing output data if 
provided, and 3270 device-dependent control 
information required for formatting all fields 
defined. 

4. Provides a printout of field names, in the order in 
which they must appear in the output record area 
if data from the Field Descriptor Table is required 
by the application program using the Display Format 
Facility. 

5. Produces a printout of all fields defined for input and 
the order in which they will appear in the input record 
area. 

6. Calculates and prints the following: 

a. Length of the output record area required in the 
DFF program 

b. Length of the input record area required in the 
DFF program 

c. Decimal length of the Field Descriptor Table 

d. Decimal length of the 3270 output data stream 

e. Decimal length of the 3270 input data stream 

7. Places the display format in a work file ($WORK) 
on disk and then invokes the Overlay Linkage Editor 
Librarian Phase ($OLBO) to catalog the display for- 
mat in an object library on disk. 



COMPONENTS - FOR SINGLE AND MULTIPLE FORMAT 
BUILDS, READ FROM SYSIN OR THE SOURCE 
LIBRARY 

The Display Format Generator consists of four components: 

• $CCPDF - DFGR Build Common Area (LOMMON), 

reads from SYSIN or the source library 
and opens files. 

• $CC2CR - DFGR reads from the SSOURCE file. 

• $CC2CF - DFGR prints and diagnoses display 

specifications. 

• $CC2CP - DFGR prints and copies to disk. 

The following describes these components and their 
functions. 



$CCPDF 

$CCPDF (Diagram 7M.0200) receives initial control when 
loaded by the user, then performs the following functions: 

1 . Builds the Overlay Linkage Editor communications 
area (LOMMON). 

2. Automatically allocates $SOURCE file if one is not 
specified. 

3. Opens $WORK and SSOURCE files. 

4. Copies data from SYSIN or the source library to 
SSOURCEfile. 

5. Finds and loads $CC2CR. 



SCC2CR 

For implementation of single or multiple format builds, see 
the IBM System/3 Communications Control Program Pro- 
grammer's Reference Manual, GC2 1-7579. 

$CC2CR (Diagram 7M.0300) receives control from $CCPDF, 
$CC2CF, $CC2CP, or $OLBO, then performs the following 
functions: 



1 . Finds and loads $CC2CF after $CC2CR. 

2. Reads display format specification statements from 
the SSOURCE file. 
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$CC2CF 

$CC2CF (Diagram 7M.0400) receives control from $CC2CR, 
then performs the following functions: 

1 . Logs and processes display format specification 
statements. 

2. Builds the display format in main storage. 

3. Builds the DFGR common area containing pointers 
and information about the display format being 
generated. 

4. Finds and loads $CC2CP if no terminating errors 
occurred. 

5. Finds and loads $CC2CR if a terminating error did 
occur. 



$CC2CP 

$CC2CP (Diagram 7M.0500) receives control from $CC2CF, 
then performs the following functions: 

1 . Logs information to the user about the display for- 
mat being generated. 

2. Copies the display format from main storage to a 
work file on disk ($WORK). 

3. Finds and loads the Overlay Linkage Editor Library 
Phase ($OLBO) if no terminating errors occurred. 

4. Finds and loads $CC2CR if a terminating error did 
occur. 
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cation area (LOMMON), 
opens files ($WORK 
and $SOURCE) and 
loads next phase 
($CC2CR) 
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$CC2CR 
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7M.0300 



Reads input statements 
from $SOURCE, and 
builds parameter list 
for next phase ($CC2CF) 




Legend: 
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Diagram 7M.0100 (Part 1 of 2). Overall Flow of DFGR (using single or multiple format builds) 
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$CC2CF 7M.0400 



Processes input state- 
ments and builds dis- 
play format in main 
storage. Builds a 
common area of data 
pointers and infor- 
mation for next 
phase ($CC2CP) 
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$CC2CP 



7M.050O 
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Diagram 7M.0100 (Part 2 of 2). Overall Flow of DFGR (using single or multiple format builds) 
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Contains general specifications of 
format being built. 



See Note 2 
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Field definition statement. 

Contains specifications of fields 
on an individual basis. 



Multiple format builds can be read (no 
delimiters between fields) from sysin 
or the source library. 



i Process i 



1 Build the Overlay Linkage Editor 
(OLE) communication area 
(LOMMON). 

2 Open $WORK and $SOURCE files. 



3 Pass control to $CC2CR. 




Output 



In-storage table 



OLE Common Area 

$WORK and $SOURCE file 
pointer and information pointer 
to CAM (compiler access method) 



Disk Output 



SSOURCE File 



Display control 
and field defini- 
tion statements. 



EXIT 
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Display control statement contents 



Required 



Display name 
Display size 



Optional 



Initial cursor position 

Clear before write 

Device 

Disk unit for output 

Printer line control 



Field definition statement contents 



Required 



Field name 
Field location 
Field length 
i isiu ciaSS/ type 



Optional 



Field data source 
Field data 
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Diagram 7M.0200. $CCPDF 
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i Process i 



1 Determine the end of a format 
build (when using multiple format 
builds). 



2 Pass control to $CC2CF. 



EXIT 



$CC2CF 
7M.0400 



Diagram 7M.0300. $CC2CR 
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In-core table 
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$WORK and $SOURCE file 
pointers and information, 
pointer to CAM (compiler 
access method) 



In-core table 



7-byte parameter list 



DFGR indicator byte, record buffer 
address, $CC2CP load address, and 
read error number 
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Called by 
$CC2CR 7M.0300 
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Overlay Linkage Editor 
(OLE) Common Area 



$WORK and SSOURCE file 
pointer and information, 
pointer to CAM (compiler 
access method) 



7-byte parameter list 



DFGR indicator byte, 
record buffer address, 
$CC2CP load address, 
and read error number 



Note 3: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21-0502. 



i Process i 




1 Scan for syntax errors. 

2 Check functional correctness of state- 
ments. 

3 Build common area of storage pointers 
to display being built. 

4 Build an FDT (field definition table) 
entry for each field in format. 

5 Build 3270 data stream based on input 
from statements. 

6 If no terminal errors were encountered, 
pass control to SCC2CP. 

7 In case of errors, go to EO J, or pass 
control to $CC2CR if there are more 
formats to process. 



i Output 




Error 
Exit 



Successful 
build exit 



\ 



EOJ 

(see note 3) 

or 

$CC2CR 

7M.0300 



J 



$CC2CP 
7M.0500 



DFGR common 
Pointers and 
information 
on FDT and 
data stream 
(display format) 



In-storage data area 



Display format 



FDT 



3270 
data stream 



In-storage table 



OLE Common Area 



$WORK and $SOURCE 
file pointer and informa- 
tion, pointer to CAM 
(compiler access method) 



Diaoram 7M.0400. SCC2CF 



■Input i 



Called by 
$CC2CF 
(7M.0400) 



XR1 



lt 



O 
T5 



DFGR common 



Pointers and 
information 



Display format 



FDT 



3270 data- 
stream (text) 



Overlay Linkage Editor 
(OLE) Common Area 



Work file pointer 
and information, 
pointer to CAM (com- 
piler access method) 



i Process i 






5 

o 



Scan FDT to describe the format of users 
output record area. 

Scan FDT to describe the format of users 
input record area. 

Calculate and print format information 
user needs for CCP assignment. 

Place the display format in a work file 
on disk. 

Place in OLE common area information 
needed to copy the format from the 
work file to the object library. 

If errors occur, go to EOJ or pass 
control to $CC2CR. 

If no errors occur pass control to 
$OLBO. 



Error exit 



Normal exit 



I 



T 



EOJ 

or 
$CC2CR 
7M.0300 



SOLBO- 

Overlay 

Linkage 

Editor 

Librarian— 

DSM function 



■ Output i 



I Pri.ited output 



I 



Output record area format 
Input record area format 
CCP assignment information 



Disk ol ;put 



$WORK- Work file 




In-storage table 



OLE common area 



Work file pointer 
and information, 
and format name and 
library information 



Diagram 7M.0500. SCC2CP 



Program Organization 

This section describes in detail the organization of the 
Display Format Generator routines. It includes both single 
and multiple format builds, read from sysin or the source 
library. Included in the following discussions are: 

• Module descriptions derived from listing prologs. 

• Main storage maps showing the layout of main storage 
at the time the routine being described has control 
(Figure 7-1). 

• Flowcharts showing the internal logic of the routine be- 
ing described. 



DSM supervisor 


Overlay linkage editor common 


$CCPDF code and I/O areas 


Main storage map for $CCPDF 


DSM supervisor 


Overlay linkage editor common 


$CC2CR code and I/O areas 



Main storage map for $CC2CR 



DSM supervisor 



Overlay linkage editor common 



SCC2CR code and I/O areas 



$CC2CF code and I/O areas 



DFGR common 



Field descriptor table (FDT) 
build area 



3270 data stream (text) 
build area 



Main storage map for $CC2CF 



DSM supervisor 


Overlay linkage editor common 


$CC2CP code and I/O areas 


DFGR common 


Field descriptor table (FDT) 


3270 data stream (text) 



Main storage map for $CC2CP 



Figure 7-1. Storage Layout of DFGR 
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Display Format Generator Build Common Area (LOMMON), 
Read from Sysin, the Source Library, and Open Files 
<$CCPDF) 

ENTRY POINT: CRDINP 
CHART: MV 
FUNCTIONS: 

- Builds the overlay linkage editor communications 
area (LOMMON). 

- Automatically allocates $SOURCE file if one was not 
specified. 

- Opens $WORK and $SOURCE files. 

- Reads the display format specifications from sysin or 
the source library, and copies to the $SOURCE file. 

- Loads the next phase of the DFGR <$CC2CR). 
INPUT: Display format specifications via system or the 

source library. (Sysin routines are described in IBM 
System/3 Disk Systems Control Program Logic 
Manual, SY21-0502.) 
OUTPUT: 

- Overlay linkage editor communications area 
(LOMMON). 

- $SOURCE file containing display control and field 
definition statements. 

EXITS: 

- Normal: Loads and passes control to the next phase 
of DFGR ($CC2CR). 

- Error: A terminal error causes a halt, followed by 
EOJ. Halt/syslog and system EOJ are described in 
IBM System/3 Disk Systems System Control Program 
Logic Manual, SY2 1-0502. 



Display Format Generator Read Single or Multiple For- 
mats from the $SOURCE File ($CC2CR) 

ENTRY POINT: BLDINP 
CHART: MW 
FUNCTIONS: 

- Reads display format specifications from the 
SSOURCE file. 

- Loads the next phase of the DFGR ($CC2CF) follow- 
ing $CC2CR. 

INPUT: Display format specifications via SSOURCE. (Data 
is moved into the $SOURCE file from SYSIN, or 
from the source library via $CCPDF.) 

OUTPUT: 

- Overlay linkage editor communications area (LOMMON). 

- A 7-byte parameter list containing information used by 
the next phase ($CC2CF). 



EXITS: 

- Normal: Loads and passes control to the next phase 
of DFGR <$CC2CF). 

- Error: A terminal error causes an error number to 

be placed in the parameter list. Control is then passed 
to the next phase ($CC2CF). 



Display Format Generator Print and Diagnose Display 
Specifications ($CC2CF) 

ENTRY POINT: BLDFMT 
CHART: MY 
FUNCTIONS: 

— Logs the display format specifications. 

— Diagnoses any errors in the specifications. 

— Builds the display format in main storage. 

— Builds the DFGR common area. 

— Calls the next phase of the DFGR ($CC2CP). 
INPUT: A 7-byte parameter list containing information 

used by this phase, and a display format specification 
read by a previous phase. 
OUTPUT: 

— Overlay linkage editor communications area 
(LOMMON). 

— A 2-part table which makes up the display format. 
The first part, the Field Descriptor Table (FDT), 
contains the names of the fields making up the dis- 
play format along with other field descriptive infor- 
mation. The second part of the table contains the 
3270 data stream for the display format. 

— DFGR COMMON, which contains information about, 
and pointers to, the display format being processed. 

— Diagnostic messages describing any error encountered 
while processing the display format specifications. 

EXITS: 

— Normal : Loads and passes control to the next phase 
of DFGR ($CC2CP). 

— Error: If a terminal error occurred, a message is 
given to the operator (halt/syslog) with the options 
to go to EOJ or build the next format (pass control 
to $CC2CR). Halt/syslog and system EOJ are 
described in IBM System/3 Disk Systems System 
Control Program Logic Manual, SY21-0502. 
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Display Format Generator Print and Copy to Disk ($CC2CP) 

ENTRY POINT: $CC2CP 
CHART: MZ 
FUNCTIONS: 

- Logs information about the display format being 
generated. 

- Copies the display format from main storage to a 
work file ($WORK) on disk. 

- Call the Overlay Linkage Editor Librarian Phase to 
place the format in the object library on disk. 
($OLBO is described in IBM System/3 Overlay Link- 
age Editor and Checkpoint/Restart Programs Logic 
Manual, SY21-0530.) 

INPUT: 

- The display format in main storage. 

- The DFGR common area, which contains informa- 
tion about the display format being generated. 

- On entry to $CC2CP, index register one points to 
DFGR common area, which contains pointers to the 
format. 

OUTPUT: 

- Printed output describing the display format just 
built. 

- A work file ($WORK) containing the display format. 

- Overlay Linkage Editor common area containing in- 
formation needed to catalog the display format in an 
object library. 

EXITS: 

- Normal: Loads and passes control to the Overlay 
Linkage Editor Librarian Phase ($OLBO). 

- Error: If a terminal error occurs, a message is given 
to the operator (halt/syslog) with the options to go 
to EOJ or build the next format (pass control to 
$CC2CR). Halt/syslog and system EOJ are described 
in IBM System Y3 Disk Systems System Control Pro- 
gram Logic Manual, SY2 1-0502. 
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SCC PDF 

****A1 ********* 

* * 

* ENTER * 

* * 

*************** 



.* LEVEL *. YES 

♦.LOCKED OUT OF.* 

♦.SCHEDULER.* 



*****A2* ********* 

* SET DTF FOR * 
♦REMOVABLE DISK * 

* <R1 » TO AUTO- * 

* ALLOCATE * 

* SSOURCE ♦ 
***************** 

I**** 
* * 
->* Gt * 

* * 
**** 

*****B2*#******** 

* * 

* WAIT FOR * 

->*SCHEDULER AREA * 

* TO FREE UP * 

* * 
***************** 



P2035 V 

*****A4 ********** 

* MOVE SPECIAL * 

* FILE NAME TO * 
*DTF FDR SPECIAL* 

* FILE OPEN * 

* * 
***************** 



* OPEN SPECIAL * 

* FILE FOR * 

* *SOURCE FILE * 
***************** 



* LOCK OUT * 
♦SCHEDULER FROM * 

* OTHER LEVEL * 

* * 
***************** 



•* WAS A *. 

•SOURCE 

FILE CARD 

.SPECIFIED. 



***** 
*002* 
* Bl* 



♦RESET SCHEDULAR* 

* LOCKOUT OF * 

* OTHER LEVEL * 

* * 
***************** 



1)* 



*****F1 ********** 

* SET DTF FOR 
♦FIXED DISK 

* TO AUTO- * 

* ALLOCATE * 

* S50URCE * 
*4i* ************** 



**** 



* Gl ♦-> 



**** 
P203S! V 

*****G1 ********** 

* MOVE SPECIAL + 

* FILE NAME TO * 

* DTF FOR AUTO- * 
+ ALLOCATE * 

* * 
** *************** 



*****H1 ********** 

* ALLOCATE A * 

* SPECIAL FILE * 

* FOR SS3U3CE * 

* FILE * 

* * 
***************** 



* H5 *-> 



**** 
P2160 V 

**#**G3********** 
♦NCENTR * 

* * 

* HALT/SYSLQG * 

* DISPLAY <HU» * 

* SUBHALT •03* * 
***************** 



* *. **** 




SPACE *. YES * * 




AVAILABLE •*-- — >* A* * 




.* * * 




*. ,* **** 


***** 


*. .♦ 


*0 03* 


* NO 


* G5* 



,*REMOV- *. 
,* ABLE DISK * 
*.(R1) CHECKED 
*,FOR ALLOC* 



P2150 V 

**+***?********** 

*NCENTR ♦ 



>* HALT/SYSLQG ♦- 

* DISPLAY 'HA' * 

♦ SUBMHALT * 01 " * 

***************** 



*#+*K3********* 

* ♦ 

* EXIT * 

* + 
*************** 



•* LEVEL *■ 

♦.LOCKED OUT OF. 

*. SCHEDULER.* 



*****C5 ********** 

* ♦ 

* WAIT FOR * 
->*SCHECULER AREA * 

* TO FREE UP * 

* + 
***************** 



*****D4**** ****** 

* * 

* LOCK OUT * 
♦SCHEDULER FROM * 

* OTHER LEVEL * 

* * 
***************** 



♦READ THE SCHDLR* 

* WORK AREA FOR * 

* FILE NAME * 

***************** 



.* THIS *. 
* THE ENTRY * 

FOR SPECIAL 
*. FILE .* 



*****G4********** 

* * 
♦CHANGE SPECIAL ♦ 

* FILE NAME TO * 
**SOURCE IN DTF * 

* * 
***************** 



* UPDATE FORMAT ♦ 
♦ENTRY IN SCHOLR* 

*TQ tSOURCE NAME* 
***************** 



*****J4********** 

* * 
♦RESET SCHEDULER* 

* LOCKOUT OF ♦ 

* OTHER LEVEL ♦ 

* * 
A**************** 



***** 
*002* 
* Fl* 
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♦RESET SCHEDULER* 

* LOCKOUT OF * 

* OTHER LEVEL * 

* * 
***************** 



*****C1 ********** 



* L3AD »S3URCE 

♦ DTP INTO REG 2 



***************** 



************** *** 



* OPEN SSOURGE 



***************** 



**** 
P2070 

*****ri ********** 



***************** 



♦ALLOCATE SWORK * 

* FILE * 

* * 
***************** 



♦open *work file* 

* * 

***************** 



*****Jl****+****+ 

♦SET UP (SOURCE * 

* OTF AND I OB * 

* POINTERS IN * 

* COMMON AREA * 

* * 
***************** 



*****K1 ********** 

* SET UP SWORK * 

* dtf and roe * 

* POINTERS IN * 

* COMMON AREA * 

* * 
***************** 



* * 
**** 

1 


*. 

9* 


YES 
* -» 

1 

V 


**** 

* * 

* A3 * • 

* * | 
**** 

P20Q5 V 

*****A3**** ****** 
*NCENTR * 


* A4 * 

* * 

**** 

L. 


V 

• ** 

AS *» 
* // * 


P2095 V 

***************** 
♦P2200 * 


SURCE 
RECEIVED 
*• .* 

*. .* 


* * 

* LOAD SSSSSC * 

* * 
***************** 


* PUT RECORD TQ * 

* S50URCE FILE * 

* * 
***************** 



**** 
P2100 

*****B2* ********* 

♦ * 
♦LOAD PARAMETER * 
♦LIST FOR SVSIN * 

♦ READ * 

♦ ♦ 
****** *********** 



* READ A RECORD * 

* * 
***************** 



***************** 



* H2 *-> 



**** 
P2110 V 

*****H2* ********* 
♦NCENTR * 

* „ * 

♦GIVE ERROR MSG + 

* FOR ERROR ON * 

♦ SSOURCE tNPUT * 
***************** 



****J2* ******** 

* * 

* EXIT * 

* * 
*************** 



* READ SOURCE * 

* NAME FROM SWA * 

* INDEX * 

***************** 



* LOAD SSSVSG * 

* * 
***************** 



+****D3***+**+**+ 
♦NCENTR * 

♦ GET FIRST ♦ 

♦ SOURCE RECORD * 

♦ * 
***************** 



***************** 



WAS *. YES 

SOURCE .* 

FOUND .* 



**** 

* * 

♦ 04 *-> 



WAS 

SOURCE 

FOUND 



♦ ♦** 
P2140 V 

*****G3********** 



SET UP A/* T 
PUT IN THE 

BUFFER 



***************** 



♦ PUT RECORD TO * 

♦ SSOURCE FILE * 

♦ * 
***************** 



*****J3********** 



***************** 



****K3********* 

* * 

* EXIT * 

* * 
*************** 



***************** 



* NO *«** 

| **** * * 

t ♦ ** «3* 

->* H2 ** * 

# * *«** 

**** 
P2130 

*****£ 5********** 
♦NCENTER * 

>* HALT /SYSLOG * 

♦ DISPLAY «HU» * 

♦ SUBHALR ■ 01* ♦ 
***************** 



V 

****FS ********* 

* * 

* EXIT * 

* * 
*************** 



>* HALT/SYSLOG * 

* DISPLAY «HU« * 

* SUBHALT «02" * 

***************** 



****H5 ********* 

* * 

* EXIT * 

* * 
*************** 



RETRY 


* , 


• * 


I 


.* 


| 


♦ • .* 


V 


* NO 


**** 






♦ * 






* A3* 






* • 






** + * 
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****K5*** ****** 

* * 

* EXIT * 

* * 
*************** 

to: ssspej 
eoj transient 



7-14 



P2200 

***#A2********* 

4 * 

* ENTER * 

* + 
*************** 



PP170 

****A5 ********* 

* * 

* ENTER * 

* * 
*************** 



*****B1*** ******* 

* * 
+ MOVE /* TO * 

* WRITE TO *< 

* SSOURCE FILE * 

* * 
***************** 



*****B5 ********** 



* SET UP IOB TO * 
♦POINT AT BUFFER* 



***************** 



***************** 

I**** 
* * 

->* Ha * 
* * 
**** 



*****C2* ********* 

* * 

* SET UP BUFFER * 
♦POINTER FOR 96 * 

* BYTE RECORD * 

* * 

***************** 



*****C5 ********** 



***************** 



*****D5*** ******* 



***************** 



***************** 



****+Fl ********** 

* SET UP BUFFER * 
•WITH REMAINING * 

* 64 BYTES OF * 

* RECORD * 

* * 
***************** 



**** 

* * 

* H2 * 

* * 

**** 



*****F2********** 
*P2170 * 



***************** 



*****G 2* ********* 

* SET UP BUFFER * 
*«ITH REMAINING * 

* 32 BYTES OF * 

* RECORD * 

* * 
***************** 



**** 

* * 

* H2 *-> 



***************** 



***** 
*001* 

* K2* 



* PUT BUFFER TO * 

* SSOURCE FILE * 

* * 

***************** 



*****F5 ********** 



***************** 



* WRITE * 

PAST END OF 
*. FILE •* 



**** 
P2250 V 

*****H2* ********* 



***************** 



P2260 

V 

****J2********* 

* * 

* RETURN * 

* * 
*************** 



***** 

♦ 001* 

* G3* 



*****J5* ********* 

* * 
+ * 

* ZERO BUFFER * 

* * 

* * 
***************** 



****K5********* 

* * 

* RETURN * 

* * 
*************** 
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**** 

* * 

* A3 * 

* * 
**** 



* A5 * 

* * 
**** 



**#*M ******** 

* 

* START 

* 
************** 



INP007 V 

****** 3********** 



***************** 



** + ** 
*003* 
* 131* 



♦LOAD *CC2CF DO * 

* NOT GIVE * 

* CONTROL * 

* * 

***************** 



*****C1 ********** 

* * 
♦SET FRSTRD AND * 

* STMT #1 * 

* INDICATORS ON * 

* * 
***************** 



♦MOVE RECORD 2S6* 
♦BYTES LEFT. IN * 
♦FRONT OF BUFF 1* 
* + 

***************** 



**** ; 
INPOaO V SEE NOTE 
*****C3********** 

* * * * 

* ♦ READ A * * 

* * SECTOR * * 

* *USING SCAM * ♦ 

* * * * 
***************** 



***** 

♦ 004* 

* Ell* 



-CONTINUATION 
*.QF F TYPE.* 

♦.CARD •* 



**** 
3LDMTP v 

*****D1 ♦** ******* 

* * 

* LOAD DTF * 

* ADDRESS INTO * 

* REGISTER 2 * 

* * 
***************** 



*****q 3 ********** 



***************** 



04-K4 
03-J5 

***** 

♦ 002* 

♦ K4* 
* * 



•* THIS 

* FIELD ON A 
♦.NEW LINE . 



.* FIRST *. YES 




♦ . .* 


*. .* 


*. .♦ 


04-KI * NO 


**** 




♦ 003* 




* K5 *-> 




* * 




**** 




INP005 V 


*****F1 ********** 


* * 


* MOVE PTRFRH * 


* INTO REGISTER ♦ 


* o^ 


E * 



***************** 



*****G1 ********** 

* STORE POINTER * 

* TO START OF * 

* RECORD IN * 
♦BUFFER TO WRITE* 

* TO DISK * 
******** ********* 



■96 BYTE 

RECORD IN 
. BUFFER 



* SET TO READ 
>* FIRST SECTOR 



***************** 



*****F2********** 



***************** 

I**** 
* * 
->* C3 * 

* * 
**** 



**** 

* * 

* A3 * 

* * 
**** 



*****J2********** 

* * 
♦SAVE DISPLACE- * 

->*MENT FDR DURING* 

* RECORDS * 

* * 
************** ,k** 



**** 

* * 

* A3 * 



NOTE: SEE IBM SYSTEM/E OVERLAY 

LINKAGE =0ITOR AND CHECKPOINT/RESTART 
PROGRAM LOGIC MANUAL. SY21-0530 



♦ MOVE ERROR * 

->*NUMBER INTO THE* 
♦PARAMETER LIST ♦ 

* + 
***************** 







***** 


INP025 .*. 




+ 002* 










**** 




.* REREAD *. NO 






♦ . ON .♦ 








* * 






**** 





*****G3 ********** 

* * 

* SET ON STMT*1 * 

* AND AFTRER ♦ 

* INDICATORS ♦ 

* * 
***************** 

I**** 
* * 

->* FI * 



* MOVE CURRENT * 

* LINE POINTERS * 

* TO PREVIOUS * 

* LINE * 

* * 
***************** 



*****F 5**** ****** 

* * 

* SAVE NEW * 

* CURRENT LINE * 

* POINTERS * 

* * 
***************** 



THIS A 

PARTIAL 

RECORD 



*****H5**** ****** 
♦ADJUST CURRENT * 

* LINE POINTERS * 

* FOR PARTIAL * 

* RECORD * 

* * 
***************** 





V 






.* . 


INP032 .*, 






J4 *. 


J5 *. 






*. 


.* * 






END OF *, 


NO .* COMMENT 


* 


YES 










• * 


*• 


* 


7 


• . * 


*. .* 




I 


* • .4 


*. .* 




V 


* NO 

! 


* 




***** 

♦ 002* 


V 






* B5* 



*****K3********** 

* * 

* SET ON NORECL * 

* AND ENDINP * 

* I NDICATORS * 

* * 
***************** 



1ST 

COMMENT, 
. STMT*! 
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01-JS 

03-F2 
04-Bl 
04-C2 
04- J5 
0I-K3 



***** 
*001* 
* K4* 



***** 

♦ 001* 

* K4* 



*****|Jl ********** 



***************** 



*.CONTINUATION • *- 



*+***C 2** ******** 

* * 

* SET ON * 
->* CONTINUATION * 

* INDICATOR ♦ 

* * 
***************** 



.* CON- *. 
,* TINUATION * 
->*.IN COLUMN 72 
♦.THIS CARD.* 



*****C4********** 

* * 

* SET * 

* CONTINUATION * 

* INDICATOR OFF * 

* + 
***************** 



4****0 3**** ****** 



* STORE RECORD * 
->* POINTER INTO * 

♦PARAMETER LIST * 

* * 
***************** 



*****C5 ********** 

* ADD 96 TO * 

* POINTER TO * 

* RECORD AND * 
♦STORE IN PTRERM* 

* * 
***************** 



*****D5 ********** 



AFTRER 
ON < AFTER 
. REREAD) • 



I N * • NO 



*****F1 ********** 



***************** 



*****G1 ********** 



***************** 



*****H1 ********** 

* * 

* SET TO READ * 

* FROM SECTOR * 

* INDICATED * 

* * 
***************** 



***** 

♦ 001* 

* C3* 



***************** 



*****£ 3********** 

* * 
♦MOVE PTR TO REC* 

* AND FLAG •RR* * 

* IN BUFFI * 

* * 
***************** 



***************** 



*****C3**** ****** 



•SUBTRACT I FROM* 
* SECTOR NUMBER * 



***************** 



***************** 



*****J3********** 

* * 

* STORE SECTOR * 

* NUMBER INTO * 

* BUFF 1 * 

* * 
***************** 



INP065 

*****E4*****^**** 
**CC2CF * 



* RETURN ON ARR * 

* * 
***************** 



INP070 V MY3/01/A1 
*****F5********** 
**CC2CF * 



* PASS CONTROL * 

* * 
***************** 



*****G5*** ******* 



*********«'******* 



*****HS ********** 

* * 
♦ZERO THE ERROR * 

* NUMBER SAVE * 

* AREA * 

* * 
***************** 



*****J5********** 

* SET OFF ALL * 

* INDICATORS * 
♦EXCEPT CONT. 6 * 
♦FIRST STATEMENT* 

* * 
***************** 



SEE IBM SYSTEM/3 OVERLAY 
LINKAGE EDITOR AND 
CH^CKPOINT/RESTART 
PROGRAM LOGIC MAMUAL. 
SY21-0330 



V SEE NOTE 
*****< 3* ********* 

* *WRITE BUFFl* * 

* *INTO FIRST * * 

* * SECTOR ♦ * — 

* *USING «CAM * * 

* * * * 
***************** 



***** 
*001* 
* Dl* 
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***** 

♦ 001 + 

* E4* 
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***** 

♦ 001 * 

* A5* 



**** 

* * 

* A5 * 1 

**** j 

V 
*****A5********** 

* * 

* SAVE LINE * 

* NUMBER TO * 

* DUPLICATE * 

* * 
***************** 



* DUP 
CARD A 
PARTIAL 
RECORD 



INP090 

+****B3 ********** 

* SAVE »SOURCE * 
+ SECTOR/ * 

>* DISPLACEMENT * 

* FOR PARTIAL * 

* RECORD * 
***************** 



***** 

♦ 004* 

* 04* 



***+*B5********** 

* * 

* SAVE POSITION * 
♦TO START DUPING* 



***************** 



*****C1 ********** 

* SAVE SSOURCE * 

* SECTOR/ * 

* DISPLACEMENT * 

* FOR COMPLETE * 

* RECORD * 
***************** 



.* THIS *. 

.* OUP CARD *. 

BEEN 

♦.PROCESSED,* 



**** 

* * 

* El *-> 



• * THIS *. 

DUP CARD 

BEEN 

.PROCESSED. 



**** 

* * 

* El * 

* * 

***+ 



D2 *. 
.♦THIS *. 
-* THE DUP *o YES 

*• CARD IN „* 

*. PROCESS .* 
*• NOW .* 
*• •* 
* NO 

♦ *** 
) *004* 
->* Jl * 



.* THIS *. 

.♦DUP CARD IN*. 

PROCESS 

* . NOW . * 



INP130 V 

****+C4** ******** 

* # 
*SET OP TO READ * 

* CURRENT LI.NE *< 

* LOCATION * 



6******* 



********* 



***** 

♦ 004* 

* Jl* 



.♦FIELDS *. 
* TO DUP ON * . 

LINE BEING 
♦.GENERATED.* 



* *♦♦ 

V 
*****DB ********** 

* * 
♦SET UP TO READ * 

* PREVIOUS LINE * 

* LOCATION * 

* * 
*********** ** **** 



.* FIRST *. 
• * L I NE * 
*, DEFINED AS A 
♦.DUP CARD .* 



*****E2* ********* 

* * 

* MOVE ERROR * 
>* NUMBER INTO * 

•PARAMETER LIST * 

* * 
***************** 



***** 

♦ 002* 

* 05* 



♦SAVE NUMBER OF * 

* FIELDS TO * 

* DUPLICATE * 

* * 
***************** 



■♦DUPING *. 
* LINES ♦ 

RATHER THAN 
*. FIELDS .♦ 



****** 



.♦FIELDS *. 



iNPiao 

* ****G2***Jj*** 

* SET INDICATOR * 

>* por DUPING *- 

* LINES * 

* * 
***************** 



*****H2********** 



* DUPING 4 

MORE THAN 1 
*• LINE .* 



*****F3 ********** 

* * 
♦SET OFF DUPING * 

* IN PROCESS * 

* INDICATOR * 

* * 
***************** 



V SEE NOTE 
*****G3* ********* 

* *HALT/SVSLOG* * 

* * TO PRINT * * 

* *END OF OUP * * 

* * MESSAGE * * 

* * ♦ * 
***************** 



***** 

♦ 004* 

* HI* 



***** 

♦ 004* 

* B3* 



***************** 



* LOAD BUFFER * 

* ADDRESS INTO * 

* REG 1 ♦ 

* * 
***************** 



*****F5**** ****** 



***************** 



*****G5********** 
■ * * * * 

* * READ A * * 

* * SECTOR * * 

* +USING SCAM * ♦ 

* * * * 
***************** 

SEE NOTE 2 



*****H5 ********** 



***************** 



***** 

♦ 001* 

* E4* 



SEE IBM SYSTEM/3 DISK 
5Y5TEM, SYSTEM CONTROL 
PROGRAM LOGIC MANUAL* 

SY21-0502 

SEE IBM SYSTEM/3 OVERLAY 
LINKAGE EDITOR ANO 
CHECKPOINT/RESTART PROGRAM 
LOGIC MANUAL i SY21-0 530 



* SET * 

* DI SPLACEMENT * 
♦FOR NEXT RECORD* 

* * 
***************** 
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***** 
*001* 
* B5* 



***** 

• 003* 

* E3* 



* A5 * ■ 

* * | 
**** V 

INP220 •*• 



,* START * 
*. DUP MESSAGE 
*. PR INTEO .* 



***** 

♦ 002* 

* B3* 



* DECREMENT * 
♦NUMBER OF LINES* 

* TO DUP BY I * 

* * 
***************** 



*****C3* ********* 



* NON- *• 

DUP *• NO 
CONDITION •* 7 

CARD .* 1 
*. .* 1 

*. .* V 


* * 
♦INCREMENT LINE * 
♦aEING DUPED BY * 

* 1 * 

* * 
***************** 


* VES ***** 
1 **** +002* 
j * * * BS* 
->* HI * * * 

* * * 
**** 


V 



SEE NOTE 

*****B5 ********** 

* * USE * * 

* *HALT/SYSLOG* * 

* * TO PRINT * * 

* * OUP CARD * * 

* * * * 
***************** 



■* NL/EM *. 
.♦DEFINED IN *. 
*. CONTROL 

*. CARD .* 



* SAVE LINE * 

* NUMBER OF THE * 

* CARD READ ♦ 

* * 
***,;, + ************ 



•♦MAXIMUM*^ 

NUMBER OF 

LINES 

. DUPED • 





* THIS *. 




**** 


♦ CARD 


BEYOND*. 


YES 


* ■ 




.INE 


BEING * 


*_— 


->* B3 


* 


» DUPPED . * 




* 




*• 


.* 




**** 



*****F1 ********** 



* E3 +-> 



* START *• 

DUP MESSAGE . 

*• PRINTED •* 



*****F3********** 



• + . 

04 *• 

.* * 

PREVIOUS 

LINE BEING 
• DUPED • 
*• •* 

*• .* 


*. 

* 


NO 

* -i 

1 

V 


V SEE NOTE 2 
*****D5**+******* 

* * USE * * 

* *HALT/SYSLOG* * 

* * TO PRINT * * 

* *ERR MESSAGE* * 

* * CG037 * * 
***************** 


* YES 
1 




***** 
*003* 
* C4* 














V 




* * 










***** 

♦ 003* 

* D5* 




* 






V 



* SAVE POSITION * 












♦ PRINT END OUP * 


* NUMBER OF THE * 












* MESSAGE * 


* CARD READ * 












* * 


* * 












* * 


********! 


******** 












********: 


******** 




. 


. *. 








INP205 




Gl *• 


G2 ** 










*****63********** 


•>♦ THIS *. 


• * * 










* * 


.♦ POSITION *. NO 


•* DUPING 


♦ * 


YES 




♦SET OFF DUPING * 






• 


*- 


- — -, 




* IN PROCESS * 


♦•POSITION •* 


♦•SPECIFIED.* 




1 




* INDICATOR * 


♦ • .* 


*, .* 






1 




* * 


*• . * 


*. •* 






V 




***************** 


* YES 


* NO 






♦ *** 








** * + 1 


| 






♦ 


* 






♦003* 1 








* A5 


* 






* G3 *->l 








♦ 


* 






* * s 


1 






**** 






**** 1 


V 














INP170 V 

*** * *H1 ********** 


• ♦• 

H2 *• 










t 
*****H3 ********** 


♦ * 


.♦MAXIMAM* 










♦SET UP TO READ * 


* SET OFF PRINT * 


.* NUMBER OF 


♦ • 




MO 




* FROM LOCATION * 


* MESSAGE * 


♦• FIELDS 




* 


-— — -i 




* OF THE DUP * 


* INDICATIORS * 


*• DUPED 


* 




1 




* RECORD * 


* ♦ 


*. •♦ 






1 




* * 


******** 


******** 


*• •* 






V 




***************** 


03-D2 




* YES 






***♦ 






♦ ♦* + 




1 **** 


♦ 


* 






♦0 3* 




1 * 




* 


♦ AS 


* 






* D3 *-> 




->* E3 


♦ 


♦ 


* 






♦ * 




* 




♦ 


**** 






**♦ + 




*♦*♦ 










INP172 

+*#+*Jl+ 


r 
********* 












*****J3* 


•f 

********* 
* * 



*****E5 ********** 

* * USE * * 

* *HALT/SYSLOG* * 

* * TO PRINT * ♦ 

* * THE START * * 

* *DUP MESSAGE* * 
***************** 



INP222 


• *• 




F5 *• 




* * 


YES .* 


DUPING 


*. 


BY LINES 


* 


SPECIFIED 



* UPDATE RECORD * 
♦POINTER TO NEXT* 

* RECORD « 

* * 
***************** 



*****K 1 ********** 
♦SET INDCTR BYTE* 

* FOR * 

* CONTINUATION * 

* ONLY * 

* * 
**»***♦♦****♦**** 



***** 
♦001 + 
* Fl* 



i SEE IBM SYSTEM/3 

OVERLAY LINKAGE 
EDITOR AND 
CHECKPOINT/RESTART 
PROGRAM LOGIC 
MANJAL SY2I-0530 

SEE IBM SYSTEM/3 
DISK SYSTEM, 
SYSTEM CONTROL 
PROGRAM LOGIC 

MANUAL SY21-0502 



* * READ H * * 

* * SECTOR * * 

* +USING SCAM * * 

* * * * 

***************** 



*****K3* ****♦***♦ 



***************** 







+ SET UP ♦ 






♦DUPLICATE LINE ♦ 






* IN RECORD * 






* * 






***************** 






| ♦*** 






( +002* 






->♦ B5 * 






* * 






**** 


■ *• 




INP210 


K4 ♦. 




**+**K 5* ********* 


.♦ *■ 




* * 


•♦ READ 

** * 


*. YES 


* LOAD * 


* 


♦ THE DUP CARD * 


♦ . .* 




* * 


*. .♦ 




***************** 


♦ NO 

I 




1 **** 
1 * ♦ 


V 




->♦ HI * 


***** 
+ 001 + 




* * 

**** 



*****G5 ********** 



***************** 



* SET UP * 
♦DUPLICATE NAME ♦ 

* IN RECORD * 

* * 
***************** 



*****J 5+ *****+*** 
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BLDFTM 

***+Ai ********* 
+ * 

* ENTER * 

* * 
*************** 



.♦ VALID ♦ ■ 

.♦CLEAR BEFOR*. 
• WRITE 
♦ . SPEC .♦ 



*****D1 ********** 



MV/06/A3 

*****A4***SS***** 

♦ERRPRO * 

* * 

->*6IVE MSG CG005 * 

* AND CONTINUE * 

* PROCESSING * 

***************** 



***************** 



*****Cl ********** 



■* MORE *. 
•* THAN ONE 
*. DEVICE 

♦.SPECIFIED. 



MY/06/A3 

*****B4********** 
♦ERRPRO * 

->*G11VE MSG CG029 ♦ 

* AND CONTINUE ♦ 

* PROCESSING * 

***************** 



***************** 



*****D1 ********** 

* * 
♦STORE INDICATORS 

♦ IN PARAMETER * 

* L I ST ♦ 

♦ ♦ 
***************** 



El *. 

. ♦ CCP ♦ . 
* RELATED 

PROGRAM IN 
♦. OTHER 

♦. LEVEL. ♦ 



♦ NO 



READCN V MY/05/A4 

*****P1 ********** 
♦REDPRT * 



***************** 



COFOtO 


.♦. 




HI *. 




* 


. ♦ 


VALID 


*. 


DISPLAY 


* 


NAME 



MY/0G/A3 

*****£ a* ********* 
♦ERRPRO * 

* * 

->*GIVE MSG CG034 * 

♦ AND CONTINUE ♦ 

♦ PROCESSING ♦ 
***************** 



MY/06/A3 

*****G2** ******** 
♦ERRPRO * 



+ MSG CG001 ♦ 

* * 

***************** 



MY/06/A3 
*****H2* ********* 
♦ERRPRO * 

* . * 

->*GIVE MSG CG002 * 

♦ AND CONTINUE ♦ 

♦ DIAGNOSTIC ♦ 

***************** 



ANY 
POINTER 
CONTROL 



MY/06/A3 
*****C4********** 
♦ERRPRO ♦ 

* * 

->*GKVE MSG CG006 * 

* AND CONTINUE * 

* PROCESSING ♦ 

***************** 



.♦CONVERTS. 
•♦AND SAVE NL*. 
*. AND PM 

♦ . ADDRESSES. ♦ 



■♦ ANY ♦• 
.♦INVALID NL ♦. 
. OR EM • 

+ . ADDRESSES. ♦ 



MY/06/A3 

**+**E5**** ****** 
♦ERRPRO * 

*-• — * 

->^GIVE ERROR MSG * 

♦ AND CONTINUE * 

* PROCESSING ♦ 
***************** 



♦INITIALIZE EDT ♦ 
♦AND TEXT BUILD ♦ 

♦ AREA ♦ 

♦ ♦ 
***************** 



DEF010 

4****n4*******4*4 

♦ PLACE ESCAPE* ♦ 

♦ COMMAND, AND ♦ 

♦ WCC IN TEXT ♦ 

♦ STREAM ♦ 

♦ * 
***************** 



♦ CURSOR 

FIELD NAME 
♦. GIVEN . 



MY/06/A3 
4****J3********** 

♦ERRPRO ♦ 

* . * 

->SGIVE MSG CG021 ♦ 

♦ AND CONTINUE ♦ 

♦ DIAGNOSTIC ♦ 

***************** 



VALID 

DI SPLAY 

SIZE 



MV/06/A3 

*****K2* ********* 
♦ER3PRO * 



MSG CG004 ♦ 

* 
**************** 



Chart MY (Part 1 of 6). DFGR Print and Diagnose Display Specifications ($CC2CF) 



7-20 



01-04 

03-F4 
***** 
*005* 
+ 61* 

* * 



DEF030 V MY/05/A4 
•***+Bl ********** 
♦REDPRT * 



******#***♦****** 



*****82* ********* 

* * 
•INCREMENT TABLE* 

* POINTER TO FF * 

* VALUE * 

* * 
***************** 



D% 



***** 
*006* 
* Bl* 



NO 



I **** 
*003* 
->* Bl * 
* * 
**** 
MY/06/A3 
*****D2* ********* 
*ERRPRO * 



*DEFINlTION "I*-- >*GIVE MSG CG02S 

♦.STATEMENT.* * AND CONTINUE * 

J, .* * DIAGNOSTIC * 

*. ,# ***************** 

VES I 



***** 
•0 03* 
* FS* 



♦POINT REGISTER * 

* 1 AT CARD * 

* LOCATION * 

* * 
***♦**>** ********* 



*****F'l ********** 

* * 

* LOAD TABLE * 

* POINTER INTO * 

* REGISTER 2 * 

* * 
*****:>*********** 



DEF034 •*• 

G2 ♦ • 

.* *• 
.REPETITION 



*****Hl ********** 

* * 
•INCREMENT TABLE* 

* POINTER TO EM * 

* VALUE * 

* * 
***************** 



*****H2* ********* 
♦SAVE REPETITION* 

* VALUE* SET ON • 

* INDICATOR FOR * 

* REPETITION * 

* * 
***************** 



DEF036 • ♦• 

.12 *. 
.♦PRINTER** 
.♦CONTROL ON 
>*. A »C* CARD 

♦. DEFINED . 



OEF03B 

*****K2* ********* 

* CONVERT LINE/ * 
•POSITION ON THE* 
♦CARD SPECIFIED ♦ 
♦TO A HEX VALUE * 

* * 
***************** 



.♦THIS CD*. 
.* SPECIFY *. YES 

. NEXT BUFFER .* 

*• POSITION .* 



*****8 3**«* ****** 

* * 

* MOVE LINE/ * 
♦POSITION VALJE * 

* TO HEX NUM ♦ 

* * 
****♦*♦♦♦♦***♦*♦♦ 



*****C 3**** ****** 

* CONVERT THE * 

♦ LINE/POSITION ♦ 

♦ VALUE TO A 3270* 
♦BUFFER ADDRESS * 

* ♦ 
***************** 



*****D3********** 

* MOVE 3270 * 
♦BUFFER ADDRESS ♦ 
♦FROM CINSTOR TO* 

* TEXT AREA ♦ 

* * 
***************** 



*****E 3**** ****** 



***************** 



*****F 3 ****♦**♦♦* 

* ♦ 
•MOVE EL«EM, OR * 

* FF VALUE TO * 

* TEXT AREA * 

* * 
***************** 



*****G3**** ****** 



* UPDATE TEXT ♦ 

♦ POINTER BY 4 ♦ 



***♦***♦*♦*♦♦♦*** 

I 

V 

**** 

* * 

* AB * 

* * 
*♦*• 

♦♦***J3********** 

* * 

* * 
->* GIVE ERROR * 

* * 

* * 
***************** 



•MOVE EL. EM, OR * 
— >* FF VALUE TO * 

* TEXT AREA * 

* * 
***************** 



*****B4********** 



***************** 



*****D4*** ♦*♦**** 



* UPDATE THE * 
♦POSITION CDUNT *<- 



******♦♦♦****♦♦*♦ 



NO .♦POSITION AT*. 

*. END OF LINE •* 

♦.ON SCREEN. ♦ 



♦UPDATE THE LINE* 
*NUMBER COUNT BY* 

* 1 * 

* * 
***************** 



*****C5 ♦*♦♦****** 

* SET THE ♦ 
♦POSITION COUNT * 

* TO FIRST * 

* POSITION ♦ 

* * 
******♦♦♦♦♦**♦♦♦♦ 



.♦REPEAT ♦• 



*****F4** ******** 



♦SET OFF REPEAT * 
*NL*S INDICATOR ♦<- 



***************** 



****+ES*****+***+ 



♦ DECREMENT THE * 
*NL REPEAT COUNTS 



***************** 



DONE 
INSERTING 
• NL«S 



* INSERT AN NL ♦ 
*- INTO THE TEXT * 

* AREA * 

* + 

***************** 



*****H5**** ****** 



♦UPDATE THE TEXT* 
+ POINTER BY 1 * 



***************** 

I 

V 

**** 

* * 

* AS * 

* * 
**** 
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**** 

* * 

* A3 * 

* * 



■ * VALID *. NO 
• FIELO NAME .+- — 

*■ •* 



HV/06/A3 

***<**B2* ********* 
♦GRRPRO * 

* ;___ „ 

->*GIVE MSG CG009 * 

* AND CONTINUE * 

* DIAGNOSTIC * 

***************** 



• * VALID 

• FIELD 
♦.LOCATION 



DEF090 

*****tt3********** 

* * 

* CONVERT FIELD + 

* LENGTH TO HEX * 



***************** 



DEF032 

*****Ci ********** 

* * 

* SCAN FOT FOR * 
♦NEXT AVAILABLE * 

* ENTRY SPOT * 

* * 
***************** 



DUPLICATE 

FIELD 
• NAME . 



MV/06/A3 
*****D2* ********* 

«ERRPRO * 

« . * 

->*GIVE MSG CGOIO * 

* AND CONTINUE * 

* DIAGNOSTIC * 

***************** 



OEF160 

*****D3********** 



♦SCAN FIELD TYPE* 
♦SPECIFICATIONS * 



***************** 



*****E1 ********** 



***************** 



* CONVERT FIELD * 
•LOCATION TO HEX* 



***************** 



MORE 
THAN ONE 
• TYPE 



MY/0G/A3 

******* ********** 
*ERRPRO * 

* 1 _ * 

->*GIVE MSG CG011 *-- 

* AND CONTINUE * 

* DIAGNOSTIC * 
***************** 



MY/06/A3 
*****C4********** 
♦ERRPRQ * 

* * 

->*GIVE MSG CG012 * 

* AND CONTINUE * 

* DIAGNOSTIC * 

***************** 



MY/06/A3 
*****E4 ********** 
*ERRPRO * 

* * 

->*GIVE MSG CG022 *-- 
* AND CONTINUE * 
+ DIAGNOSTIC * 
***************** 



MY/06/A3 
****4F4 ********** 
•ERRPRO * 



•GIVE MSG CG015 * 

* * 

***************** 



***** 
*003* 
* FS* 



•RESET INTERNAL 
>* INDICATORS 



***************** 

I**** 
*002* 
->* 61 * 

* * 
**** 
MY/06/A3 
*****G5********** 
*ERRPRO • 

* ...-* 

->*GIVE MSG CG014 * 

* AND CONTINUE * 

* PROCESSING * 

***************** 



.* 
.* 
* YES 



.* OVER *• 

MAXIMUM 

NUMBER OF 

* I NPUT . 

*.FLDS .* 
*. ,* 
* NO 



****H5********* 
*ERRPRO * 

->* -_— .* 



SPD *, NO 








• * 


V 


• * 


***** 


*• •* 


♦ 004* 


* YES 


* Bl* 



***** 

♦ 004* 

* B4* 
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*<»*** 

♦ 003* 

* J3* 



CLC015 V 

****+Bt ********** 

* ATTRIBUTE * 

* ADOP.ESS EQUALS * 
+ DATA ADDRESS * 

* MINUS ONE * 

* * 
***************** 



***** 

♦ 003* 

* J3* 



CLC070 V 

*****B4 ********** 

* CALCULATE * 

* ATTRIBUTE * 

* POSITION FOR * 

* SPD FIELD * 

* * 
***************** 



.♦OVERLAY*. 

PREVIOUS 

FIELDS .* 

.ATTRIBUTE. 



>*. 



PREVIOUS 
FIELD 
• OUTPUT 



.* SPD *• 
FIELD ALL 

ON ONE 
. LINE ■ 



*****D2* ********* 

* * 

* OVERLAY * 
♦PREVIOUS FIELDS* 

* END ATTRIBUTE * 

* * 
***************** 



*****D4* ********* 

* * 

* CHECK IF * 

* LEADING NULLS * 

* NEEDED * 

* * 
***************** 



CLC050 V 

*****E1 ********** 

* CONVERT DATA * 

* START ADDRESS * 

* AND STORE IN * 

* FOT * 

* * 
********** ******* 



CLC054 

*****F1 ********** 

* CONVERT * 

* ATTRIBUTE * 

* ADDRESS AND * 
♦PLACE XT IN FDT* 

* * 
********** ******* 



TOC005 V 

*****Gll ********** 

* SCAN TABLE OF * 

* ATTRIEJUTES FOR * 
*RIGHT MODE PLUS*- 

* TYPE * 

* * 
***************** 



E4 *• 
.* ROOM *• 
•* FOR NULLS *■ 
*• (IF 

*. NEEDED) •* 



* >*. 



****E5* ******** 
♦ERRPRO * 

MSG CG017 * 

*************** 



*****G2* ********* 



♦PLACE ATTRIOUTF* 
->*IN DATA STREAM * 



***************** 



TOC040 


• ♦• 




G3 ♦ 




♦ 


.♦ 


SPD 




FIELD 



****#G4********** 

* * 
♦MOVE DESIGNATOR* 

->*CHARACTER INTO * 

* DATA STREAM * 

* * 
***************** 



IS THIS 

CURSOR 

FIELD 



***** 
*005* 
* 01* 



MY/06/A3 

*•***! 15 ********** 
*ERRPRO * 

*„ • 

->*GIVE MSG CG023 * 

* ANO CONTINUE * 

* PROCESSING • 
***************** 



*****JA ********** 

* PLACE INSERT * 

* CURSOR * 

* CHARACTER IN * 

* DATA STREAM * 

* * 
***************** 



***** 
*005* 
* Bl* 
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04-H3 
04-HS 

♦ 004* 

* J4* 

* * 



REDPRT 

****A4 ********* 

* * 

* ENTER * 

* * 
*************** 



***************** 



***************** 



MV/06/A3 



* PAST *. YES 
DISPLAY END .♦ 



RE0005 V 

*****C4 ********** 
♦SCCPDF * 



***************** 



*****D2* ********* 



***************** 



*****D4 ********** 

* * 
♦MOVE INDICATOR * 

* FROM CALLING * 
♦PHASE TO $CC2CF* 

* * 
***************** 



****D5 ********* 

* * 

* RETURN * 

* * 
*************** 



Fl *. 

•* SPD *. 

.♦FIELD ON A *. 

■LINE WITH 16 .♦ 

♦. ATTRl- .* 

♦.BUTES.* 



*****G1 ********** 

♦ * 

♦ REINITIALIZE ♦ 

♦ SWITCHES AND * 

♦ SAVE AREAS ♦ 

♦ * 
***************** 



***** 

♦ 002^ 

♦ Bl* 



SEE IBM SYSTEM/3 
DISK SYSTEMS SYSTEM 

CONTROL PROGRAM LOGIC 
MANUAL, SY21-0502 



*****E2* ********* 

* * 
♦MOVE DELIMITER * 

->♦ ATTRIBUTE TO ♦ 

* TEXT STREAM ♦ 

* * 
***************** 



MY/06/A3 
*****F 2* ********* 
♦ERRPRO * 

*— * 

♦GIVE MSG CG026 ♦ 

♦ AND CONTINUE ♦ 

♦ DIAGNOSTIC ♦ 
***************** 



•♦ERRORS *. 

.♦IN PREVIOUS^. 

• PHASES • 

♦ > OFGR • ♦ 



♦ MOVE 

RECORDS TO 
♦• PROCESS • 



*****G4********** 

♦ MOVE RECORD ♦ 

♦ FROM PREVIOUS ♦ 

♦ PHASE INTO ♦ 

♦ BUFFER * 

♦ * 
***************** 



*****H4 ********** 



***************** 



*****J4 ********** 



*************** 



MY/06/A3 

*****ES ********** 
♦ERRPRO * 

>♦ GIVE MSGIN ♦ 

♦PARAMETER LIST * 

♦ AND CONTINUE * 
***************** 

I**** 
♦ 006* 
->♦ B4 * 

* * 

**** 

****FS ********* 

♦ + 
>♦ RETURN * 

♦ * 
*************** 
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***** 

♦ 002* 

* CI* 



ERRPRO 

****A3******#** 

* * 

* ENTER * 

* * 
*************** 



***** 
*005* 
* E5* 



. * ANY * • 
,* FIELD DEF *• N 
. INITION STMTS**- 
*. READ •* 



MY/06/A3 

****B2+******** 
♦ERRPRO * 



NLN010 


,«• 




Cl *. 




* ANY 


.* 


PRINTER 


*. 


LIME 


*. 


CONTROL 



*****C2* ********* 

* * 
♦CONVERT NL AND * 

->*EM AND PLACE IN* 

* TEXT STREAM * 

* * 
***************** 



Dl *• 

,*SPD ATM*. 

.♦PLUS INPUT *• 

*.DR O/I FLD IN. 

*. DISPLAY •* 



MY/06/A3 
*****02* ********* 
*ERRPRO * 

* * 

->*GIVE MSG026 AND* 

* CONTINUE * 

* DIAGNOSTIC * 

***************** 



CURSOR 
FIELD NOT 

. FOUND . 



MY/06/A3 

*****E2********** 
*ERRPRO * 

* * 

->*GIVE MSG CG02I * 

* AND CONTINUE * 

* PROCESSING * 
*+******♦****♦*** 



*****F1 ********** 

* CALCULATE FDT * 

* AND TEXT SIZE * 

* AND SAVE IN * 

* COMMON * 

* ♦ 
***************** 



♦****B3***+ **♦♦♦♦ 



♦SCAN TABLE FOR * 
♦CORRECT MESSAGE* 



***************** 



****C3********** 



***************** 



*****03********** 



* SET UP SYSLOG * 

♦PARAHERER LIST * 



***************** 



* *LOG MESSAGE* * 

* * USING * * 

* * SYSLOG * * 

* * * * 
***************** 



*****F3********** 

* * 

* SET ERROR * 

* SEVERITY * 

* INDICATOR * 

* * 
***************** 



EMS060 V SEE NOTE 

*****B4*** *♦****♦ 

* * HALT * * 

* * /SYSLOG * * 

* ♦«U-EE» WITH* * 

* *CONTINUE OR* * 

* *EOJ OPTION * * 
***************** 



.* MORE 
*. FORMATS TO 
*. PROCESS • 



♦***C5********* 

* * 

* EOJ * 

* * 
*************** 



*****DA**+******* 

* * 

* GO TO * 
♦SUPERVISOR AND * 

* LOAD *CC2CR * 

* * 
************♦♦♦*♦ 



ANY 

TERMINAL 
. ER«ORS 



****G2********* 
♦ERRPRO * 



.♦SEVERITY A 
TERMINAL 
*. ERROR 



****G4 ********* 

* ♦ 

* RETURN * 

* * 
*************** 



*****H1 ********** 



***************** 



*****J t ********** 

* ♦ 

* GO TO * 
♦SUPERVRSOR AND ♦ 

* LOAD »CC2CP * 

* ♦ 
***************** 



****<!♦♦♦ ****** 



*************** 



EMS070 V SEE NOTE 

*****H 3 ********** 

* * FLUSH * * 

* +STATEMENTS ♦ * 

* * TO NEXT ♦ * 

* * FORMAT OR * ♦ 

* * INPUT END * * 
***************** 



*****J3 ********** 

* * 
♦GIVE f NO FORMAT* 

* GENERATED* * 

* MESSAGE ♦ 

* * 
*********♦*♦♦♦*♦♦ 



SEE IBM SYSTEM/3 
DISK SYSTEMS 

SYSTEM CONTROL 
PROGRAM LOGIC 
MANUALt SY21-0502 
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**** 

* * 

* A3 * 

* * 
**** 



SCC2CP 

****A1 ********* 

* * 

* ENTER * 

* * 
*************** 



♦SAVE POINTER TO* 

* OFGR COMMON * 

* AREA * 

* * 
***************** 



*****C1 ********** 

* ZERO UNUSED * 
♦PORTION OF OLE * 

* COMMON AREA * 

* (LOMMON> * 

* * 
***************** 



* SKIP TO LINE * 

* ONE AND PI INT * 

* MAIN HEADING * 

* * 
***************** 



**4**fcl ********** 

* * 

* PRINT HEADING * 
♦FOR OUTPUT AREA* 

* DESCRIPTION * 

* * 
***************** 



*****F1 ********** 



***************** 



* 


* . 








* ANY * 


P^INT *. 


NO 




* 


EXECUTION 


LINE FULL . 


* 1 


* 




TIME DATA 


«* 


| 




♦ 


FIELDS 


** •* 


1 






*. .* 


*■ ■* 


V 






*• .* 


* YES 


**** 






* YES 






* * 






I 






* HI * 












* * 






| 






**** 









*****A4 ********** 



* SET INDICATOR * 
->*1N FDT CFOTNDTI* 



***************** 



*****B2* ********* 

* * 

* PRINT LINE OF * 

* OUTPUT AREA *- 

* DESCRIPTION * 

* * 
***************** 



PRINT 

BJFFER 

EMPTY 



INPOIO 

*****C4*** ******* 



***************** 



*****D4*** ******* 



***************** 



*****E4********** 

* * 

* MOVE IN •AID* * 
♦AS FIR5T INPUT * 

* ENTRY * 

* * 
***************** 

**** 

* * 

* F4 *-> 

* * 
**** 

INP020 V 

*****F4 ********** 

* * 

* SCAN FDT FOR * 
*NON OUTPUT ONLY* 

* FIELD * 

* * 
***************** 



*****B5* ********* 

* * 
♦PRINT LAST LINE* 

->*OF OUTPUT AREA * 

* DESCRIPTION * 

* * 
***************** 



*****G1 ********** 

* MOVE DISPLAY * 

* NAME IN AS • 

* FIRST OUTPUT * 

* AREA ENTRY * 

* * 
***************** 



* HI *-> 



**** 
OUT020 V 

*****H1 ********** 

* SCAN FOT FOR * 

* FIELD WITH * 
•EXECUTION TIME • 

* DATA * 

* * 
***************** 



OUT 03 


.*. 




Jl *. 




* *. •*** 




END OF *» YES * 




FDT .* >* A3 



INP040 

*****H4 ********* * 

* MOVE FIELD * 

* NAME, LNTH, * 

* POSITION TO * 

* PRINT LINE * 

* * 
***************** 



PRINT 


* 


YES 


BUFFER 




*-■ — , 


EMPTY 


.* 


I 


• •* 




| 


*. .* 




V 


* NO 




***** 








♦002* 








♦ 31* 








* * 








+ 



*****H5 ********** 

♦ * 
♦PRINT LAST LINE* 

* OF INPUT * 

♦ DESCRIPTION * 

* * 
***************** 



***** 
*002* 
* Bl* 



*****K1 ********** 

* MOVE FIELD * 
♦NAME. LNTH, AND* 

* LOCATION TO * 

* PRINT LINE * 

* * 
***************** 



**** 

* * 

* A2 * 

* * 
**** 



*****K4** ******** 

* * 

* PRINT LINE OF * 

* INPUT AREA * 

* DESCRIPTION * 

* * 
***************** 

I**** 
* * 
->* F4 * 
* * 
**** 
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**** 

* + 

* A2 * 



01 -H5 

***** 
+ 001* 
* G5* 



*****A2* ********* 

* * 

* CALCULATE AND * 

* PRINT INPUT + 

* TEXT LENGTH * 

* * 
***************** 



♦PRINT LENGTH OF* 

* OUTPUT RECORD * 

* HEADING * 

* * 
***************** 



*****C1 ********** 

* MOVE OUTPUT * 

* RECORD AREA * 

* LENGTH INTO * 

* BUFFER * 

* * 

***************** 



*****D1 ********** 

* * 

* * 

* PRINT BUFFER * 

* * 

* * 
***************** 

! 

*****e:i ********** 

* * 

*PRINT LENGTH OF* 

* INPUT RECPRO * 

* AREA HEADING * 

* * 
** *************** 



*****F1 ********** 

* MOVE INPUT * 

* RECORD AREA * 

* LENGTH INTO * 

* BUFFER * 

* * 

******!>!*** ******* 



*****£& ********** 

* * 

* - * 

* PRINT BUFFER * 

* * 

* * 
***************** 



*****H1 ********** 

* PRINT CCP * 

* ASSIGNMENT * 

* INFORMATION * 

* HEADING * 

* * 
******<********♦** 



*****J1 ********** 

* * 

* CALCULATE AND * 

* PRINT FDT * 

* LENGTH * 

* * 
***************** 



*****IK1 ********** 

* * 

* CALCULATE AND * 

* PRINT DATA * 

* STREAM LENGTH * 

* * 
***************** 



■*ANY *W> 
ERRORS 
DUR ING 

. BUILD 



->* 



SEE NOTE 
*****B3*** ******* 

* *HALT/SYSLOG* * 

* *fU-FI* HALT* * 
* WITH * * 
♦CONTINUE OR* * 

* *EOJ OPTION * * 
***************** 



*BUILD DIRECTORY* 

* IN OLE COMMON * 

* AREA * 

* * 
***************** 



* SET UP DTF TO * 
*PUT FDT TO WOEK* 

* FILE ON DISK * 

* * 
***************** 



*****D3 ********** 

* * 
♦SET BIT IN OLE * 

* COMMON TO * 

* RELOAD *CC2SR * 

* * 
***************** 



SEE IBM SYSTEM/3 

DISK SYSTEMS 

SYSTEM CONTROL PROGRAM 

LOGIC MANUAL* SY21-0502 



SEE IBM SYSTEM/3 
OVERLAY LINKAGE EDITOR 
AND CHECKPOINT/RESTART 
PROGRAMS LOGIC MANUAL. 
SY21-OS30 



*****E2***«****** 



***************** 



*****G2********** 

* * 

* SET UP DTF TO * 
♦PUT DATA STREAM* 

* TO WORK FILE * 

* * 
***************** 



*****£ 3********** 

* MOVE SCCSCR * 
♦LOAD PARAMETER * 

* LIST INTO OLE * 

* COMMON AREA * 

* * 
***************** 

**** 

* * 

* F3 *-> 

* * 
**** 

V 

*****F3********** 



***************** 



SEE NOTE 2 
V 

****G3********* 

* * 

* EXIT TO SOLBO * 

* * 
*************** 



**** 
. * * 

* F4 * » 

* * 
**+* I 

BLDOIO V 

*****F4 ********** 

* * 

* PRINT ERROR * 
♦MESSAGE FOR BAO* 

* PUT * 

* * 
***************** 



V SEE NOTE 
*****G4********** 

* +HALT/SYSLOG* * 

* *<u-£E* HALT* * 

* * WITH * * 

* ♦CONTINUE OR* * 

* *EOJ OPTION * * 
***************** 



*****H2* ********* 
♦PUT TEXT (3270 * 
*DATA STREAM) IN* 

* WORK FILE ON * 

* DISK * 

* * 
***************** 



J2 *• 
.* *. **** 

* WAS PUT *. NO * * 
SUCCESSFUL •* >* F4 * 



MORE 


*< 


NO 


RECORDS TO 




*— — ■ 


. PROCESS 


* 


I 


*. .* 




1 


*. •♦ 






* YES 

1 




**** 
* 
* F3 


V 

**** 




* 
**** 



* MORE *• 
RECORDS TO . 
*. PROCESS •* 



♦GOTO SUPERVISOR* 
*ANO LOAO SCC2CR* 



***************** 



****K********** 
•SCC2CR » 



SEE NOTE 1 

****H5********* 

* * 

* EOJ * 

* « 

*************** 
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Display Format Test Routine 
INTRODUCTION 

The Display Format Test Routine ($CCPDT) is a stand- 
alone program which is used to display DFF formats on an 
IBM 3270 Information Display System. It runs under the 
control of DSM and MLMP. Communication between 
$CCPDT and the 3270 is maintained using the Multiline/ 
Multipoint (MLMP) Binary Synchronous Communication 
(BSC) data link. 

$CCPDT uses the formats generated by the Display Format 
Generator Routine (DFGR). The formats must be in the 
object library of the production pack from which $CCPDT 
is loaded. 



METHOD OF OPERATION 

OCL Statements 

An initialized MLTERFIL must be on F1, for logging con- 
trol station terminal statistics. The OCL required to initial- 
ize MLTERFIL is: 

//LOAD$$BSFI,unit 

// FILE NAME-MLTERFIl r UNIT-F1 r PACK-pack, 
TRACKS-1,LOCATION-track number (optional), 
RETAIN-P 

//RUN 

The following OCL is required to run $CCPDT: 

// LOAD $CCPDT,unit 

//BSCALINE-2 

//RUN 

$CCPDT uses SYSIN as the input device. When $CCPDT is 
loaded, the following option menu is logged on SYSLOG: 

OPTION MENU 

A. SEND FORMAT TO TERMINAL 

B. READ FORMAT FROM TERMINAL AND PRINT 
IT 

C. GO TO EOJ 

D. SEND FORMAT TO TERMINAL, POLL, PRINT 
INPUT 

E. SEND FORMAT TO SYSTEM PRINTER 



Enter all options desired through SYSIN in any one of 
two forms below: 

OFFFFFFPPPPAAAA 

OFFFFFF* 

SCCPDT uses BSCA-1 . If the user wants to use the BSCA 
LINE-2 instead of BSCA LINE-1, include the optional 
BSCA LINE-2 statement in the OCL. To use the Integrated 
Communications Adapter (ICA) on the Model 8, the user 
must enter the // BSCA LINE-2 statement within the OCL. 
On Model 4, a prompt is issued that asks if this if BSCA. 

Data Input Records 

$CCPDT provides the user with two forms of input records 

and five options: 

Starting 

Position 

1. OFFFFFFPPPPAAAA 



10 
15 



1 
3 

10 



= 



F = 



P 
A 



A, B, C, D, or E (these are described 
in a following paragraph) 
Format name, which must begin with 
the characters $Z. The name must be 
at least three characters long but not 
more than six characters long. 
Poll characters 
Address characters 



2. OFFFFFF * 

= A, B, C, D, or E (these are described 

in a following paragraph) 
F = Format name, which must begin with 
the characters $Z. The name must be 
at least three characters long but not 
more than six characters long. 
= Default poll and address characters 

Note: If the poll and address characters are 
not specified, $CCPDT will use the previous 
specified poll and address character. In this 
way the user can send multiple formats to 
the same terminal. If the user does not 
specify the poll and address characters at 
least once, SCCPDT will default to the 
following characters: 

Poll characters = \/MM (40404040) 
Address characters = — M (60604040) 
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Options 

A. Send Format to Terminal 

$CCPDT reads the selected format. The format is then 
transmitted to a terminal. This option allows the user 
to view the format. This option does not allow input 
or output data to be received or transmitted. 

B. Send Format to Terminal, Read It Back and Print 
This option allows the user to test for invalid charac- 
ters within the text stream. $CCPDT reads the entire 
format from the terminal (read buffer) and prints it. 
The user should compare the format on the terminal 
sent to it by option A and the data portion (text 
stream) of the format printed. For an example, see 
the IBM System/3 Communications Control Program 
Programmer's Reference Manual, GC21-7579. 

C. Go to End of Job 

This option should be entered after the user has 
entered all other options to be used. $CCPDT will 
then go to end of job. 



D. Send Format to Terminal, Poll for Input and Print 
the Input Data Received 

$CCPDT sends the format to the terminal and 
MLMP polls the terminal for the input the user 
enters on the terminal keyboard. When attention 
is requested by the terminal operator by pressing 
either the ENTER, PA or PF key $CCPDT receives 
the modified data and prints it on the system printer. 
This is a means of verifying the modified data against 
what is being transmitted to $CCPDT. 

E. Send Format to System Printer 

$CCPDT reads the selected format and prints the 
entire format on the system printer. This allows the 
user to view the 3270 text stream and provides hard 
copy for documentation. 

Any format that the user wants to test must be in the 
object library or the production pack. Before a format is 
sent to a terminal or the printer, it is scanned for nulls 
('00'). In fields within formats defined as having execu- 
tion time data containing nulls, the nulls are replaced by 
asterisks. Also, in overlay formats with input fields con- 
taining nulls, these nulls are replaced by asterisks. Since 
nulls do not appear on the terminal, by replacing the nulls 
with asterisks the user is able to see the null fields. 
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2 
© 



■Input i 



Called by User 



Sysin device 

OFFFFFFPPPPAAAA 
OFFFFFF * 



Active program 
communication region 

NPQ 






Program pack 




Format ($ZXXXX) 



Note: See IBM System/3 Disk Systems System 
Control Program Logic Manual, SY21-0502 

Diagram 7M.0600. Overall Flow of DFTR ($CCPDT) 



i Process i 



1 Read data from sysin. If valid, process. 
If error, give message. 

2 Initialize IOB for reading directory. 



3 Read directory entry for Format. 



A. Send Format to Terminal 



B. Read Format from Terminal and 
print it (Read Buffer). 

C. Go to ECU. 

D. Send format to terminal, poll for 
input, print input data received 
(read modified). 



E. Send format to system printer 




Return 



PROGRAM ORGANIZATION 



DSM 



Initialization 



Process input data 



Syntax check input 



Read directory of format 



DTF's 



BUFFER'S 



. 



Messages, constants, etc. 



Main storage map for $CCPDT 



$CCPDT Module Description 

ENTRY POINT: DTOOOO 

FUNCTIONS: Displays DFF formats on a 3270 Informa- 
tion Display System 

INPUT: Option record via sysin 

OUTPUT: Format sent to terminal. Format sent to 
syslst. Input data from format logged on system 
printer. 

EXIT, NORMAL: System end of job routine. DSM EOJ 
is described in IBM System/3 Disk Systems System 
Control Program Logic Manual, SY2 1-0502. 
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Printer Format Generator 

INTRODUCTION 

The Printer Format Generator reads records generated from 
printer format specification sheets (using $CCPPF for single 
or multiple format builds), and creates a 3270 printer format. 
Printer format specifications can be read from the system in- 
put device or the source library. The Printer Format Genera- 
tor prints information for the user about the format as it is 
built. When the build is completed, the Printer Format 
Generator calls the Overlay Linkage Editor Librarian Phase 
($OLBO) to catalog the printer format into the object 
library. ($OLBO is described in IBM System/3 Overlay 
Linkage Editor and Checkpoint/Restart Programs Logic 
Manual, SY21-0530.) 

Two types of specification statements are prepared by the 
user to define a printer format: printer control statements 
and field definition statements. At least one printer control 
statement is required and it must precede all field definition 
statements. The printer control statement provides infor- 
mation about the entire printer format. Each field in the 
printer format must be defined on a field definition state- 
ment. The field definition statements define each field by 
name, length, and location. They also tell where data for 
each field is defined. 

The Printer Format Generator runs offline; that is, it does 
not run under the control of CCP, although the printer 
format it generates is used by the Display Format Control 
Routine (DFCR) that does run under CCP. The Printer 
Format Generator can run in either level of a DPF system. 
It can run while CCP is running in the other level unless 
PFGR will put a format on the pack from which CCP was 
loaded. 

The Printer Format Generator runs under System/3 DSM 
and requires 18K of main storage for execution. The 
Printer Format Generator requires a 2-track work file on 
disk called $WORK. The system in which the Printer 
Format Generator is running must contain the Overlay Link- 
age Editor Librarian modules. If reading display format 
specifications from the source library, a $SOURCE file is 
needed. If a $SOURCE file statement is not specified, a 
5-track $SOURCE file is automatically allocated. However, 
whether the $SOURCE file is specified or automatically 
allocated, this file has to be large enough to contain all 
printer format specifications. 



METHOD OF OPERATION 



Functions 



The Printer Format Generator performs the following 
functions (see Diagram 7M.0700 for an illustrated overview 
of the Printer Format Generator using single or multiple 
format builds read from sysin or the source library): 

1 . Reads printer format specification statements. 

2. Produces a printout of the specification statements, 
analyzes the specifications for errors, and logs diag- 
nostic error messages as required. 

3. Builds the printer format as a 2-part table structure: 

a. Field Descriptor Table (FDT)-containing descrip- 
tive field information including the symbolic name 
of the field. 

b. 3270 Data Stream-containing output data if 
provided, and 3270 device-dependent control 
information required for formatting all fields 
defined. 

4. Provides a printout of field names, in the order in 
which they must appear in the output record area 
if data from the Field Descriptor Table is required 
by the application program using the Display Format 
Facility. 

5. Calculates and prints the following: 

a. Length of the output record area required in the 
DFF program. 

b. Decimal length of the Field Descriptor Table. 

c. Decimal length of the 3270 output data stream. 

6. Places the printer format in a work file ($WORK) on 
disk and then invokes the Overlay Linkage Editor 
Librarian Phase ($OLBO) to catalog the printer format 
in an object library on disk. 
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Components-for Single and Multiple Format Builds, 
Read from Sysin or the Source Library 

The Printer Format Generator consists of four components: 

• $CCPPF - PFGR Build Common Area (LOMMON), 

reads from sysin or the source library and 
opens files. 

• $CC2CS - PFGR reads from the $SOURCE file. 

« $CC2CG - PFGR prints and diagnoses display 
specifications. 

o $CC2CQ - PFGR prints and copies to disk. 

The following describes these components and their 
functions. 



$CC2CG 

$CC2CG (Diagram 7M.1000) receives control from $CC2CS, 
then performs the following functions: 

1 . Logs and processes printer format specification 
statements. 

2. Builds the printer format in main storage. 

3. Builds the PFGR common area containing pointers 
and information about the printer format being 
generated. 

4. Finds and loads $CC2CQ if no terminating errors 
occurred. 

5. Finds and loads $CC2CS if a terminating error did 
occur. 



$CCPPF 

$CCPPF (Diagram 7M.0800) receives initial control when 
loaded by the user, then performs the following functions: 

1 . Builds the Overlay Linkage Editor communications 
area (LOMMON). 

2. Automatically allocates $SOURCE file if one is not 
specified. 

3. Opens $WORK and $SOURCE files. 

4. Copies data from sysin or the source library to 
$SOURCEfile. 

5. Finds and loads $CC2CS. 



$CC2CQ 

$CC2CQ (Diagram 7M.1 100) receives control from $CC2CG, 
then performs the following functions: 

1 . Logs information to the user about the printer format 
being generated. 

2. Copies the printer format from main storage to a work 
file on disk ($WORK). 

3. Finds and loads the Overlay Linkage Editor Library 
Phase ($OLBO) if no terminating errors occurred. 

4. Finds and loads $CC2CS if a terminating error did 
occur. 



$CC2CS 

For implementation of single or multiple format builds, see 
the IBM System/3 Communications Control Program 
Programmer's Reference Manual, GC21 -7579. 

$CC2CS (Diagram 7M.0900) receives control from $CCPPF, 
$CC2CG, $CC2CQ, or $OLBO, then performs the following 
functions: 

1 . Finds and loads $CC2CG after $CC2CS. 

2. Reads printer format specification statements from 
the $SOURCE file. 
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-J 
u 




Called by user 



$CCPPF 



J 



Called by $CC2CG, $CC2CO, 
or $OLBO 



7M.0800 



Builds overlay linkage 
editor (OLE) communi- 
cation area (LQMMON), 
opens files ($WORK 
and SSOURCE) and 
loads next phase 
($CC2CS) 



=> 



OLE 

common 

area 



=£> 



$CC2CS 



1 



7M.0900 



Reads input statements 
from SSOURCE, and 
builds parameter list 
for next phase ($CC2CG) 



=^ 



OLE 

common 

area 



^> 



7-byte 

parameter 

list 






Legend: 



4p> Control flow 
Z/^> Data flow 



Diagram 7M/)700 (Part 1 of 2). Overall Flow of PFGR (using single or multiple format builds) 



$CC2GC 



7M.1000 



Processes input state- 
ments and builds 
printer format in main 
storage. Builds a 
common area of data 
pointers and infor- 
mation for next 
phase ($CC2CQ). 




Reload $CC2CS 



$$CC2CQ 7M.1100 



Logs information to 

user. 

Places printer format 

on disk. 

Loads OLE ($OLBO). 




Reload $CC2CS 



OLE 
common 



$OLBO - Overlay Linkage Editor Librarian 



Move printer format 
from work file on 
disk to object library 
on disk 




EOJ Reload $CC2CS 



Diagram 7M.0700 (Part 2 of 2). Owall Flow of PFGR (using single or multiple format builds) 



a 

a 

3 
CD 

S 

o 



■H 

CO 



it 

05 



■Input i 



Called by User 



See Note 1 



Printer control statement. 

Contains general specifications of 
format being built. 



See Mote 2 



Field definition statement. 

Contains specifications of fields 
on an individual basis. 



Multiple format builds can be read (no 
delimiters between fields) from sysin 
or the source library. 



Notel: 



i Process i 



1 Build the Overlay Linkage Editor 
(OLE) communication area 
(LOMMON). 

2 Open SWORK and SSOURCE files. 



3 Pass control to SCC2CS. 



EXIT 



T 



Printer control statement contents 


Required 


Optional 


Printer name 


Platen length 


Printer size 


Lines per page 


Line length 


Multiple pages 




Vertical forms feed 




Disk unit for output 




Katakana 




Print/no-print 



$CC2CS 
7M.0900 



Note 2: 



Field definition statement contents 


Required 


Optional 


Field name 
Field location 
Field length 


Field data source 
Field data 
Repeat last char- 
acter continuation 



[Output ■ 
ln-storac 
OLE Coi 
=^> SWORK 



In-storage table 



OLE Common Area 



SWORK and SSOURCE file 
pointer and information pointer 
to CAM (compiler access method) 



Disk Output 



£> 



SSOURCE File 



Printer control 
and field defini- 
tion statements. 



Diagram 7M.0800. $CCPPF 



Called by 
$CCPPF 7M.0800 



ilnputi 



Disk Inpul 




SSOURCE File 



Printer control 
and field defini- 
tion statements 



i Hrocess i 



1 Determine the end of a format 
build (when using multiple format 
builds). 

2 Pass control to $CC2CG . 



=0 



EXIT 



i Output i 



In-storage table 



OLE Common Area 



SWORK and SSOURCE file 
pointers and information, 
pointer to CAM (compiler 
access method) 



In-storage table 



7-byte parameter list 



PFGR indicator byte, record buffer 
address, $CC2CQ load address, and 
read error number 
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$CC2CG 
7M.1000 



CO 



Called by 
$CC2CS 7M.0900 



■Input i 



Overlay Linkage Editor 
(OLE) Common Area 



SWORK and SSOURCE file 
pointer and information, 
pointer to CAM (compiler 
access method) 



■ Process i 







7-byte parameter list 


1 




XR1 




PFGR indicator byte, 
record buffer address, 
$CC2CQ load address, 
and read error number 








1 Scan for syntax errors. 

2 Check functional correctness of state- 
ments. 

3 Build common area of storage pointers 
to display being built. 

4 Build an FDT (field definition table) 
entry for each field in format (except 
for F type fields). 

5 Build 3270 data stream based on input 
from statements. 

, 6 If no terminal errors were encountered, 
pass control to $CC2CQ. 

7 In case of errors, go to EOJ, or pass 
control to $CC2CS if there are more 
formats to process. 



Error 
Exit 



Successful 
build exit 



Note 3: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21 -0502. 



Diagram 7M.1000. $CC2CG 



J 



EOJ 

(see note 3) 

or 

$CC2CS 

7M.0900 



T 



$CC2CQ 
7M.1100 



i Output 




PFGR common 
Pointers and 
information on 
FDT and data 
stream (printer 
format) 



I n-storage data area 



Printer format 



FDT 



3270 
data stream 



I n-storage table 



OLE Common Area 



SWORK and SSOURCE 
file pointer and informa- 
tion, pointer to CAM 
(compiler access method) 



■inputi 



Called by 

$CC2CG 

(7M.1000) 



XR1 |_J 



o 

3 

CO 



PFGR common 



Pointers and 
information 



Printer format 



FDT 

3270 data- 
stream (text) 




Overlay Linkage Editor 
(OLE) Common Area 



Work file pointer 
and information, 
pointer to CAM (com- 
piler access method) 



i Process i 



Scan FDT to describe the format of users 
output record area. 

Scan FDT to describe the format of users 
input record area. 

Calculate and print format information 
user needs for CCP assignment. 

Place the printer format in a work 
file on disk. 

Place in OLE common area information 
needed to copy the format from the 
work file to the object library. 

If errors occur, go to EOJ or pass 
control to $CC2CS. 

If no errors occur pass control to 
SOLBO. 



Error exit 



Normal exit 



T 



T 



EOJ 
or 
$CC2CS 
7M.0900 



SOLBO- 

Overlay 

Linkage 

Editor 

Librarian— 

DSM function 



i Output 




<0 



Diagram 7M.1 100. $CC2CQ 



PROGRAM ORGANIZATION 

This section describes in detail the organization of the 
Printer Format Generator routines. It includes both single 
and multiple format builds, read from sysin or the source 
library. Included in the following discussions are: 

• Module descriptions derived from listing prologs. 

• Main storage maps showing the layout of main storage 
at the time the routine being described has control 
(Figure 7-2). 

• Flowcharts showing the internal logic of the routine 
being described. 



DSM supervisor 



Overlay linkage editor common 



$CCPPF code and I/O area 



Main storage map for $CCPPF 



DSM supervisor 



Overlay linkage editor common 



$CC2CS code and I/O area 



Main storage map for $CC2CS 



DSM supervisor 



Overlay linkage editor common 



$CC2CS code and I/O areas 



$CC2CG code and I/O areas 



PFGR common 



Field descriptor table (FDT) 
build area 



3270 data stream (text) 
build area 



Main storage map for $CC2CG 



DSM supervisor 



Overlay linkage editor common 



$CC2CQ code and I/O areas 



PFGR common 



Field descriptor table (FDT) 



3270 data stream (text) 



Figure 7-2. Storage Layout of PFGR 



Main storage for $CC2CQ 
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Printer Format Generator Build Common Area (LOMMON), 
Read from Sysin, the Source Library, and Open Files ($CCPPF) 

ENTRY POINT: CRDINP 
CHART: M1 
FUNCTIONS: 

— Builds the overlay linkage editor communications 
area (LOMMON). 

— Automatically allocates $SOURCE file if one was 
not specified. 

— Opens $WORK and $SOURCE files. 

— Reads the printer format specifications from sysin 
or the source library, and copies to the $SOURCE 
file. 

— Loads the next phase of the PFGR ($CC2CS). 
INPUT: Printer format specifications via system or the 

source library. (Sysin routines are described in 
IBM System/3 Disk Systems Control Program Logic 
Manual, SY21-0502.) 
OUTPUT: 

— Overlay linkage editor communications area 
(LOMMON). 

— $SOUFICE file containing printer control and field 
definition statements. 

EXITS: 

— Normal: Loads and passes control to the next phase 
of PFGR ($CC2CS). 

— Error: A terminal error causes a halt, followed by 
EOJ. Halt/syslog and system EOJ are described in 
IBM System/3 Disk Systems System Control Program 
Logic Manual, SY21-0502. 



Printer Format Generator Read Single or Multiple Formats 
from the $SOURCE File ($CC2CS) 

ENTRY POINT: BLDINP 
CHART: M2 
FUNCTIONS: 

— Reads printer format specifications from the 
$SOURCEfile. 

— Loads the next phase of the PFGR ($CC2CG) 
following $CC2CS. 

INPUT: Printer format specifications via $SOURCE. (Data 
is moved into the $SOURCE file from sysin, or from 
the source library via $CCPPF.) 

OUTPUT: 

— Overlay linkage editor communications area (LOMMON). 

— A 7-byte parameter list containing information used by 
the next phase ($CC2CG). 

EXITS: 

— Normal: Loads and passes control to the next phase of 
PFGR ($CC2CG). 

— Error: A terminal error causes an error number to be 
placed in the parameter list. Control is then passed to 
the next phase ($CC2CG). 



Printer Format Generator Print and Diagnose Display 
Specifications ($CC2CG) 

ENTRY POINT: BLDFMT 
CHART: M3 
FUNCTIONS: 

— Logs the printer format specifications. 

— Diagnoses any errors in the specifications. 

— Builds the printer format in main storage. 

— Builds the PFGR common area. 

— Calls the next phase of the PFGR ($CC2CQ). 
INPUT: A 7-byte parameter list containing information 

used by this phase, and a printer format specification 
read by a previous phase. 
OUTPUT: 

— Overlay linkage editor communications area 
(LOMMON). 

— A 2-part table which makes up the printer format. 
The first part, the Field Descriptor Table (FDT), 
contains the names of the fields making up the dis- 
play format along with other field descriptive infor- 
mation. The second part of the table contains the 
3270 data stream for the printer format. 

— PFGR COMMON, which contains information about, 
and pointers to, the printer format being processed. 

— Diagnostic messages describing any error encountered 
while processing the printer format specifications. 

EXITS: 

— Normal: Loads and passes control to the next phase 
of PFGR ($CC2CQ). 

— Error: If a terminal error occurred, a message is 
given to the operator (halt/syslog) with the options to 
go to EOJ or build the next format (pass control to 
$CC2CS). Halt/syslog and system EOJ are described 
in IBM System/3 Disk Systems System Control Pro- 
gram Logic Manual, SY21-0502. 
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Printer Format Generator Print and Copy to Disk ($CC2CQ) 

ENTRY POINT: $CC2CQ 
CHART: M4 
FUNCTIONS: 

— Logs information about the printer format being 
generated. 

— Copies the printer format from main storage to a 
work file ($WORK) on disk. 

— Call the Overlay Linkage Editor Librarian Phase to 
place the format in the object library on disk. 
($OLBO is described in IBM System/3 Overlay Link- 
age Editor and Checkpoint/Restart Programs Logic 
Manual, SY2 1-0530.) 

INPUT: 

— The printer format in main storage. 

— The PFGR common area, which contains infor- 
mation about the printer format being generated. 

— On entry to $CC2CQ index register 1 points to 
PFGR common area, which contains pointers to 
the format. 

OUTPUT: 

— Printed output describing the printer format just 
built. 

— A work file ($WORK) containing the printer format. 

— Overlay Linkage Editor common area containing 
information needed to catalog the printer format 
in an object library. 

EXITS: 

— Normal: Loads and passes control to the Overlay 
Linkage Editor Librarian Phase ($OLBO). 

— Error: If a terminal error occurs, a message is given 
to the operator (halt/syslog) with the options to go 
to EOJ or build the next format (pass control to 
$CC2CS). Halt/syslog and system EOJ are described 
in IBM System/3 Disk Systems System Control Pro- 
gram Logic Manual, SY2 1-0502. 
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**** 

* * 

* A2 * 

* * 
**** 



tCCPPF 

****A1********* 

* * 

* ENTER * 

* * 
*************** 



Bl *. 

.* MY *. 

.* LEVEL *. 

♦.LOCKED OUT OF. 

♦.SCHEDULER.* 

*. .* 

*. .* 

NO 



■»■ jc i \j ( r run » 
♦REMOVABLE DISK * 

* (ftl) TO AUTO- * 

* ALLOCATE * 



I**** 
* * 

->* Gl * 

* * 

*****&2 ********** 



********** ******* 



*****C i********** 

* * 

* LOCK OUT * 
►SCHEDULER FROM * 

* OTHER LEVEL * 

* * 
***************** 



P2035 V 

*****A4 ********** 

* MOVE SPECIAL * 

Joff.'-EoirspEc.AL: 

* FILE OPEN * 

* *. 
***************** 



*****B4********** 

* * 
» OPEN SPECIAL * 

* FILE FOR * 

* tSOURCE FILE * 

* * 
***************** 



C4 *. 
.* MY *. 
.* LEVEL *. ¥ 

*. LOCKED OUT OF.*- 

*. SCHEDULER.* 

*. .* 

*. .* 

* NO 



*****C5 ********** 

* * 

* WAIT FOR * 
->*SCH£DULER AREA * 

* TO FREE UP * 

* * 
***************** 



• 002* 

* Bl* 



01 *. 

.* HAS A *. 
SSOURCE *. 
FILE CARD . 
.SPECIFIED.* 
*• ■* 
*. .* 
NO 



P20:I0 V 

*****E1********** 

*RES£T SCHEDULAR* 

* LOCKOUT Of * 

* OTHER LEVEL * 
» * 

****************** 



M****FL********** 

* SET OTF FOR * 
"FIXED DISK (Fll* 
» TO AUTO- * 

« allocate * 

* *source * 
a**************** 



**** 

P2032 V 

*****Gi ********** 
" HOVE SPECIAL * 
» FILE NAME TO * 

* DTF FOR AUTO- * 

* ALLOCATE * 

* * 
***************** 



*****H1 ********** 

* ALLOCATE A * 

* SPECIAL FILE * 

* FOR $ SOURCE * 

* FILE * 

* * 
***************** 



V 
.*. 
Jl *. 
.* *. **** 

.* SPACE *. YES * * 

*. AVAILABLE .* >* A4 * 

*• .* * * 

*• .* **** 



*****04********** 

* * 

* LOCK OUT * 
*SCHEOULER FROM * 

* OTHER LEVEL » 

* * 
***************** 



•READ THE SCHOLR* 

* WORK AREA FOR * 

* FILE NAME * 

* * 
***************** 



**** 
*003* 
* H5 *-> 



.* 
YES 



**** 
P2160 V 

*****G3********** 
*SYSLOG * 

* * 

* *HALT/SYSLOG* * 

* * DISP HU * * 

* *SUBHALT 03 * * 

***************** 



* NO 



Kl *. 
.*REMOV- *. 
..* ABLE DISK *. YES 

*.IRlT CHECKED .* 

• -FOR ALLOC* 
*• .* 



***** 
*003* 
* 65* 



.* THE ENTRY *. NO 
*. FOR SPECIAL .* — 
*. FILE .* 



*****G4 ********** 



FILE NAME TO * 
♦♦SOURCE IN DTF * 

* * 

***************** 



*****H4********** 

* * 

* UPDATE FORMAT * 
♦ENTRY IN SCHOLR* 
♦TO SSOURCE NAME* 

* * 
***************** 



*****J4********** 

*RESET SCHEDULER* 

* LOCKOUT OF * 

* OTHER LEVEL * 

* * 
***************** 



V 
***** 

• 002* 

* FI* 



* NO 



->* *HALT/SYLOG * *- 

* 'DISPLAY HA * * 

* *SUB HLT 01 * * 
***************** 



****K3********* 

* * 

* EXIT * 

* * 
*************** 

e8j TRANSIENT 



**** 

* * 

* A2 * 

* * 
**** 
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**** 

* * 

* A2 * 

**** 



***** 

*001* 

* Dl* 

* * 



A2 *. 

•* // ♦ - 

.* SOURCE ♦ . V 

*. .♦- 

*- RECEIVED .* 



*****A3********** 



->* LOAD **SSSC * 



♦RESET SCHEDULER* 

* LOCKOUT OF * 

* OTHER LEVEL * 

* * 

***************** 



*****C i********** 



***************** 



*****oi********** 



ALLOCATE 
$SOURCE FILE 



***************** 



*****E1 ********** 



OPEN SSOURCE 
FILE 



***************** 

**** 1 
*001* I 

* d4 *->( 

* * 1 

**** | 

P2070 V 

*****FI ********** 

* * 
*LOAD SWORK DTF * 

* INTO REG 2 * 



***************** 



*+***Gl ********** 



***************** 



*****H1********** 

* * 

♦OPEN $HORK FILE* 

* * 

* * 
***************** 

! 

**** 

* * 

* A2 * 

* * 
*•** 



♦LOAD PARAMETER * 
♦LIST FOR SYS1N * 

♦ READ * 

* ♦ 
***************** 



*****C2********** 



READ A RECORD 
(USING CAM) 



***************** 



02 *. 
.♦ ♦. 

* * 

READ OK 

*. „* 

♦ . .♦ 

♦ • .♦ 

♦ YES 



V M1/03/A2 

*****E 2******"**** 
♦P2200 ♦ 

* .-* 

♦ PUT RECORD TO * 

♦ *SOURCE FILE * 

♦ ♦ 
***** ************ 



♦. HARDWARE -♦ 
♦. ERROR .* 


♦ . .♦ 


♦ . .♦ 


* YES 


**** 




* * 




♦ H2 *-> 




* ♦ 




♦♦♦♦ 




P2110 t 


*****H2^ 


********* 



♦GIVE ERROR MSR * 

* FOR ERROR ON * 

» JSOUftCE INPUT * 

* * 

***************** 



****j2********* 

* * 

* EXIT * 

* * 
*************** 



***************** 



***** B 3********** 

♦tssssc * 

* * 

* * RD SOURCE * * 

* * NAME FROM * * 

* » SKA INDEX * * 

***************** 



*****C3********** 

* * 

* * 

* LOAD »$SYSG * 

* * 

* * 
***************** 

**** 

* * 

* D3 *-> 

* * 
**** 

P2085 V 

*****D3 ********** 
*NCENTR * 

* * 

* SET FIRST * 

* SOURCE RECORD * 

* * 

***************** 



P2090 V MI/03/A2 

*****A4********** 

*P2Z00 * 

* * 

* PUT RECORD TO * 

* JSOURCE FILE * 

* * 
***************** 



*****B4********** 



♦GET RECORD FROM^ 
* SOURCE * 



***************** 
**** 



**** V 
P2105 .,.*• 

CA *• 



SOURCE ♦. Y 
MEMBER .*- 
. FOUND .♦ 
*. •* 
*. .* 
* NO 



FIXED *. YES 

UNIT .* 



E3 



*. 



SOURCE ♦. NO 

GET ROUTINE .♦ 7 

». FOUND .* 
*. .* 

*. .* V 

* YES **♦ 



» C« * 
* * 

♦*♦* 



* A4 * 

* * 
**♦* 



**** 

* * 

* G3 * i 

* * 

**** 1 

P2140 V 

*****G3«********* 

* * 

* SET UP A/* TO ♦ 
>* PUT IN THE ♦ 

* BUFFER * 

* * 
***************** 



V M1/03/A2 

*****H3**+******* 
*P2200 * 

* * 

* PUT RECORD TO ♦ 

* 1S0URCE FILE ♦ 

* * 
***************** 



*****J3********** 



♦LOAD $CC2CS AT * 
♦LOMMON PLUS 512* 



***************** 



****K3********* 

* * 

* EXIT * 

* * 
*************** 



• * *. 

.* * 

*. REMOUNTABLE 

*. UNIT .♦ 

*. .* 

*. .* 

YES 



*****H4*****++^* 



HALT/SYSLOG 
DISPLAY 'H' 



***************** 



D5 *. 

.* *- 
.* *. YES 
— >*. EOF .* 7 

*. •* 
*. .♦ 

*. .* V 
* NO **** 
i **** * * 
I * ** G3* 
->* H2 *♦ » 
* * ***« 
**** 
P2130 

#****E 5 ********** 

* HALT /SYSLOG ♦ 
— >* DISPLAY 'HU* * 

* SUBHALR '01* « 

* * 
***************** 



****F5********* 

* * 

* EXIT ♦ 

* * 
************♦♦♦ 

TO: |$SP6J 
EOJ TRANSIENT 



*****G5********** 

* * 

* HALT/SYSLOG * 
->* DISPLAY "HU" ♦ 

» SUBHALT '02' * 

* * 
***************** 



***+H5+****++++ 

* * 

* EXIT * 

* * 
*************** 

TO! $$SPEJ 
EOJ TRANSIENT 



.* *. YES 

— >*. RETRY .* 7 



..'• J. 



**** 

• ♦ 

♦ D3 + 

* ♦ 
♦ ♦♦♦ 



****K5********* 

* * 

* EXIT ♦ 

* * 
*************** 

TO! StSPEJ 
EOJ TRANSIENT 
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P2200 

****A2 ********* 

* * 

* ENTER * 

* * 
*************** 



P2170 

****A5 ********* 

* * 

* ENTER * 

* * 
*************** 



*****B I ********** 

* * 

* MOVE /* TO * 

* WRITE TO *< 

* (SOURCE FILE * 

* * 
***************** 



*****C i********** 
♦P2170 * 



*****B5********** 



*. .* 
*. .* 

NO 



* SET UP 

•POINT AT 



FFER* 



***************** 



*****CS ********** 



***************** 

I**** 
* * 
->* H2 * 

* * 
**** 



P2230 H1/03/A5 
*****E1 ********** 
♦P2170 * 

* * 

* PUT BUFFER TO *<- 

* DISK * 

* * 
***************** 



*****F1 ********** 

* SET UP BUFFER * 
•WITH REMAINING * 

* 6* BYTES OF * 

* RECORO * 

* * 
***************** 



* M2 * 

* * 
**** 



***************** 



.*. 

D2 *. 
.* *. 
* 96 *. YES 

*.?n Suffer.*'* 

*, .* 
*. .* 

NO 



"WJEE" 



.*. 

E2 *. 
.* *. 
YES .* 32 * 

*. BYTES FIT 

*.IN BUFFER.* 
*. .* 



V M1/03/A5 

*****F2*4******** 
*P2170 * 

* * 

* PUT BUFFER TO * 

* DISK * 

* * 
***************** 



*****G2********** 

* SET UP BUFFER * 

* WITH REMAINING * 

* 32 BYTES OF * 

* RECDRO * 

* * 
***************** 



* H2 * 

* * 
**** 



- M1/C3/A5 
*****E3********** 
*P2170 * 



***************** 



***** 
*001* 
* K2* 

* * 



***************** 



*****D5********** 



***************** 



* *PUT BUFFER * * 

* *T0 JSOURCE * * 

* * FILE * * 

***************** 



*****P5 ********** 



UPDATE SECTOR 
NUMBER BY ONE 



***************** 



V 

.*. 

G5 *. 

.* *. 

S .* WRITE *. 

-*. PAST END OF .* 

*. FILE .* 

*. .* 

*. ••* 

• 110 



**** 
P2250 V 

*****H2*** ******* 



***************** 



P2260 

V 

****J2********* 

* * 

* RETURN * 

* * 
*************** 



***** 

• 001* 

• G3* 



.* 
.* 
NO 



*****J 5 ********** 

* * 

* * 

* ZERO BUFFER * 

* * 

* * 
***************** 



****K5********* 

* * 

* RETURN * 

* * 
*************** 
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*+** 

* * 

* A2 * 



**** 

* * 

* A3 * 



**** 

* A5 * 

** + * 



6LDINP 

•***A 1********* 

* ENTER * 

* * 
*************** 



*****B 1********** 

* * 
•LOAD SCC2CG DO • 

* NOT GIVE * 

* CONTROL * 

* * 
***************** 



*****C1**4******* 

•SET FRSTRD AND * 

* STMT 41 * 

* INDICATORS ON * 

* * 
***************** 



*••* 
BLDHTP V 

*****D1 ********** 

* * 

* LOAD OTF * 

* ADDRESS INTO * 

* REGISTER 2 * 

* * 
***************** 



2**» 



*****B2********** 

* SAVE * 

* DISPLACEMENT * 

* FOR DUPING * 

* RECORDS • 

* * 
***************** 



***************** 



****U3********** 



INP026 .*- 
A5 * 

.* 
• * OUP 
*. CARD 
*. 
*. 



V 

***** 
♦003* 

* ai« 

• * 



•MOV 

♦ BVTl 

• FRON 



E RECORD 256* 



B5 *. 
.* *. 

* DUPING *. 
IN PROCESS . 

♦ . .* 



V 

.*. 

El *. 

* £ISg T 


». 

*. .* 

* NO 



Fl *. 
.•SHOULD *. 
.• PREVIOUS *. YES 

*. RECORD BE .* 

*. READ .» 
». •• 
• . .» 
04-K1 * NO 
**** j 
♦003* I 

* K5 *->| 

» * I < 

**** 
INP005 V 

*****G1*+******** 

* * 

* MOVE PTRFRM « 

* INTO REGISTER • 
» ONE * 

* * 
***************** 



*****H 1 ********** 

• STORE POINTER * 

• TO START OF ♦ 

• RECORD IN • 
•BUFFER TO WRITE* 

• TO DISK • 
***************** 



* SET TO READ 
— >* FIRST SECTOR 



***************** 



*****E2 ********** 



INTO REGISTER 1* 



***************** 



***4*F2********** 

* * 
*SET UP TO READ * 

->* A PREVIOUS * 

* RECORD * 

* * 
***************** 



***************** 

**** 
*002* 

* Gl •-> 

* * 
**** 

INP020 V SEE NOTE 

4****C3********** 



***************** 



*****03********** 



***************** 



V 

***** 

*004* 

* Bl* 

* * 



♦.CARD .* 
*. .* 
NO 



*• .* 
*. .* 
' YES 



0A-K4 
03-J5 

***** 

• 002* 

• K2* 

* * 



* MOVE ERROR * 

->*NUM8ER INTO THE* 
♦PARAMETER LIST * 

* * 
***************** 



.* 



D5 *. 
.* *. 

THIS 

FIELD ON A 

•.NEW LINE . 



INP025 .*. 

F3 *. 
•• *. *•** 
.* REREAD *. NO * * 

*. ON .* >* A5 * 

*. .* * * 

*. .* **** 

*. .* 
* YES 



*****G3********** 



***** 

♦ 002* 

* B3* 

* * 



* SET ON STHTfl * 

* AND AFTRER • 

* INDICATORS * 

* * 
***************** 

I**** 
• * 
->* Gl * 

* * 
• *** 



V 
INP030 .*. 

E5 *. 
.* *. 

.* 'L 1 *. NO V 

*. STATEMENT? .*- 
*. .* 



*****F5 ********** 

* MOVE CURRENT * 

* LINE POINTERS * 

* TO PREVIOUS * 

* LINE * 

* * 
***************** 



* SAVE NEW * 

* CURRENT LINE * 

* POINTERS * 

* * 

***************** 



H5 



.*. 



*. 



**** 



V 

.*. 

Jl *. 

* *. 

96 BYTE *. YES 

RECORD IN .* >* A5 * 

BUFFER .* * * 

*. .* **** 

*. .* 
• NO 



I 
V 

*****J3********** 

* * 

* SET ON NORECL * 

* AND ENOlNP * 



***************** 



***** 

♦ 002* 

* B3* 



END OF *. 
FILE .*< 



NOTE! SEE IBM SYSTEM/3 PARLAY 

CH6CKP0INT/R 

AL, SY2 1-0530 



.* 1ST *. YES 
*. COMMENT, .* 7 

*. STMTHl .* I 



*. 

.* THIS A *. NO V 

*. PARTIAL .*- 

*. RECORO .* 

*. .* 

*. .* 

' YES 



♦4444J54********* 
♦ADJUST CURRENT * 

* LINE POINTERS * 

* FOR PARTIAL * 

* RECORD * 
+ * 
***************** 



KPOINT/RESTART 



V 

***** 

*002* 

* B2* 

* * 



V 

***** 
*002* 
* Bl* 

* * 



COMMENT *. YES 
STATEMENT .* 7 

•*. .*•* 

*. .* y 

* ***** 

:°8i: 

♦ ♦ 
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***** 

W001* 

» K4* 



***** 

• 001* 

* K4* 



04-G5 
04-02 

03-B2 
01-K5 
01-J3 
***** 
*001* 
* E4* 
* * 



* ****in********** 

* * 

* SET SIHT*1 * 

* INDICATOR OFF * 



****************** 



INP050 .*. 

82 *. 
.* *. 
.* CONTROL *. NO 

*. STATEMENT .* 

*. .* 
*. .* 
*. .* 
■ YES 



INP040 
.*' 



CI *. 
* *■ 

AFTRER *. YES 

ON (AFTER .* . 

REREAD) .* I 
*. .* 

*. .* V 

* NO **** 

I* * 
* B3 * 
• * 
**** 



* B3 * 

* * 

**** 



•****C2********** 

* SET ENDINP * 

* INDICATOR ON * 

* * 

* * 
***************** 



*****D2 ********** 

* * 
♦MOVE PTR TO REC* 

* AND FLAG 'RR' * 

* IN BUFFI * 

* * 
***************** 



**+**El ********** 

* SET REREAD * 

* INDICATOR ON * 

* * 

* * 
***************** 



*****F L**** ****** 



***************** 



****Gi********** 



**************** 



.*. 
E2 *. 

NO .*" PARTIAL 

*. RECORD 

*. 

*. •* 



*****F2 ********** 



***************** 



V 

***** 
*001* 
« C3* 



ECTOR NUMBER 



***************** 



*****H2********** 

* * 

* STORE SECTOR * 

* NUMBER INTO * 

* BUFFI * 

* * 
***************** 



NOTEI SEE IBM SYSTEM/3 OVERLAY V SEE NOTE 

LINKAGE EDITOR AND ****«j2********** 
CHECKPOINT/RESTART 
PROGRAM LOGIC MAMUALt 
SY21-0530 



***************** 



* STORE RECORD * 
->* POINTER INTO * 

•PARAMETER LIST * 

* * 
***************** 



*****C3********** 

* pSiSter TS * 

* RECORD AND * 
•STORE IN PTRERM* 



***************** 



*****03********** 



LOAD INOCTR 
INTO REG 1 



***************** 



.* 
.* 
YES 



*****E4********** 



***************** 



INP065 H2/01/A1 
*****E 5********** 
*BLDFMT * 



* RETURN ON ARR * 

* * 
***************** 



INP070 V M2/01/A1 
4****F3********** 
•BLDFMT * 



* PASS CONTROL * 

* * 
***************** 



*****G3********** 



* STORE THE ARR * 

* ON RETURN *<- 



***************** 



**** 
*004* 
* C2 



**** 
INP075 V 

*****H3********** 

* * 
♦ZERO THE ERROR * 

* NUMBER SAVE * 

* AREA * 

* * 
***************** 



SITE BUFFI* * * ISDICA 
TO FIRST * * *EXCEPT C 
SECTOR * * *FIR5T ST 



**+**J3*********+ 
SET OFF ALL * 
-""GATORS * 
"ONT. 6 * 
ATEMENT* 
* * 

***************** 



V 

***** 

*001* 

* Dl* 

* * 



*. SUCCESSFUL .* >* 63 * 

*. .* * * 
*. •* **** 



*001* 
* E4* 



Chart M2 (Part 2 of 4). PFGR Read Multiple from Sysin or Source Library ($CC2CS) 



Printer Format Generator 7-47 



***** 

*001* 
* A5* 



*****A5 ********** 

* * 

* SAVE LINE * 

* NUMBER TO * 

* DUPLICATE * 

* * 

***************** 



iNPoeo 


.*. 




Bl ». 




* *. 


.+ 


DUP 


*. 


STATEMENT 


* 


VALID . 




*. .* 




*. . + 






' VES 








INP104 


. *. 




CI ». 




* DUP *. 


.« 


CARD A 


*. 


PAR IAL 


* 


REC( 


)RO . 



********++*♦♦***+ 



V 

***** 
*002* 
* B3* 



INP105 

*****C3********** 
" SAVE JSOURCE * 



*****R5 ********** 



***************** 



FOR PARTIAL * 
* RECORD * 
***************** 





C5 


*. 




.♦FIELDS * 




NO .* TO DUP ON 
*. LINE BEING 






*. GENERATED 


***** 


♦ . ■* 


• 004* 


«. .* 


* E4* 


* YES 



*****D1 ********** 

* SAVE (SOURCE * 

* SECTOR/ 

* OISPL 



INP106 .*. 

El *. 
.* THIS *. 
.* DUP CARD *. 
*. BEEN 

♦.PROCESSED.* 



* Fl * 

* * 
+ *** 




♦SET UP TO READ • 

* CURRENT LINE *<- 

* LOCATION * 

* * 
***************** 



**** 
INPU4 V 

•****F 1********** 

* * 
*SAVE NUMBER OF * 
» FIELDS TO * 

* DUPLICATE * 

* * 
***************** 



Gl *. 

.•DUPING *. 
.* LINES * 
*. RATHER THAN 
*. FIELDS .* 



.* THE DUP 

->*. CARO IN 

*. PROCESS 

*. NOM .* 



***** 
+ 004* 

« Jl* 



E3 *. 
.* THIS * 

*. NOW 



V 

***** 
• 004« 

« 3i« 



TO 

DUPLICATE . 
.SPECIFIED.* 



**** 

* * 

* G2 * 

* * 
**** 



* SET INDICATOR * 
>* FOR DUPING *- 

* LINES * 

* * 
***************** 



*****H2********** 



* SET FIELDS TO 
->* MAXIMUM VALUE 



+*+**♦*+++*♦+*+♦ 



* + + * 

* * 

* A5 * 

* * 

• *** 



INP108 .*. 

F3 *. 
.•DUPING *. 
.* LINES *. VES 

*. RATHER THAN .» 

*. FIELOS .* 
*. .* 
• . .• 
' NO 



♦****G3********** 

♦SET OFF DUPING * 

* IN PROCESS * 

* INDICATOR * 

* * 
***************** 



V 

***** 

• 004* 

* B3* 



• START *. NO 

MSG PRINTED .* 

*. ONCE .* 



***** 
*004* 
* HI* 



***♦ 
*004* 
♦ E4 *-> 



**** 
INPL25 V 

*****D5 ********** 

♦SET UP TO REAO * 

* PREVIOUS LINE « 

* LOCATION » 

* ♦ 

***************** 



INP140 

*****E5 ********** 

* * 

* LOAD BUFFER ♦ 

* AOORESS INTO * 

* REG 1 * 

* + 
***+***********++ 



*****F 5 ********** 



♦*♦♦♦♦♦♦*♦♦♦♦♦♦♦♦ 



*****G5** ******** 

* * * * 

* * READ A * * 

* * SECTOR * * 
♦USING »CAM 



* ♦ 



* * 



*****H5 ********** 



•SET UP TO READ 
* NEXT SECTOR 



***************** 



NOTE II SEE IbH SYSTEM/3 DISK 
SYSTEM, SYSTEM CONTROL 
PROGRAM LOGIC MANUAL, 
SY21-0502 

NOTE 2: SEE IBH SYSTEM/3 OVERLAY 
LINKAGE EDITOR AND 
CHECKPOINT/RESTART PROGRAM 
LOGIC MANUAL, SY21-0530 



.* STOP • 

*. MSG PRINTED 
*. ONCE .* 



V SEE NOTE 
*****K3* ********* 

* *HALT/SYSLCG* * 

* • TO PRINT * * 

* *END OF DUP * * 
MESSAGE 



* * 



* * 



***************** 



***** 

♦ 004* 

* HI* 



***** 

• 001* 

* E4* 



* SET * 

* DISPLACEMENT * 
*FOR NEXT RECORD* 

* * 
***************** 



V 

***** 

• 004* 

• HI* 



V 
***** 

♦ C01* 

* Gl* 
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**** 

* • 

* A5 *- 



***** 
*001* 
* 85* 



.** FORMS 

'..spIcIf'ie 



*•** 
.YES * * 
.* >* E3 * 



CI *. 
• * *■ 
.* COMMENT *. YES 

». RECORD .* 

*. ■* 
*. .* 
*. .* 
* NO 



INP162 .*. 

01 *. 
.* *. 

.* *. YES 

♦.CONTINUATION .* 

•.OF F CARD.* 

"*. .*" 

• NO 



***************** 



02 *. 
.* NQN- *. 

.* gyp 

->*. CONDITION 
*. CARD 



V 

***** 
*002* 
* H3* 



El *. 

.•CARD 6EYON6*. NO 

•. LINE BEING .* 

*. DUPPED .* 
*. .* 
*. .* 
« YES 



* E3 * 

* * 
**** 



*. .* , V 
* YES ***** 
I **** *002* 

* * * B3* 
->* HI * * * 

* * * 
**** 

I 
*****E2********** 

* * 

* SAVE POSITION * 
->* NUMBER OF THE * 

* CARD READ * 

* * 
***************** 



Y 

.*. 

F2 *. 

.* THIS *. 

.* POSITION 

. BEFORE OUP 

♦.POSITION . 

*• ■* 



***** 
*003* 
* F3* 



* DECREMENT * 
•NUMBER OF LINES* 

* TO DUP BY 1 • 

* • 
***************** 



*****C3********** 



***************** 



.*• 
D3 *. 
.♦MAXIMUM*. 
.* NUMBER OF «. NO 

*. LINES .* 

*. OUPED .* 
*. .* 



A5 *. 
.* *. 
.* START *. YES 

*. DUP MESSAGE .* 

*. PRINTED .* 
*. .* 
*• .* 
* NU 



USE 
SPRIN 
»1NT 



* *sysprint to* * 

* * print dup * * 

* * card * * 

* * * * 
***************** 



*****C5 ********** 



PRINT THE 

* * START OUP * * 

* * MESSAGE * * 

***************** 



INP222 .*. 
D5 



DONE 

DUPPING 

. LINES . 

• • .* 



***• | 

* * I 

* E3 *-> 



YES 



* E3 * 

* * 
**** 



DUPING 

BY LINES 

.SPECIFIED. 



*****E5 ********** 



* NO 



* START *. NO 

DUP MESSAGE .* 

». PRINTED .* 



*****F3********** 



PRINT END DUP 
MESSAGE 



***************** 



* Jl * 

* * 
**** 



• PREVIOUS 

LINE BEING 


+ 


NO 


♦DECREMENT FIELD* 




* , 


* COUNTER BY I * 


*. OUPED 


* 


1 


* * 


*• •* 






* * 


*. .* 




i 


***************** 


* YES 




***** 

• 003* 

* D4* 


I 






V 




* * 




***** 




* 




• 003* 






1 


* D5* 






NP225 V 


* * 






*****F 5 ********** 


* 






* * 

* SET UP * 
♦DUPLICATE NAME * 

* IN RECORD * 









G2 



03-K3 

03-J3 

***** 
*003* 

* H3* 
* * 



« SET Off PRINT * 



.* DUPING *. YES 

*. BY LINES .* . 

•.SPECIFIED.* 
*. .* 

*. .» V 

• NO •** 



**************** 

03-E2 

**** 

*003* 

* E3 * 



**** 
INP172 V 

***** j 1********** 

* * 

* UPOATE RECORD. * 
♦POINTER TO NEXT* 

* RECORD ♦ 

* * 
***************** 



****** 1 ********** 
*5ET INDCTR BYTE* 

* FOR * 

* CONTINUATION. * 

* ONLY * 

* * 
***************** 



1 I 

■* .1. 



V 
• *. 

H2 *. 

.♦MAXIHAM*. 

.* NUMBER OF * 



->* E3 * 

♦ * 
**** 



* A5 * 

* * 
**** 



* A5 * 

* * 
**** 



OVERLAY LINKAGE 
EDITOR AND 
CHECKPOINT/RESTART 
PROGRAM. L§|l§ 5 



MANUAL SY2 



0530 



•SET OFF DUPING • 

• IN PROCESS • 

• INDICATOR * 

• * 
***************** 



*****H3********** 
*SET UP TO REAO * 

* FROM LOCATION * 

* OF THE DUP * 

* RECORD * 

* * 
***************** 



* * READ A * * 

* * SECTOR * * 

* *USING »CAM * * 

* * * * 
***************** 



*****K3********** 



***************** 



**+**G5 ********** 



***************** 



V 

***** 
*002* 
« 6 3* 

* * 



SEE IBM SYSTEM/3 
DISK SYSTEM, 
SYSTEM CONTROL 
PROGRAM LOGIC 



MANUAL SY 



0502 



***************** 



* LOAD * 
->*DISPLACEMENT OF* 

* THE DUP CARD * 

* * 

***************** 



V 
***** 
*001* 
* Gl» 



***** 
*001* 
* E«* 
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6L0FMT 

****A1 ********* 
4 * 

* ENTER * 

* * 
*************** 



*****A4********** 



***************** 



*****Bl*****+***# 



V 
.*. 

B* *. 
* *. **** 

PRINTER *. YES * 
SIZE 1 -* >* E4 



***************** 



**+**ci********** 



. YES * SET UP FOR 

,* >*PRINTER SUE 2 



***************** 



*****[)l********** 

* * 
♦STORE INDICATOR* 

* IN PARAMETER * 

* LIST * 

* * 
***************** 



M3/17/A1 

*****£ 1*** ******* 

♦REOPRT * 



***************** 



***************** 



»*. M3/17/A3 

D<t *. 
„* *. ****05 ********* 

.* PRINTER *. NO *ERRPRO * 

* . SIZE • * .* >* * 

*. .* * MSG CP003 * 

*. .* *************** 

♦ . »* 

* YES 
**** 

* * I 

* E4 *-> 

* * < 

**** V 

C0F040 .*• COF045 

£4 *- ****+E5 ********** 

.* *. * * 

.* ANY *. NQ *DEFAULT IS 132i* 

*. PLATTEN LNG • ♦ >* HOVE INTO *-- 

*. SPEC • * * COMMON AREA * 

*. .* * * 

*„ .* ***************** 

* YES 



****F2**#****** 
♦ERRPRO * 

_>* * 

* HSG CPOOl * 

********a ****** 



COFOIO V N3/L6/A2 

*****G1********** 
♦CHKNAM * 



***************** 



VALID 

DISPLAY 

NAME 



M3/17/A3 
*****H?« * ***** +** 
*ERRPRO * 

* , * 

->*GIVE HSG CP002 * 

* AND CONTINUE * 

* DIAGNOSTIC * 

***************** 



* STORE DISPLAY * 

♦NAME IN COMMON * 

* AREA * 

* * 

***************** 



*****H3**4******* 

* * 
♦MOVE LENGTH 132* 

* INTO COMMON * 

* AREA * 

* * 
***************** 

I**** 
* * 
->* J4 * 



****J3********* 
♦ERRPRO ♦ 

* MSG CPOOC * 
*************** 



*****F5 ********** 



***************** 



COF070 


• ♦• 


C0F060 -*. 




G3 *. 


G4 *. 




♦ *. 


»* ♦ 


NO -♦ 


PLATTEN *. 


NO .♦ PLATTEN 


*. 


LENGTH 3 . *< — 


*. LENGTH 2 


• 


.* 


*. 




*. .♦ 


♦ . .* 




♦ . .♦ 


*. .♦ 




♦ YES 


♦ YES 



*****H4********** 



***************** 



COF080 V M3/13/A4 
++***J4********** 
♦LNGVLO » 



♦CHECK fOR VALID* 
» LINE LENGTH * 



***************** 
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***** 
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* Bl* 



7-50 



***** 

• 001* 

* J4* 
* * 



LINE 

LENGTH 

VALID 



COF100 V 

*4***C I ********** 



C0F090 M3/17/A3 

****fl2 ********* 
♦ERRPRO * 

* MSG~CPOO? * 

*************** 



move line 
length Into 
common area 



***************** 



... 

Dl *. 

* *• 

LINE *. 
LENGTH > 
FLATTEN .* 



*****B3********** 

♦DEFAULT IS 66, * 

* MOVE INTO *- 

* COMMON AREA * 

* * 
***************** 



C0F1A0 

*****C3********** 



* * *SET FIRST 

* C3 * >* TO NUMERI 

* * * CASE ' 



***************** 



.*. 
D3 
* VALU 
FOR 



.* 



*. 



BYTE A 

*. BLANK . 

*. .* 

*. .* 

* VES 



2ND 



**** 
.VES * * 
.* >* C3 * 



*****E3********** 



***************** 



F3 *. 
.* *. 
.* 'X' *. VES 

*. UNDER MULT. .* 

*. PAGES .* 
*. .* 
*. .* 
* NO 



* ■ ■ *. NO 

UNDER MULT. .* 

*. PAGES .* 



C0F155 

*****F4********** 

* SET BIT IN * 

* COMMON AREA * 
>* INDICATING *- 

* MULT. PAGES * 

* * 
***************** 



****G4********* 
♦ERRPRO * 

* MSG CP014 * 
*************** 



. . C0F120 M3/17/A3 

HI *. V 

■* 1ST G *. ****H2********* 

.* 2ND BYTES *. NO *ERRPRO * 

. OF -ENTRY .* >* * 

*. BLANK .* * MSG CP005 



*. 



.* 
. .* 
* YES 



*************** 



UNDER FF 

. OPTION 



C0F165 

*****H4********** 

* SET BIT IN * 

* COMMON AREA * 
— VINDICATING FORM«- 

* FEED IS VALID * 

* * 
***************** 



V 
***** 

• 003* 

* Bl* 



* *. 
• • *. 

UNDER FF 

OPTION .* 
*. .* 
*. ■* 
* YES 


NO 


****J4********* 
♦ERRPRO • 




* MSG CP016 * 

*************** 


I 

***** 
*003* 
* Bl* 

* * 
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02-H4 
***** 
*002* 
• J3* 

* * 



***************** 



C0F170 .*. 

61 *. 
.*' • FOR*. ***« 

.* disk *. yes * * 
*. storage .* >» d2 * 

*. UNIT .* * * 

*. .* **** 

*. .* 
» NO 



.« *. 

.* VALIO *. NO 

UNIT .* 

•.SPECIFIED.* 



*****D1 ********** 

* * 

* HOVE VALID * 

* O-CODE INTO * 

* COMMON AREA • 

* * 
***************** 



COF200 H3/17/A3 
*****C2 ********** 
♦ERRPRO * 



COF201 .*. 


61 *. 


.* 


.* 'X 1 


*. UNDER 


♦.KATAKANA 


*. . 


*. .* 




> NU 



->*GIVE MSG CP008 * 

• AND CONTINUE * 

* PROCESSING * 
***************** 



* 02 *-> 

* * 
**** 

C OF 190 V 

♦♦♦♦♦D2 ********** 

* HOVE PROGRAM * 

* PACK 0-COOE * 

* INTO COMMON • 

* AREA * 

* * 
***************** 

I**** 
* * 
->» Kl * 

# * 

**•* 

*****£ 2*** ******* 



Gl *. 
.* 'P> *. 
* UNDER *. 
PRT/NO-PRT .* 



HI *. 
.* "N 1 *. 
VYES .* UNOER 
~*. PRT/NO-PRT 



.* 

. .* 
* NO 



V 

.*. 

Jl *. 

.* ■ ' *. 

.* UNDER *. NO 

*. PRT/NO-PRT .* 

*. .* 

*. .* 
*. .* 
* YES 



***************** 



N3/17/A3 

*****F2********** 
♦ERRPRO * 



>*GIVE MSG CP034 *- 

* AND CONTINUE * 

* PROCESSING * 

*****•*♦******♦♦* 



8?:E1 
8?:BI 
8$:§1 

0B-K2 
08-J3 
08-04 

10-J5 

llEH 



DEF010 V H3/17/A1 

*****E3********** 
♦REDPRT * 



***************** 



.*. 

F3 *. 

.*' END OF "*. YES 

*. INPUT .* 

*. .* 



4 HOVE COMMAND * 

* CODE ANO WCC * 

* INTO TEXT * 

* * 
***************** 



V 

.*. 

C4 *. 

• * *• 

.* NO *. 

PRINT 

♦.SPECIFIEO.* 

*. •* 



* NO 



*****C5 ********** 



***************** 



♦AVAILABLE BYTE * 
* * 

***************** 



#***F4********* 



■L' IN 
COL. 1 



*************** 

09-B2 

**** 

* 009* 

* C4 *— . 

* * 

**** 

DEF015 V H3/17/A3 

*****G4********** 
•ERRPRO * 

>*fl!vi~MSG~CP02l"* 



MS 
COi 



OEF020 .*. 

H3 *. 

.*' aaaFF 

""CIFIE 



AND CONTINUE 
* DIAGNOSTICS * 

***************** 



**** 

* * 

* £3 * 

* * 
*»** 



SPECI 



.» 
. .* 
• NO 



***** 

• 004* 

* BZ* 

• * 



M3/17/A3 
*****J2**« ******* 
♦ERRPRO * 

* * 

->*GIVE MSG CP035 ♦ 

♦ AND CONTINUE * 

* PROCESSING * 

***************** 



DEF034 .*. 

J3 *. 

.* *. 
.* DATA *. YES 

• . SDURCE-6 .* . 

*. .* 

«. .* I 
*. .* V 
* NO ***** 

1*004* 
* B4* 
* * 



*•** 

* * 

* J4 * 

* * 
*••* 

i 

.*. 

J4 *. 

■ * *• 

.* DATA *. YES 

*. SOURCE-F .» 

*. .* 

*. .* 
*. .* 
* NO 



V 

***** 

• 004* 

* B4* 
* * 



.1 



COF205 .*. 

Kl *. 
.* *. 
.♦ANYTHING IN*. 
>*. RESERVED 

*. AREA .* 



* Kl * 

* * 
**** 



* A4 * 

* * 
**** 



*K2*» 
PRO 



>*GIVE HSG CP026 
* AND CONTINUE 



***♦ 

* ' * 

* A4 * 

* . * 
**** 



K3 *. 
.* *. 

.* DATA *. YES 
*. SOURCE-G .* 7 



*. .* 

*. •* 
* NO 



* J4 * 

* * 

**** 



V 

***** 

• 004* 

* B4* 

* * 



.*. 

K4 *. 
.* *. 

.* DATA *. NO 

*. SOURCE-' • .* 

*. .* 



**•«* 

♦ 004* 

* B4* 

* * 



M3/17/A3 

*****K5********** 
*ERRPRO * 

->*G7vi"MiG"cP013"« 

• AND CONTINUE • 

* DIAGNOSTICS * 

***************** 



* E3 * 

* * 
**** 
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***** 

*003* 
* H3* 



03-J4 
03-K3 
03-J3 
***** 
*003* 
* K4* 
* * 



.♦ANYTHING IN* 
*.NON-RESERVED 



M3/17/A3 

*****$$********** 
♦ERRPRO * 

* * 

->*GIVE MSG CP028 « 

***************** 



< — 

V 
025 .*. 

C2 *. 

.♦ANYTHING IN*. 

*. RESERVED 

♦. AREA .♦ 

♦ . .* 

♦ . .♦ 

* NO 



M3/17/A3 

**+**C3***+****** 
•ERRPRO * 

* * 

->*GIVE 
* AND 

» PR . . 

***************** 



E HSG CP026 
ROCESSING 



.CONTINUATION 
*. COLUHN .« 
*. BLANK. ♦ 



M3/17/A3 

*****03********** 
♦ERRPRO * 

* * 

->*GIVE HSG CP007 ♦ 

♦ AND CONTINUE ♦ 

* DIAGNOSTICS ♦ 

***************** 



< 

V 
F028 .♦. 

E2 ♦. 
.♦ *. 
.* MULTIPLE ♦. NO 

♦. PAGES .♦ 

♦.SPECIFIED.* 
♦ . .♦ 
♦ . .♦ 
' YES 



H3/17/A3 

♦****E3********** 
♦ERRPRO ♦ 

->^gTye"hsg"cpo2~* 

♦ and continue * 

♦ diagnostics ♦ 

♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦ 



DEF030 V H3/L4/A3 

•****P2 ********** 
♦EJECT * 



EJECT TO THE 
NEXT PAGE 



*♦*♦♦♦♦*♦♦***♦*♦♦ 



V 

*♦♦** 

♦ 003* 

* E3* 



V 
38 .♦. 

B« *. 

•*REPEAT *. 

.* LAST *. 

. CHARACTER . 

•.SPECIFIED.* 

*. .* 



DEF040 .*. 

C4 *. 

.♦ ♦. 

.* BLANK ♦. 

♦. FOR REPEAT . 

♦.LAST CHAR.* 

♦ . .* 

*- .* 

YES 



***«*B5 ********** 

* SET BIT IN * 

♦ COMMON AREA ♦ 
>♦ INDICATING *- 

• R.L.C. • 

* * 
***************** 



->*GIVE MSG CP019 
• AND CONTINUE 



*♦♦♦♦ 

♦ 003^ 

♦ E3^ 



DEF045 V 

♦♦***£4**+******* 
♦CHKNAM * 



***************** 



.*. M3/17/A3 

F4 *. *****F5********** 

.* *. *ERRPRO * 

.* WAS *. NO * * 

♦ . NAME VALID .♦ >*GIVE MSG CP0J2 * 

*. .* ♦ AND CONTINUE * 

*. .* * PROCESSING ♦ 

*. .* ***************** 

* YES 

I < 

DEF047 .*. DEFOSO H3/17/A3 

G4 *. *****£$********** 

.♦ *. *ERRPRO • 

.* DATA IN *. YES ♦ * 

*. RESERVED .* >*GIVE MSG CP026 * 

*. AREA .* * 6N0 CONTINUE » 

*. .* * PROCESSING * 

«. ,* ***************** 

* NO | 






032 .*. 

HA *. 
.* *. 
.* DUPLICATE *. YES 

♦.FIELD NAME IN.^ 

♦. FDT .♦ 



OEF070 M3/17/A3 

*****H5 ********** 



>*GIVE MSG CP009 * 
* AND CONTINUE * 



M3/17/A3 

****J l********* 
♦ERRPRO * 

* HSG~CP020 * 

*************** 



J2 *. 

.* *. 
YES .* * OF *. 

*. ENTRIES > .*<- 

*. 256 .* 
*. .« 
*. .♦ 
* NO 



*****J3********** 



***************** 



DEFOSO .♦ 
J4 
.* «F 
YES .* TYPE 
*. GENJRAT 



GENERATION 
FIELD . 



V 

***** 
*005* 
* 82* 



***** 
*00S* 
* B2* 
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04- J 2 
***** 
*004* 
* J4« 



♦ *+* 

* * 
» B4 * 

* * 

**** 



OEFO90 .*. 

62 *. 
.* 1ST *. 

YES .* BYTE. OF * 

*.LINE VALUE A 

*. NUMBER .* 



V M3/13/A4 

****+B4********** 
•LNGVLD • 



***************** 



DEF110 .*. 

C2 *. 
.* 1ST *. 

.* BYTE OF ». NO 

•.LINE VALUE A .* 

*. BLANK .* 



****+02+**+****** 

•CHANGE BLANK TO* 
•A CHARACTER •<>'• 



***************** 



DEF100 M3/17/A3 

*****C3********** 
•ERRPRO * 

— >*g7ve~hsg~cpoIo~* 

* and continue * 

• diagnostics • 

***************** 



***** 
• 003* 
» E3* 



DEF120 .*. 

E2 *. 
.* 2ND *. 

.* BYTE OF *. NO 
♦.LINE VALUE A .* 

*. • .* 



V 

.*. 

F2 *. 

.* *. 

.* LINE *. 

. VALUE GIVEN . 

*. ■ ■00» .* 

*• .* 

*. .* . 

* NO 


YES 


> 


V 
.*. 

G2 *. 
.* LINE *. 







* CHECK IF * 
•POSITION VALUE * 

* IS VALID * 

***************** 



V 
.*. 

J2 *. 

.« HAS *. 

.* POSITION *. 

VALUE .* 

*. VALIO .* 

*. .* 



.* POSITION * 
-VALUE > LINE 
«. LENGTH .* 



.*■ 
,C4 *. 
.* MAS *. 
.* FIELD *. N 
*. LENGTH .«- 
*. VALID .* 
*. .* 
*■ ■* 
YES 



DEF200 .*. 

04 *. 
.* FIELD *. 
.* LENGTH > *. YES 

*. LINE .* 

*. LENGTH .* 
*• .* 
*. .* 
• NO 



M3/17/A3 

****«C5 ********** 
♦ERRPRO * 

* * 

->*GIVE MSG CP011 * ■ 

* AND CONTINUE • | 

* DIAGNOSTICS * I 
***************** V 

***** 

• 003* 

* E3* 
* * 



OEF220 M3/17/A3 
*****05********** 
*£RRPRO * 



* MOVE FIELD * 

* LOCATION INTO * 

* COMMON AREA • 

* * 
***************** 



*****F4********** 



* LENGTH TO * 
•POSITION VALUE * 

* * 
***************** 



V 

***** 
*006* 
* B2* 



G4 * 
» DOES 
FIELD 



H4 ». 

.* FIELD *. 

.* LOCATION * 

. BEFORE NEXT 

♦.AVAILABLE.* 

*.BYTE .* 

*. .* 

• NO 



->*GIVE MSG CP025 * 7 

• AND CONTINUE » 

* DIAGNOSTICS • I 
•*************••• V 

***** 
•003* 
• E3* 



V 

***** 

• 006* 

* H2* 
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***** 

• 005* 

* H4* 



62 *. 

.* *. 

* MULTIPLE » 

•.INDICATED.* 



DEF235 V M3/14/A2 
*****C2********** 
•EJECT * 



M3/17M3 
*4***B3********** 
*ERRPRO * 

* * 

->*GIVE MSG CP015 • 
* AND CONTINUE * 
DIAGNOSTICS 



***************** 



V 

***** 
*003* 
* E3* 



***************** 



+**++B4* ********* 



***************** 



V 

• *. 

C4 *. 

.* *. 

.* *» VES 

*. KATAKANA .* 

*. FORMAT .* 



* NO 

**** 
* * 
->* J2 * 



*+***C5 ********** 

* * 

*ADD 1 MORE TO #* 

->*OF NL'S NEEDED * 



***************** 



02 *. 

.* FIELD *. 

.•LOCATION > * 

CURRENT 

*. LOC. .* 

*. .* 

*. .* 

NO 



.•LOCATION -"*. NO 
*. CURRENT .» 



LOC. 

*. .* 
*. .* 
* VES 

V 

• ••** 
*007* 

* F2» 

• • 



M3/17/A3 

*****£ 3********** 
♦ERRPRO * 

* * 

->*GIVE MSG CP030 * 



***************** 



V 
***** 
*003* 
* E3« 



***** 
*005* 
* HI* 



***************** 



V H3/15/A4 

*****F4********** 
•BUFFa * 

• UPDATE 3270 • 
•BUFFER PRINTER • 

• FOR NL'S * 

***************** 



V M3/15/A2 

*****G4*********4 
•NLTXT * 

* * 

♦MOVE REQ'ED NO.* 

* OF NL'S INTO * 

* TEXT STREAM * 
***************** 



F240 .*. . 
H2 *. 
.* LINE *. 
.* VALUE - *. YES 

*. CURRENT LINE .* 

*. VALUE .* 
*. .* 



**** 
* 
* J2 



* NO 



*-> 



**** 
* 
E4 * 



**** V 
DEF250 .*. 

J2 *. 
.* LINE *. 
.* VALUE - *. VES 

• .CURRENT LINE .* >* 

*. VALUE .* * 

*. .* **** 

*• .* 
' NO 



****** 2 ********** 



DEF270 V 

*****H4********** 

* SUBTRACT * 
♦CURRENT PRINTER* 

* POSITION FROM * 
•FIELD LOCATION * 

* * 
***************** 



V 

***** 
*007* 
* 82* 



* CURRENT LINE * 

* VALUE * 

* * 
***************** 



* B4 * 

* * 

**** 
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*006* 
* H44 



.•Current*. 
.* printer *. yes 

*.pos. - field .♦ 

*. Lac. .* 



*****C2*4******* 

• SET BIT IN 
♦COMMON AREA ON 
♦INDICATING SBA 

• NEEOED 

4 
******#***+*++** 



* PRINTER POS. 

• FOR BLANKS 
4PRECEEOING THE 
4 FIELD 

*********4* 444*4 



*****(= 2*********4 

4BUFFS 4 

* * 

* UPDATE 3270 * 
4 POINTER FOR * 
4PRECEEDING BLKS* 
4*4*4444444**44*4 



**** 
• 006* 
4 E2 4-> 



4*4* 

D6F272 

*****F 2******4**: 

4UPDATE CURRENT 

* PRINTER POS. 

* FOR THE FIELD 
4 LENGTH 

4 
4**************4: 



G2 •. 

.♦CURRENT*. 

* PRTR POS. 

BEYOND THE 

*. PLATTEN . 

4.LNGHT.4 

4. .4 

* VES 



44444H2 4* ******** 



***************** 



♦PRINTER POINTER* 
* POS. VALUE - * 



DEF273 V M3/15/A4 
44+**B4*****44*44 
4BUFFS * 

4 "UPDATE 3270 4 
4BUFFER POINTER * 
* FOR FIELD 4 

4*4*4*****4*4444* 



V M3/18/A2 

44*4*04*44**44444 
4C0NHEX 4 

4 , 4 

•CONVERT POINTER* 



D4 *. 

.* "F" *. 
* TYPE 

GENERATION 
*. FIELD . 



***** 

♦ 008* 

* B2* 

* 4 



NO .4 END OF *. 

4. SECTOR IN . 

4. FOT .* 

4. .4 



44444F4+********* 
* * 
*A00 1 TO NUMBER* 
CTORS 4 



40F FDT SECT 



***************** 



***************** 



***44H4********** 

* * 
♦HOVE FLAG BYTE * 
*FOR OUTPUT INTO* 

* FDT 4 
4 * 
*****4* ********** 



**+**J4***ft ****** 

* * 

* MOVE FIELD * 
♦LENGTH INTO FOT* 



44**444444444444* 



< B* » 

* 4 

4*** 



***************** 



****4K4********** 

* MOVE 32 70 4 
4 ADDRESS TO * 

* BEGINNING OF * 

* FIELO IN FOT * 

* * 
***************** 



V 

***** 

* * 
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07-D4 
***** 
*007* 
* K4* 



DEF278 .*. 

B2 *. 
.* SET *. 
NO .* BUFFER *. 

*. AOOR. .* 

*. NEEDED .* 
*. .* 



* YES 



C2 *. 
.* * OF *. 

.* BLANKS TO *. YES 

*. BE MOVED > .* 

*. 3 .* 
*. .* 
*. .* 
" NO 



♦MOVE REQ'D * OF* 

* BLANKS INTO * 

* TEXT STREAM * 

* * 

***************** 



DEF286 V 

*****E2********** 

♦UPDATE CURRENT * 
* TEXT POINTER * 



***************** 



* MOVE SBA CODE * 
->*X'I1' INTO TEXT* 

* STREAM * 

* * 
***************** 



*****D3********** 
* HOVE 3270 * 
•ADDRESS OF DATA* 



'SHelS* 



***************** 



v 

*****£ 3********** 



***************** 



.* *. YES 

*. EXECUTION .* 

•.TIME DATA.* 



V 

***** 

• Oil* 

* B4* 



V 




.*. 




G2 *. 




■ * *• 




.* REPEAT *. YES 

*. LAST CHAR. .* 

•.SPECIFIED.* 






V 


*. .* 


***** 


*. .* 


• 009* 




NO 


* J2* 


**** 




* * 


♦ 009* 

* £2 *-> 




+ 






* • 






**•* 




DEF296 .< 


. 





.* FIELD *. YES 

*. LENGTH > 40 .« 

*. .* 



.* 'X' IN * 

♦.CONTINUATION 
*. COLUMN .* 
*. .* 
*. .* 
• NO 



C4 *. 
.* BLANK *. 
.* IN *. YES 

• .CONTINUATION .* . 

*. COLUMN .* 

*. .* i 
*. .* V 
YES **** 



* K2 * 

* * 
**** 



DEF325 V M3/17/A3 
*****D4+********* 
*ERRPRO • 

•give'msg'cpoI"* 

* and continue * 

* diagnostics * 

***************** 



V 

***** 
*003* 
* E3* 



* MOVE 40 BYTES * 

* OF DATA INTO * 

* TEXT STREAM * 

* * 
***************** 



*+***G4********** 



***************** 



V M3/17/A1 

*****H4 ********** 
•REDPRT * 



***************** 



.*. 

J2 *. 
.* ». 


M3/13/G2 
*****J3**«* ****** 
♦MOVTXT * 


*.CONTINl 

*. CUU 

*.BL/ 

*. 

i 
**** 

:°b?%-> 

4 * 

**** 

300 \ 


ATION .» 

HNS .» 
NK.* 

.* 
NO 

M3/17/A3 


— >* MOVE REOUIRED * 
•LENGTH OF DATA * 
* INTO TEXT * 
***************** 

1 

V 
***** 
*003* 
* E3* 



V 
***** 

• 009* 

* B2* 
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***** 

*008* 

* H4* 



**** 

* * 

* B4 * 

* * 
• *** 



V 

.*. 

C2 *. 

.* *. 

.* COLUMNS *. NO 

*. 2-17 BLANK .* 

*. .* 

*. .* 



V 
***** 
*003* 
* G4* 



DEF335 

**** .. 
*ERRPRO 



OEF370 V N3/17/A1 

****+B4********** 
•REOPRT * 

* * 

***************** 



->*GIVE MSG CP018 * 

* AND CONTINUE * 

* DIAGNOSTICS * 
***************** 



DEF340 .*. 

02 *. 
.* *. 
.* COLUMNS *. NO 
*. 18-31 BLANK .* 



M3/17/A3 

***+*03******+*+* 
•ERRPRO * 

* * 

->*GIVE MSG CP026 * 



■F' IN *. 
COLUMN 1 

.* 
*. .* 
*. .* 
* YES 


NO 






V 

***** 
*003* 
* G«* 

* * 

* 


V 

.*. 









0* 

*:* 2 - 1 ? L &'*:.ii5. 
*. .* 

*. .* 

*. .4 
* YES 



M3/17/A3 

*****D5 ********** 
*ERRPRii * 

->*GTvi"MiG~POli"* 



* SUBTRACT 40 * 

• FROM THE FIELD * 

* LENGTH * 

• * 
***************** 



V 

***** 

• 008* 

* H2* 



373 .*. 

E4 *. 
■ * *• 
.» COLUMNS *. NO 

*. 18-31 BLANK .* 

*■ .* 

*. ■* 
*. .* 
* YES 



M3/17/A3 

*****E5 ********** 
•ERRPRO * 

* * 

->*GIVE MSG CP026 * 
• AND CONTINUE • 



TO BACKUP 

¥ * 

*4*4*****4******* 



*****G4********** 

* * 

* SUBTRACT 40 * 

* FROM FIELD * 

* LENGTH * 

* * 
***************** 



***** 

• 008* 

• G2* 



* FIELD * 
LENGTH > 40 



***** 
*010* 
* 62* 



K2 «. 
• *• 
•X' IN *. NO 



V 
***** 

*. .* *010* 

* YES • 82* 

* * 



* B4 * 

* * 

**** 
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09- J 2 

***** 
*00<)« 
• H2* 



B2 *. 

.* BLANK *. 

.* IN * 

.CONTINUATION 



V 

***** 

»ooe» 

• K2» 



* BACKUP 1 * 

* CHARACTER IN * 

* OATA AREA • 

* * 
***************** 



02 *. 

.* *. 

* THIS *. 

CHARACTER A . 

*. BLANK .* 

*. .* 

*• .* 

VES 



E2 *. 
.* THIS *. 
NO .* LAST *. 

*. CHARACTER TO .* 

*. CHECK .* 



V 

.*. 

F2 *. 

.* *. 

.* LAST *. VES 

*. STATEMENT .* 

*.T0 CHECK .« 



.*. 
B4 *. 
.* LAST *. 
STATEMENT *. NO 

TO BACK .* 

UP .* 



DEF428 V M3/17/A1 
*****C4********** 
•REDPRT • 



;;. 



**#**fj «5 ********** 

* * 
•SET UP TO BACK * 

->* UP ANOTHER * 

* RECORD * 

* * 
***************** 



* READ PREVIOUS * 

* STATEMENT, DO * 

* NOT LOS » 

***************** 



V 
• *■ 

04 *. 
.•ALL OF *. 
.* NON- *. VE 
• .REPEATED RECS.*~ 
*. PRINTED .* 



V M3/13/G2 

*****E4********** 
•HOVTXT * 

* * 

* MOVE W * 
♦CHARACTERS INTO* 

* TEXT STREAM * 
***************** 



V M3/17/A1 

*****G2*** ******* 
•REDPRT • 

* * 

* READ PREVIOUS * 

* STATEMENT, 00 * 

* NOT LOG • 
***************** 





V 






410 


.*• 








G4 •• 








• ANV * 






.* 


PARTIAL 

RECORD TO 


*. 


Nil 


*. 




* — 


# 


MOVE 


* 





V M3/13/G2 

*****H4********** 
•MOVTXT * 



DEF440 .*. 

J4 *. 

.•ENOUGH •. 
.* REPEATED *. NO 

*. CHAR. TO 00 .* 

*. R.A. .* 



0EF45O 

**4**H5********** 

* HOVE CHAR. TO * 

* BE REPEATED * 
-->* INTO FIRST <* « 

* POS. OF DATA • 

* AREA * 
***************** 



V M3/13/G2 

**«**J5 ********** 
•MOVTXT • 

* * 

*HOVE DATA INTO * 

* TEXT STREAM * 

• « 

***************** 



F ..S 



**K4********** 

* * 
*MOVE REPEAT TO * 

* ADDRESS INTO * 

* TEXT STREAM * 

* * 
***************** 



***** 
*003* 
* E3» 



V 

***** 

; c B2* 
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***** 

*010* 
* K<i* 



***** 
*008» 
« F2* 



V M3/18/A2 
*****B2********** 

♦CONHEX * 

* * 

•CONVERT TO 3270* 
* ADDR TO LAST * 
•CHAR. OF FIELD * 
***************** 



+**+*C2********** 



V 

soo .*. 

BA «. 
.* *. 

.* REPEAT *. VES 

*. LAST .* 

*. CHARACTER.* 
*. -* 
«. .* 
NO 



M3/17/A3 

*****tj5 ********** 

*ERRPRO * 

* * 

->*GIVE MSG CP027 * 

* ANO CONTINUE * 

* DIA6N0STICS * 

***************** 



HOVE 3270 
OORESS INTO 
TEXT STREAM 



* ADDRESS INTO * 



***************** 



•MOVE CHARACTER * 
•TO BE REPEATED * 

* INTO TEXT * 

* * 
***************** 



*****E2********** 



***************** 



DEF520 V 

*****C4********** 
• ADD FIELD * 



***************** 



*****D4********** 



„eaB T0 . 

ENTRY * 



***************** 



*****F4********** 

HawKf" : 

• ENTRY ♦ 

* * 
*************,**** 



V 
***** 

• 003* 

• £3* 
* * 



V 

***** 
•003* 
* E3* 
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LODPRT 

****A2*******»* 

* » 

* ENTER * 

* * 

*************** 



V 
.*. 

B2 *. 

.» ». 
• HERE 

ANY FIELDS 
». DEFINED 



». 



.* 



M3/17/A3 

*****B3********** 
•ERRPRO * 

* * 

->*G1VE MSG CP023 * 
* AND CONTINUE * 



*****B«***«****** 



******#**♦******* 



CLTO05 .,•*•„ 

.♦CURRENT*. 

.» PRINTER * 

*.POS. VALUE - 

*. 'OOl' .* 

*. .* 

*. .» 

• NO 



HOOEL 2 



*****C5********** 



•SET FOR MODEL I* 
->* FORMAT * 



***************** 



*****D2********** 
» * 

* MOVE NEW LINE 

* COMMAND 



._ - INTO 

TEXT STREAM 



***************** 



*. KATAKANA .*- 

*. FORMAT .* 

*. .* 

*. .* 

* NO 

**** 



* F2 *-> 



*****E3********** 

* * 

* ADO AN EXTRA * 



***************** 



**** 
CLTOIO V 

*****F 2+*** ****** 

* MOVE * 
•END-OF-HESSAGE * 

* COMMAND INTO * 

* TEXT STREAM * 

* * 
***************** 



X 



.* *• 
.* *. YES 

. KATAKANA .* 

*. FORMAT .* 



*****G3********** 

* * 

* ADO AN EXTRA • 
— >* BYTE FOR * 



***************** 



♦move end of fdt* 
•indicator into * 

* fot * 

* * 
***************** 



*****E4********** 



♦MOVE FDT LENGTH* 
* INTO FDT * 



***************** 



♦••••F4********** 



•MOVE TEXT SUE * 
* INTO FDT * 



***************** 



G* *. 
.* *• 
.« TEXT 
*. SIZE EVEN 
*. SECTOR . 



*****GS********** 

* * 
•ROUND TEXT SIZE* 

>* UP TO NEXT * 

* SECTOR * 

* * 
***************** 



•UPDATE CURRENT 
* TEXT PRINTER 



***************** 



V H3/1S/A4 

*****J2********** 
•BUFFS * 

* • 

* UPDATE 3270 * 
•BUFFER POINTER • 

* * 
***************** 



•MOVE NUMBER OF * 
•SECTORS OF TEXT* 

* INTO FDT * 

* * 
****••••••*•***** 



****#J4***»****** 

* * 
•MOVE NUMBER OF * 
•SECTORS OF TEXT* 

* INTO CONMON • 

* * 
***************** 



■V 

• *••• 

• 013* 

• B2* 



« ANY • 

TERMINATING 
•. ERRORS .* 

*. .* 



***** 

• 017* 

* H3* 



**** 

* * 

* B4 • 

* • 
**** 
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***** 

• 012* 

* M* 



LNGVLD 

****A4********* 

* * 

* ENTER • 

* * 
*************** 



•••••B2********** 
*MOVE TOTAL I OF* 

* SECTORS (TEXT * 

* AND FOTI INTO * 

* COMMON * 

* * 
***************** 



*****C2********** 



***************** 



CLT040 V 

*****02********** 

* * 

* POINT JCC2C0 * 

* LOAD PARM * 



***************** 



****E2********* 

• * 
•EXIT TO JCC2CQ * 

* * 
*************** 



V 
■ *. 

B4 *. 
.* *. 

1ST *. 

BYTE OF .* 
.VALUE A «.* 
». .* 
*. >* 
* NO 



.* 
*. 

* 


* 1ST * 

BYTE OF 

VALUE A 

BLANK 

*. .* 

*• .* 

* YES 


*. 
.* 

* 


LNGV30 

YES .* 
*. 

* 


V 
.*. 

04 *. 

* * 

2N0 

BYTE OF 
VALUE A * 
». .* 


*. 
.* 

* 



LNGV10 

*****C5 ********** 



* SET BIT OFF * 
->* INDICATING * 

•INVALID LENGTH * 

• * 
***************** 



BLANK 

• * 
*. ■* 
* YES 



MOVTXT 

****G2 ********* 

* * 

* ENTER • 

* * 
*************** 



MOV020 

*****H2********** 
* HOVE REQUIRED * 
*LENGTH OF OATA * 



***************** 



H0V030 

*****J2*********+ 

* * 
♦UPDATE CURRENT * 

* TEXT POINTER * 



***************** 



****K ?********* 

* * 

* RETURN * 

* * 
*************** 



* CHANGE ALL * 
♦BLANKS TO X'FO'* 



***************** 



.* 3RD 
BYTE OF 
••VALUE A #. 
*. .« 



V 

.*. 

H4 *. 

.* TOTAL *. 

* LENGTH *. YES 

VALUE - .* 

*• '000* .* 



****J4********* 

* * 
» RETURN * 

* * 
*************** 
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EJECT 

•***A2********* 

* * 

* ENTER * 

* * 
*************** 



82 *. 

.* FORM *. 

.* FEED * 

*. FUNCTION 

•.AVAILABLE.* 



YES 



V 

.*. 

C2 *. 

.•CURRENT*. 

YES .* PRINTER * 

*. POS. - 

*. 001 •• 
*. .* 



* NO 



*****D2 ********** 

* * 

* MOVE NEH LINE * 

* INLi COMMAND * 

* INTO TEXT * 

* * 
***************** 



*****£ 2********** 



***************** 



•ADD 1 TO NUMBER* 
>* OF NL'S TO BE • 

* AOOEO * 

* * 
***************** 



.* *. Y 

*. KATAKANA .*- 
*. FORMAT .* 



*****B5 ********** 

* * 

* ADD AN EXTRA • 
>* BYTE FOR * 

* KATAKANA • 

* * 
***************** 



*****04********** 



***************** 



F2 



.* 



*. 



.* *. YES 

*. KATAKANA .* 

*. FORMAT .* 
*. •* 
*. .* 
* NO 



*****F3********** 

* * 

* ADD AN EXTRA • 
>* BYTE FOR ♦ 

* KATAKANA • 

* * 
***************** 



EJE005 .*. 

G2 *. 
.* *. 
.* LAST *. YES 

*. LINE ON .* 

*. PAGE .* 
*. .* 
• *. .* 
♦ NO 



♦MOVE FORM FEED * 

* COMMAND INTO * 

* TEXT STREAM * 

* * 
***************** 



*****J2********+* 

♦UPDATE CURRENT * 
* TEXT POINTER * 



***************** 



EJE030 V M3/15/A4 

*****E4********** 
*BUFF3 * 

* ; * 

* UPDATE 3270 * 
♦BUFFER POINTER * 

* * 
***************** 



1 M3/15/A2 

*****F4********** 
♦NLTXT * 

* » 

* MOVE CORRECT * 
•NUMBER OF NL'S * 

* INTO TEXT * 
***************** 



**** 
EJE070 

*****G4********** 

* * 

* SET PRINTER • 

* LOCATION - * 

* ■01001' * 

* * 
***************** 



.* *. 
.* FORM *. NO 
«. FEED USED .♦ 



*****JA********** 

* * 

* SET PRINTER * 

* LOCATION - * 

* '01002 * 

* * 
****+*********♦** 



EJE015 V M3/13/A4 

*****K2********** 
•BUFFS * 



***************** 

I**** 
• * 
->* G* • 

* * 

*•*• 



****KA********* 

* ♦ 

* RETURN * 

* * 
*************** 
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NLTXT 

**+*A?********* 

* * 

* ENTER * 

* « 
*************** 



DUFFS 

****A4********* 

* * 

* ENTER * 

* * 
*************** 



**** 



.* *. VES 
*. KATAKANA .* 

*. FORMAT .* 



» * OF *. NO 

NL'S NEEOEO .*--—> 
*. > 4 .* 
*. .* 



« MOVE NL INTO * 
->* TEXT STREAM * 



•CONVERT . 
*3270 POIN 



CURRENT* 

. ..nter rn* 

32 70 AOOR 



***************** 



*****E2********** 
*HOVE REPEAT TO * 
•AODRESS COMMAND* 
» INTO TEXT * 
» STREAM * 
* * 

***************** 



*****F2********** 

* * 
» MOVE 3270 * 

* AOORESS INTO * 
« TEXT STREAM * 

* * 
***************** 



*****G2 ********** 
•MQVE CHARACTER * 
•TO BE REPEATED * 

* (NL COMMAND! * 

* INTO TEXT * 

* * 
***************** 



NLO40 V 

*****H2**« ******* 



•UPDATE CURRENT 
* TEXT POINTER 



***************** 



****J2********* 

* * 

* RETURN » 

* * 
******••*****•• 



***************** 



C3 *. 

• * *. 
•• *. NO 

*. KATAKANA .* — 

». FORMAT .* 
*. .* 
*. .* 
• VES 



*****03*** ******* 



♦SUBTRACT 1 FROM* 
* * OF NL'S * 



***************** 



**** 
BUFF05 ■' 

*****B4********** 



***************** 



••***C4***« ****** 

* * 

* ADO 



ONVERsi 

IELD LE! 



HEX 
..ON OF 
LENGTH 



NL017 V 

♦****£»***•****** 



•SUBTRACT 1 FROM* 
* * OF NL'S * 



***************** 



F3 *. 
.* *. 

YES .* MORE 
— *. NL'S TO BE 

*. MOVED . 
». .* 
• ■ .* 
* NO 



***************** 



*****DA ********** 

* * 

• ADD 1 TO 3270 * 
•BUFFER ADDRESS * 



•••*••*••******** 



NO .* 3270 

*. ADDR. POS. 

*. > MAX . 
*. .* 



*****F4********** 

• • 

• ADD 1 TO 3270 • 

• AOOR. LINE • 

• VALUE • 

• • 
***************** 



*****G4********** 

• * 

• SET 3270 AOOR • 

• POS. VALUE * • 

• '01' * 

• • 
***************** 



bUFF07 .*. 
H4 



*. 



• 3270 ». VES 

AOOR. LINE .* 

». > MAX .* 
*. •* 
*. •* 
* NO 



M3/17/A3 

****H5** ******* 
•ERRPRO * 

• HSG™CP017 • 

*************** 



BUFF10 .*. 
J4 



****K4********* 

* * 

* RETURN * 

* * 
*************** 
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CHKNAH 

* * 

* ENTER * 

* * 

*************** 



.*. 



.. B2 .. 

.* CONTROL ». NO *SET UP TO TEST * 

*! STATEMENT .» >* FIRST CHAR AS » 

*. .* » ALPHA CHAR « 

*. .» * * 

*, .* ***************** 

VES I .... 

* * 
->» G2 * 

* 4 



**** 

* * 

* 64 * 

* * 

**** 


**** 

* * 

* 65 * 

* * 
**** 

I 


1 
.* 

64 

.* 

.* HM 

*. LENGTt 

*. 


*. 
*. 
E *. YES 


CHK120 

V 

****tJ5********* 

* 


.* 


* 
*************** 


*. 


.* 
NO 





NO .* NAME *. 


— *. START KITH .* 


I *. tz .* 


«. .* 


V *. -*l 
**•* * YES 


* i 


H2 * 


' * 


**** 


V 


.*. 


D2 *. 


.* *. 


YES .* THIRO *. 


— «. CHARACTER .* 


1 *. BLANK .* 


1 *. .* 


V *. .* 


**** 


NO 


* 




H2 * 




I * 




**** 





*****C4********** 

* * 

* POINT TO NEXT » 

* CHARACTER OF * 



***************** 



*****F ?*******+** 

* * 

* * 
♦SET COUNTER - 2* 

* * 

* * 
***************** 



•SET BIT OFF IN * 

* COMMON FOR *< 

* INVALID NAME * 

* * 
***************** 



F2 *. 

.* *. 
.* NEXT ». YES 

*. CHARACTER .• 

». BLANK .* 
*. .* 
*. .* 
• NO 
**** 

* * 

* G2 *-> 



G2 ». 
.» *. 
.* NEXT 
*. CHARACTER 
*. VALID . 
«. •* 
*. .* 
• YES 
**** I 



*****F3********** 



***************** 



* H2 »-> 

* * I 
**** V 

CHK040 .». 

H2 *. 



. EMBEDDED 
». BLANK 

*. .* 
*. .* 
' NO 



ADD 1 TO 

COUNTER 



***************** 

I 

V 

**** 

* * 

* B4 * 

* * 

**** 
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* A* * 

* * 
**** 



REOPRT 

****A1********* 

* ENTER * 

* * 
*************** 



RED005 V H2/01/A1 
*****C 1*********4 
*BLDINP * 



* RETURN ON ARR * 

* * 
***************** 



**** 

* * 

* C2 * 

* * 
**** 

I 

V 

■ *• 

C2 *. 

.* 

COM..,..- 

stateRent 



****D1 ********** 
E INOICATQR • 



***************** 



ANY 

RECORDS 

LEFT 

*. .* 



****D2********* 

* * 

* RETURN * 

* * 
********** ■»**** 



ERRPRO 

****A3*****++*+ 

* * 

* ENTER * 

* * 
*************** 



ENSOIO V 

*****B3********** 
* * 

*SCAN TABLE FOR * 
•CORRECT MESSAGE* 



***************** 



* SET UP * 
•PARAMETER LIST • 

* FOR SYSPR1NT * 

+ * 

***************** 



*****D3********** 



*****F1 ********** 

* * 

* HOVE RECORD * 

* INTO PRINT • 

* BUFFER * 

* * 
***************** 



.*. 

Gl *. 
.* MAS *. 

.* THIS A *. YES 

. PREVIOUS .« 

*. RECORD .* 
*. .* 



*. 



* NO 



* TYPE A *. YES 
ERROR OCCUR .* 



G MESSAGE* * 
YSPRINT * * 



***************** 



*****E3********** 



***************** 



V 
.*. 

F3 *. 

.* *• 
.•SEVERITY A *. NO 

. TERMINAL .* 

*. ERROR .* 
*. .* 



• * 



* * 



•STATEMENTS 

* * TO NEXT • * 

* * FORMAT OR • * 

* * INPUT END * * 
***************** 



**** 
*012* 
* K2 *-> 



V SEE NOTE 
*****A4********** 

* •HALT/SYSLOG* * 

* *'U-PF>' WITH* * 

* *CONTINUE OR* * 

* *EOJ OPTION * * 

* * * * 
***************** 



V 

.*. 

B4 *. 

.* *. 

.* MORE *. NO 

«. FORMATS TO .* 

*. PROCESS .* 



*****C4********** 



****B5********* 



*************** 



VISOR 

SCC2 



*SUPER' 
* LOA 



***************** 



****D4********* 
•BLDINP * 



****F4********* 

* * 
->* RETURN * 

* * 
*************** 



**** 
EMSOSO V 

*****H3********** 

♦GIVE 'NO FORMAT* 

* GENERATED 1 * 

* MESSAGE * 

* * 
A**************** 



***** J 1 ********** 



***************** 



M3/17/A3 

*****K2 ********** 
•ERRPRO * 

* * 

->* GIVE MSG FROM *-- 
* JCC2CS AND * 
» CONTINUE DUG * 
***************** 



.*. 

K3 *. 
.♦THIS IS*. 
.* i *. YES 

->*. TERMINATION .* 

*. ERROR .* 



• * *003* 

• C2 * * E3* 

• * * * 
• *** * 
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CONHEX 

****A2********* 

* * 
» ENTER * 

* * 

*************** 

**** 

* • 

* B2 »-> 

* * 
**** V 

CON03O . .*. 

82 *. 
.* *. 
.* CHAR *. NO 

*. 'LINE' LESS .* 

». THAN 1 .* 
*. .* 
«. .* 
* YES 



*****B3********** 
* * 

FROM* 

VALUE 



*****B4********** 



• SUBTRACT , .. 

->* CARDS .'LINE' 



. 1ST * 
TER LEGAL* 



HOVE 
HARACT... ... 

3270 ADOR. 



|. 



CON04O .*. 

C2 *. 

.* *. 

YES .* CHAR *. 

*. 'POS.' LESS .* 

*. THAN 1 .* 

*. .* 

*. ,* 

NO 



*****D2********** 

* * 
♦SUBTRACT 1 FROM* 

* CARDS * 

* 'POSITION' * 

* *. 
***************** 



*****E2********** 



***************** 



***************** 



*****C3********** 

* * 

* ADO 1 TO HEX * 

* LINE NUMBER * 



***************** 



***************** 



*****C4********** 

* * 

* MOVE 2ND * 
♦CHARACTER LEGAL* 

* 3270 ADDR. * 

* * 
***************** 



****04********* 

* * 

* RETURN * 

* * 

*************** 



C0N050 V 

*****G2*** ******* 



***************** 



V 

.*. 

H2 *. 



*****H3********** 

* CONVERT HEX * 

* 'LINE' VALUE * 
->* FOR LARGE * 

* DISPLAY * 

* * 
***************** 



* CONVERT HEX * 

* 'POSITION' * 

* VALUE * 

* * 
***************** 
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**** 

* * 

* A2 * 

* * 

**** 



**** 

* A3 * 

* * 

**** 



SCC2C0 

****Al********* 

* * 

* ENTER * 

* * 
*************** 



♦SAVE POINTER TO* 

* PFGR COMHON * 

* AREA • 

* * 

***************** 



*****Ci ********** 



PRINT 
INE FULL 



*****B2 ********** 

* PRINT LINE OF * 

* OUTPUT AREA *- 

* DESCRIPTION * 

* * 

***************** 



A3 *. 

.* ANV *. 

EXECUTION 

TIME DATA 

. FIELDS . 

*. .* 

*. .* 

* YES 



*****A4********** 

* * 

* SET INDICATOR * 
->*IN FDT (FOTNDT)* 



***************** 



* HI * 

* * 

**** 



OUT035 .*. 


84 ♦. 


.* * 


.« PRINT 


*. BUFFER 


*. EMPTY 


*. .« 


*. .* 


* YES 



*****B5********** 

* * 
♦PRINT LAST LINE* 

->*OF OUTPUT AREA * 

* DESCRIPTION * 

* * 
***************** 



* HI * 

* * 

***♦ 



COMHON AREA 
(LOHHON) 



***************** 



♦PRINT LENGTH OF* 

♦ OUTPUT RECORD ♦ 

♦ HEADING ♦ 

♦ ♦ 
***************** 



* MAIN HEADING * 

* ♦ 
*♦♦♦♦****♦*♦♦*♦** 



*****£l********** 

* ♦ 

* PRINT HEADING • 
♦FOR OUTPUT AREA* 

* DESCRIPTION ♦ 

* ♦ 
***************** 



*****F1 ********** 



PRINT FIXED 
OATA 



***************** 



♦♦***G I********** 

♦ HOVE PRINTER * 

♦ FORMAT NAME IN * 
♦AS FIRST OUTPUT* 

♦ AREA ENTRY * 

♦ * 
*************♦♦♦♦ 



* HI ♦-> 



♦♦** 
0UT020 V 

♦♦♦♦♦HI ***♦♦♦***♦ 

♦ SCAN FDT FOR ♦ 

♦ FIELD WITH * 
•EXECUTION TIME * 

* DATA * 

* * 
♦**♦*♦*♦♦♦♦*♦♦♦♦♦ 



V 
T030 .*. 

Jl ♦. 
.♦ *. 
.♦ END OF ♦. 
♦ . FDT 

♦ . .♦ 

♦ . .♦ 



***************** 



**+**E4* ********* 

* * 

* * 

* PRINT SUFFER * 

* * 

* * 
***************** 



*****ftt********** 

♦ PRINT CCP » 

♦ ASSIGNMENT ♦ 

♦ INFORMATION ♦ 

♦ HEADING ♦ 

♦ * 
***************** 



*****G<t********** 

* * 

* CALCULATE ANO * 

* PRINT FDT * 



***************** 



*****H4********** 

♦ CALCULATE ANC * 

♦ PRINT DATA * 

♦ STREAM LENGTH * 

♦ 4 

***************** 



***** 

*002* 
* AI* 



**** 

♦ * 
->• A3 * 

* * 

**** 



♦♦♦♦♦Kl ***♦♦***** 

* HOVE FIELD * 
♦NAME, LNTH, ANO* 

* LOCATION TO * 

* PRINT LINE * 

* * 
***************** 
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***** 

*002* 
* Al* 



41 *. 
.•ANY •«■■ 
.* ERRORS 
*. DURING 
*. BUILD 



SEE NOTE 
*****A2 ********** 

* *HALT/SYSLQG* * 

* *'U-P1' HALT* * 
->* * HITH * * 

* *CONTINUE OR* * 

* *EOJ OPTION * * 
***************** 



•BUILD . 

* IN OLE CQMHON 



DIRECTORY* 

_E CO " 

AREA 

* * 

***************** 



* set up otf to * 
*put fdt to woek* 

* file on Bisk * 

* * 
***************** 



*****D1 ********** 



FILE ON OISK 



***************** 



.* 

sue 



**** 

* * 

* C2 * 

* * 

**** 

! 

*****C2********** 

* * 
•SET BIT IN OLE • 

* COMMON TO * 

* RELOAD $CC2SS * 

* * 
***************** 



*****02 ********** 

* HOVE »CC2CS * 
*LOAD PARAMETER * 

* LIST INTO OLE * 

* COMMON AREA * 

* * 
***************** 

**** 

* * 

* E2 * 

* * 
**** 

V 
*****E2 ********** 



*. NO 

L .* 7 

.* I 



**** 

* * 

* F3 * 

* * 
**** 



******** 



*****F 1********** 

* * 

* SET UP DTF TO * 
*PUT DATA STREAM* 

* TO WORK FILE * 

* * 
***************** 



*****G1********** 
•PUT TEXT (3270 * 
♦DATA STREAM) IN* 

* WORK FILE ON * 

* OISK * 

* * 
***************** 



V 

.*. 

HI *. 
.* 
.* MAS PUT 
*. SUCCESSFUL 



******** 



SEE IBM SYSTEM/3 

DISK SYSTEMS 

SYSTEM CONTROL PROGRAM 

LOGIC MANUAL, SY21-0502 



see ibm system/3 
overlay linkage editor 
and Checkpoint/restart 
programs logic manual. 



O 



****F2********* 

♦ * 

♦ EXIT TO $OLbO * 

♦ * 

********* ****** 



*« 



**** 
NO * * 
* >* F3 * 



.* 

.* 
YES 



***+ 

* * 

* F3 *— 

* * 

**** 

ogio 

*«***(= 3*** ******* 

* * 

* PRINT ERROR * 
♦MESSAGE FCR BAD* 
+ PUT * 

* * 
***************** 



V SEE NOTE 1 
*****G3**** ****** 

* *HALT/SYSLOG* * 

* *»U-PP T HALT* * 

* * HITH * * 

* *CONTINUE OR* * 

* *EOJ OPTION * * 
***************** 



• MORE *. NO 

RECOROS TC .* 

*. PROCESS .* 



SEE NOTE 1 

****H't ********* 

* * 
->* EOJ * 

* * 
*************** 



MORE 


*. 


NO 


RECORDS TO 




* 1 


. PROCESS 


* 


1 


*. .* 






*. .* 




i 


* YES 
1 




**** 

* 

* E2 


V 




* 


**** 




**** 


* * 






* C2 * 






* * 






**** 







•GOTO SUPERVISOR* 
•AND LOAO KC2CS* 



***************** 



****K3********* 
*BLOINP * 



******** 
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Chapter 8. Startup 



Introduction 

Startup, the third stage of CCP, combines various tables 
of required control information with executable code to 
form a usable CCP system. Startup is the final stage of 
CCP preparatory work and the beginning of execution of 
the resident CCP control program. Once initiated. 
Startup initializes CCP and turns control over to stage 4 
(the Execution Stage), which controls the teleprocessing 
network. 



Startup draws together the results of Generation/Installation 
(stage 1) and Assignment Build (stage 2), information con- 
tained in the DSM library directories, and the system oper- 
ator's input to form necessary control information on disk 
and in main storage (Figure 8-1). Some of this control 
information is required in a form processable by DSM; 
other segments are formatted for MLTA and/or BSCA 
IOCS. Still other information is designed exclusively for 
CCP control code. 




Figure 8-1. Basic Picture of Startup ($CCPFILE, Object Library, Storage, Console) 
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Following is a list of major functions of Startup in the 
order they are executed (not necessarily by phase): 

• Receive specifications for this run from the system 
operator. 

• Locate subsequent Startup phases. 

• Build DFF format index. 

• Cross reference CCP transients. 

• Relocate CCP transients. 

• Remove, for any facility, all indicators of suppression 
of that facility that may remain from a previous 
execution of CCP. 

• Allow system operator to suppress facilities. 

• Locate user programs and initialize Program Control 
Table. 

• Load generated base module $CC4 and initialize it. 

• Load Terminal Attributes Table. 

• Build DTF/LCBs and related areas for TP control. 

• Build Terminal Unit Blocks. 

• Build Terminal Name Table. 

• Build user Task Control Blocks. 

• Build Contents Directory Entries. 

• Build index to Program Control Table. 

• Open disk files and compress DTFs. 



• Build Sector Enqueue Blocks. 

• Build File Specification Blocks. 

• Execute F.E. REP card processor. 

• Load DFF and $CC4#3 into PL1 if remap. 

• Locate first level CCP transients. 

• Allow terminals to be set offline. 

• Allocate the remainder of main storage. 

• Open MLTA lines (Models 8, 10, and 12 only) 

• Open BSCA lines. 

• Reset the DSM entry points for CCP use. 

If any error situation is encountered during Startup which 
will prevent the normal completion of an initialized CCP 
system, an attempt is made (where practical) to continue 
for the purpose of further diagnostics. Ultimately, though, 
a termination message is issued to the system operator, and 
control is returned to DSM instead of being passed to 
the CCP resident control program. 

Startup is interactive. The system console typewriter 
serves as the vehicle of communication between Startup 
and the system operator. It must be available to CCP 
when starting up. There are two modes by which the 
operator can specify information to Startup: keyword 
mode and prompt mode. Keywords may normally be 
entered when a question is asked (question mark at the 
end of the sentence). Answers to prompting statements 
are given directly as each is called for. 
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OPERATIONAL CONSIDERATIONS 



SYSTEM REQUIREMENTS 



OCL Restrictions 

A maximum of 40 FILE statements for disk files can be 
entered. This is a DSM restriction. (The Assignment 
Build Program limits the combined sum of DISKFILE 
and SYMFILE statements to 100.) If more than 40 
files have been defined to CCP Assignment Build, those 
lacking OCL at Startup must be suppressed during phase 
$CC3FS or a terminal Startup error is issued by phase 
$CC3DL. Extraneous OCL (those FILE statements for 
which there are not matching FCT entries) is ignored by 
$CC3DL when Fl LE statements are scanned. 

On the Models 8, 10, and 12, the // BSCA OCL statement 
can also be entered but causes a terminal error to be 
issued by $CC3TB if two BSCA DTFs are built: this OCL 
causes all BSCA DTFs to refer to the same designated line 
after the DTFs are opened where CCP requires one DTF 
for each BSCA line opened. If only one (either line) BSCA 
DTF is built by $CC3TB, the BSCA OCL is accepted and 
the values #DFILN and #DF2LN in $CCCOM are set 
accordingly. After the DTF is opened, it reflects the OCL- 
designated line. 



User Security Information (Models 8, 10 and 12 Only) 

Startup assumes that the user has run $CCPAU if user- 
written sign on security routines are used. No check is 
made on the data in module $CC4Z9 when $CC3LD 
moves it into the user security work area within $CC4. 



Startup requires the following minimum system 
configuration: 

• 5404 Processing Unit (64K of MOSFET memory) 
or 

5410 Model A15 Processing Unit (24K of main storage)- 

Model 10 

or 

5412 Model B17 Processing Unit (48K FET memory )- 

Model 12 

• 5444 Model 2 Disk Storage Drive-Model 10 
or 

5447 Model 1 Disk Storage Drive-Model 4 

or 

3340 Model C2 Direct Access Storage Facility-Model 12 

• 5471 Printer-Keyboard 

• 5203 or 5213 or 1403 Printer 

• Teleprocessing line (BSCA, MLTA, or local display 
adapter) 

Note: Startup can be initiated in a program level of 18K 
bytes or larger. However, if at least 20K is not available to 
CCP, Startup terminates with an error message. The 20K 
limit does not guarantee a successful Startup with regard to 
main storage availability; the limit is based on the size of 
the smallest possible $CC4 module, assignment set, and 
user program area. 
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Method of Operation 



OPERATIONAL OVERVIEW 

Startup is initiated when the system operator enters OCL 
from the sysin device requesting the loading of $CCP. 
$CCP is the initial (or root) module leading to the exe- 
cution stage of CCP. When $CCP is given control, its 
first function is to allocate the console. This serves two 
purposes: (1) it lets DSM check for console support, and 
(2) it prevents data management in the other level of a 
DPF system from using the console. 



PARTITION statement. If one had been entered, the main, 
storage bounds are not altered. If one has not been 
entered, the beginning address of level 2 is set to the 
ending address of level 1. This latter action inhibits level 
1 until CCP is shut down. 

The other level IAR is now loaded to set U-into the stick 
lights. EJ is returned into the lights just prior to the point 
in the temporary code in the $CC4 transient area (Chart 
OA) where control is turned over to the Command Processor. 
The address of the EJ halt is found by decrementing by 3 
the address of the other level standby routine NPSTBY. 



DPF System Determinations 

Following the initial identification message, SU001 , 
$CCP determines whether DSM is generated for DPF by 
testing bit 2 of byte NCSCH1 in the System Communication 
Area and sets a flag bit for DPF (not set for non-DPF) 
in the Startup Save Area (byte SSAMS1, bit SSADPF) 
to guide the error exit logic of any module encountering 
a permanent disk error. 

If DSM supports DPF, the CCP program level is determined 
by storing the contents of program level 1 IAR and 
comparing it with an adcon of the address following the 
store instruction. Again a bit is set or not set in the 
Startup Save Area (byte SSAMS1, bit SSALVL) to guide 
the error exit logic if a disk error is encountered. 

If the other level of a DPF system is active (bit of 
byte NPSCH4 in the other Program Level Communication 
Area is tested), Startup terminates with an error message 
(SU010). 

To prevent the other level from starting while Startup is 
active, a U- halt loop (halt, branch back to halt) is moved 
into the other level's transient work area, ending at 
NPHTRN. The address of the halt is set as the operand 
of the branch instruction and the address of the branch 
operand is set as the operand of a future load IAR instuc- 
tion. 

At this point the main storage bounds for CCP are deter- 
mined. If CCP is in level 1, the ending address for level 1 
is set to the beginning address of level 2. This level 2 
address may or may not have been set by a PARTITION 
statement. If not, level 2 is rendered unusable until CCP 
has shut down. If CCP is in level 2, bit 5 of System Commu- 
nication Area byte NCSCH is tested for the presence of a 



Initial Determinations for Any System 

In preparation for verifying the presence, if necessary, of 
MLTERFIL on disk unit F1 and validating, if necessary, 
the keywords (PASSWORD, TRACEMLMP, and 
TRACEMLTA) prior to the specif ication of the unit for 
$CCPFILE, module $CC1BF is located by a Find operation. 
The first sector of $CC1 BF, the CCP configuration record, 
is read into main storage and moved temporarily to the 
area of storage that will later be occupied by the CCP 
configuration record when it is read from the specified 
$CCPFI LE. The user must not alter the contents of the 
unique $CC1 BF belonging to a particular CCP generation/ 
installation. It represents the generated level of support. 
Unpredictable results can occur if $CC1 BF is altered. 

If any MLTA support is generated in CCP, or if BSCA 
control station support is generated, disk unit F1 is 
searched by a VTOC read for MLTERFI L. 

DSM and CCP are checked for both supporting DPF or 
both not supporting DPF (bit SSADPF in byte SPLVLK 
for DSM, bit CFGDPF in byte CFGFA1 for CCP). To 
support DPF, CCP generates code which manipulates the 
other level IAR. This code is not present if CCP was 
generated without DPF specified. 



$CCP FILE Processing 

The CCP program pack is searched for $CCPFILE using a 
VTOC read. If $CCPFILE is not found. Startup asks the 
system operator on the console typewriter for the 
$CCPFILE disk unit. A VTOC read is used to read the 
VTOC on the specified 5444 unit. (Console operations in 
Startup are performed using the Write-to-Operator Sub- 
routine, $CCWTO.) 
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The basic check for integrity of the information in 
$CCPFILE is a test for X'EBD7' (X'FB04' on Model 4) in 
the first two bytes of the file. The test allows a check of 
whether the file is initialized or whether the first sector 
has been written over inadvertently. 

Multiple $CCPFILEs may exist, but only one per pack 
can be addressed. The particular type of VTOC read used 
in $CCP considers the first $CCPFILE encountered to 
be the only $CCPFILE on that pack. The $CCPFILE 
designated for a particular run may reside on any 5444 
unit, but it must have been initialized by the $CC1 BF 
module on the program pack. If the specified unit is 
R2 or F2, the DSM system configuration record is 
checked (bits 6 and 7 of byte DISK) to be sure DSM 
supports that unit. (The DSM configuration record has 
previously been read by using a parameter list with a 
RIB of X'8A'.) 

All disk reads, and writes of information in $CCPFILE 
are done directly with an IOB and require the disk 
cylinder/sector address for each disk operation. Since 
the directory sector of $CCPFI LE uses one byte per 
table to indicate the number of sectors that table contains, 
the disk address of each table must be calculated. This 
is done by stepping the address of the first $CCPFILE 
sector (from the VTOC read) to the address of the first 
System Information Table then looping through the 
directory entries, incrementing the disk address value to 
the next valid disk address for each sector in a table 
stepped over. After having calculated its set of table 
addresses, the operator-selected set ID is recognized and 
the directory of $CCPFI LE is compressed to 17 bytes of 
prologue, the directory entry of the selected set, and the 
table of disk addresses calculated for that set. The result 
is the compressed directory used throughout Startup. 



Keyword Mode Processing 

When the first valid keyword {except LOG-unit) from the 
system operator is accepted in $CCP, bit SPKMOD of byte 
SPSW1 is set on to signal that the operator may not subse- 
quently enter a YES/NO type reply. The same technique 
is used in $CC3FS, where an initial keyword replay causes 
bit FSKMOD of byte FSFLGD to be set on for the same 
purpose. The only case where the operator can escape 
keyword mode is by using CHANGE— YES or 
CHANGES-YES (Y may be substituted for YES) in a key- 
word specification after message SU01 1. 

Pressing the END key with no input data selects a value by 
default for most items. However, in some cases where diag- 
nostics are issued, a new value is imperative and the operator 
cannot get past that point until an explicit selection is made. 



$CCP and $CC3FS contain the same keyword processor 
routine. This routine uses the scan subroutine $CCSCN 
with its Scan Control Block. The keyword table for this 
routine is (and must be) in alphameric order within 
keyword length. 

A reasonableness check on the amount of main storage 
available to the dynamic TP buffer and user program 
area is made in $CCP by checking that neither (when 
specified) exceeds the size of the program level minus 
10K. (The minimum setting of user program area 
(MINUPA) is 5K.) This guarantees space for Startup 
to execute in. The absolute minimum value for dynamic 
TP buffer area is the calculated value (by Assignment 
Build) of the maximum command length (field SITMCL 
in the System Information Table). 



Disk I/O Errors 

All phase 3 modules except $CC3CE, $CC3CX, $CC3RO, 
$CC3FB, $CC3QB, and $CC3UB perform disk I/O. 
A disk error in any Startup phase causes a U— halt (1234 
halt on Model 4) in the CCP level. Pressing HALT RESET/ 
START causes a UE subhalt (ABC 4 halt on Model 4). If a 
main storage dump is taken at this point, the value of the 
ARR, XR1, and XR2 will be found stored just beyond the 
halt-subhalt routine. In most phases ($CC3CR, $CC3DF, 
$CC3DL, $CC3FX, $CC3IP, $CC3LD, $CC3PX, $CC3RT, 
$CC3TA, $CC3TB, $CC3TC, $CC3US) these stored values 
follow a branch to location 4 with a RIB of X'84' (EOJ). 
In the other phases the location of these fields varies from 
phase to phase. The value of the stored ARR points just 
beyond the code invoking the disk operation which en- 
countered the error. XR1 points to the IOB in use. If 
HALT RESET/START is pressed following the UE sub- 
halt, the CCP changes to DSM, made in a DPF system (other 
level U— halt, alteration of branch to DSM halt check 
routine discussed later), are restored and control is returned 
to DSM via RIB of X'84' (EOJ). 



Termination of Startup by the Operator 

Startup may be cancelled by typing in CANCEL as a reply 
to messages SU01 1, SU025, SU045, SU105 if in prompt 
mode, SU300, SU375, SU91 8, and in one special case 
after message SU040. The last case is possible only if 
the assignment set specified by keyword (prior to the 
selection of the unit for $CCPFILE) did not exist. 
When instructed to select a set from the list, CCP may be 
cancelled. 
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It should be noted that Startup is constructed such that 
if the PROGRAM LOAD button is pressed at any time 
during Startup (and prior to the first terminal communica- 
tion), no damage is done and there is nothing from which 
the operator must take special action to recover. CCP 
may be re-initiated after stopping it at any point during 
Startup. Use of the DPF interrupt control is not supported 
by Startup. Use of this control during Startup may cause 
both program levels to become inoperative. 

Prior to entering the Execution Stage (stage 4), Startup 
sets on two bits (bits 1 and 2 of byte NCCONF), in the 
system communication area. These bits indicate that 
CCP is executing and are used to prevent initiation of 
certain programs in the other level. 



PHASE OVERVIEWS 



verifies that no transient is too large for the transient 
area. 

The relocation operation is performed as follows: 

The volume label of the program pack is read to obtain 
the extents of the object library directory. 

The entire directory is scanned for object modules whose 
names begin with $CC4. If none are found, an error 
message is issued on the console, an error switch is set 
on, and an exit is taken. When such a module name is 
found, the relocation eligibility list in module $CC3RI 
(link edited with $CC3RT) is searched for a match on 
ID (last two characters of module name). If a match is 
found, the ID, cylinder/sector address, number of text 
sectors, and the displacement of the RLD within the 
last text sector are placed in a table. 



Diagram 8M.01 00 is an overview of the Startup phase-to- 
phase control flow. 



The table of transients to be relocated is sorted on cylinder/ 
sector address to minimize disk arm motion in reading and 
rewriting transients. 



Loader Routine for Startup Phases 

$CC3RO is the routine that loads subsequent phases 
of Startup. $CC3RO is loaded into the last three main 
storage sectors of the program level. The first sector 
begins with a jump instruction followed by the two-byte 
ID of the phase to be loaded and the corresponding ten- 
byte parameter list. The last sector contains 20 ten-byte 
parameter lists which identify subsequent Startup phases. 
In addition, the last four-bytes contain the two-byte ID 
of the current phase and the address of the beginning of the 
startup save area. 



Phase $CC3CR: Initialize Disk Addresses of Transients 

$CC3CR locates all $CC4xx object modules on the program 
pack and builds a table of their cylinder/sector addresses. 
These modules are then read as data and searched for the 
transfer control (XCTL) function (one $CC4xx module 
calling another $CC4xx module). Where this function 
is encountered, the actual cylinder/sector address of the 
called module is plugged into the calling module's 
parameter list. The calling module is then written to 
disk. This operation results in speedier operation of 
CCP during execution (stage 4). 



Phase $CC3RT: Relocate CCP Transients 

$CC3RT relocates addresses in CCP transients such that 
each transient can execute wherever its transient area 
falls during this execution of CCP (Figure 8-2). $CC3RT 



The second sector of module $CC4 (first sector of CCP 
transient area) is read in and retained. At the beginning 
of that area are the transient area address offsets and the 
table of resident code addresses needed for transient 
relocation. 

The table of transients to be relocated is stepped through and 
each transient is read. The transient area ID within the 
transient is used to calculate the beginning address at 
which this transient is to be loaded later by the CCP control 
program. 

After all relocatable addresses have been initialized, the 
transient is written back to disk provided the number of 
RAT (Relocation Adcon Table) entries exactly matches 
the number of RLD entries. If they do not match, an 
error message is issued on the console explaining which 
set of entries had the greater number, an error switch is 
set on (byte SSAERR in startup save area is set to X'FF') 
to prevent Startup from successfully completing, and 
the module in error is not written back to disk. The 
next transient is then relocated. 

There are three types of RAT entries. Each is assembled 
as an absolute value: 

Oxxx — Address of beginning of transient + Oxxx. 

Cxxx - Address of $CCCOM + offset of xxx. 

80XX - Actual value is found in $CC4 transient area 
at offset of xx. 



8-6 





$CCP 


$CC3R0 






$CC3L0 


$CC3R0 






$CC3FX 


$CC3R0 






$CC3CR 


$CC3R0 






$CC3RT 


$CC3R0 






$CC3US 


$CC3R0 






$CC3FS 


$CC3R0 






$CC3IP 


$CC3R0 






$CC3LD 


$CC3RO 






$CC3TA 


$CC3R0 






$CC3TB 


$CC3R0 






$CC3TC 


$CC3R0 






$CC3UB 


$CC3R0 






$CC3CE 


$CC3R0 






$CC3PX 


$CC3R0 






$CC3DL 


$CC3R0 






$CC3DF 


$CC3R0 






$CC3QB 


$CC3RO 






$CC3FB 


$CC3R0 






$CC3CX 


$CC3R0 






$CC3MV 


$CC3R0 






$CC3EJ 




$CC4 



Page of SY2 1-053 1-2 
Issued 24 June 1977 
ByTNL: SN21-5530 



Diagram 8M.0100. Phase-to- Phase Control Flow 



Method of Operation 8-7 




Executable 
code 



CCP relocation 
adcons 



" Link edit point prior 
-to first relocation 



$CC4 



$CCCOM 



256 



768 



Address 1 



Address 2 



Address n 



Transient 
area 



DSM 
RLDs 



$CC3RT 8P.006 Q 



Tfil . :. ll 
Executable 


111 ■■ 1 

CCP 


II 1 TTT 

DSM 


code 


relocation 
adcons 


RLDs 


Current 


Oxxx 




execution 


80xx 




Lpoint 


COxx 





Figure 8-2 (Part 1 of 2). Overview of Transient Relocation 



8-8 



00 
N 



o 



o 
-*» 

H 

m 

3 
(A 

a 

3 
r+ 

3) 



Before 
relocation 



After relocation 
for transient 
area 1 

After relocation 
for transient 
area 2 



Example of internal type relocation adcon 



— Original link-edit address was X"I400' 

— Program level begins at X'1400' 

— CCP transient area 1 begins at X"I500' 

— CCP transient area 2 begins at X"I700' 



Instruction 



|3 5|0 2|1 5 8 3| . . . 
OP Q Relocatable 
address 

Link-edit result 



i3 5i0 2 t 1 6 8 3 t . 



|3 5i0 2i1 8 8 3| . . . 



Relocation adcon 



lO 1 8 3| . 



x x x type 
relocation adcon 



iQ 1 8 3| . 



Example of SCCCOM type relocation adcon 



Original link-edit address was X'1 300' 
Now program level begins at X'1400' 



Instruction 



lO 1 8 3| . 



i35(0 2|1 36F| . . 
OP Q Relocatable 
address 

Link-edit result 



Relocation adcon 



|C0 6F| 



C x x type 
relocation adcon 



Area 1 or 2 



|3 5|0 2|1 4 6F| . 



|C06F| 



Example of external type relocation adcon 



— Original link-edit address of transient was X'1300' 

— $CC4 link-edit address was X'1400' 

— Current program level begins at X"1500' 

— $CC4 transient area 1 contains 

, 1 0010300!. . -i. ■ .i. ■ -|6A9C| 
1 3 5 7 9 B 



Instruction 



i35i0 2|1 30 B| . . 
OP Q Relocatable 
address 

Link-edit results 



Relocation adcon 



j800B| . 



8 x x type 
relocation adcon 



Area 1 or 2 



|3 5|0 2|7 A9C| 



|8 0B| 



o 

o 

■o 



00 

to 



The internal type of RAT entry (Oxxx) is handled by 
initializing the relocatable address field with the address 
of the transient area in which the transient is to execute, 
then adding the RAT entry. The result is an address 
within the transient itself. 

The $CCCOM type of RAT entry (Cxxx) is handled by 
moving the beginning address of the program level 
($CCCOM address) into the relocatable address field, 
then adding the RAT entry with the high order byte 
zone bits set off. The result is an address within $CCCOM. 

The external type of RAT entry (always an odd number) 
is handled by first creating the address from which the 
actual value will come. This is accomplished by adding 
the RAT entry (with the high order byte zone bits set 
off) to the address of the I/O area within $CC3RT where 
the first sector of CCP transient area was read in. The 
value at the resulting address is moved into the relocatable 
address field. Then the link edit address of $CC4 is 
subtracted from the field and the address of the beginning 
of the program level is added to the field. The result 
is an address within $CC4, outside of $CCCOM, and 
adjusted to the correct address for the current CCP run. 



Phase $CC3US: Clear All Suppression Indications 

$CC3US successively reads in the File Control Table, the 
Program Control Table, the Terminal Unit Table, and the 
Line Control Table from $CCPFILE, sets off the suppress 
bit in each entry of each table, and rewrites the tables 
to disk. 



Phase $CC3FS: Suppress Selected Facilities 



Functions 

Allows the operator to suppress any defined DISKFILE, 
SYMFILE, PROGRAM, BSCALINE, MLTALINE, TER- 
MINAL, or the Program Request count. 

Note: The distinction between suppression of a terminal 
and setting it offline is that suppression entirely deletes 
the Terminal Unit Block and marks the primary terminal 
name as unassigned, while setting a terminal offline 
simply sets off the TUBONL bit in TUB (TIMTTUB is 
zero), byte TUBAT1. An offline terminal can be varied 
online by the system operator so the terminal can be used. 
A suppressed terminal is (to the Execution Stage) as if 
it never had been defined in Assignment Build. Therefore, 
it cannot be used. 



Suppresses any facility requiring a facility which has 
been suppressed. 

Cancels CCP if a startup cannot be completed due to 
suppressed facilities. 

Allows CCP to be cancelled by the operator. 

Resets all relative DISKFILE and SYMFILE pointers in 
each Program Control Table entry. 



Operation 

If the operator answered YES or Y to message SU045 
or specified SUPPRESS by keyword, the opportunity 
will be given to suppress facilities. Otherwise this module 
goes directly to reset the PCT file pointers and exits. 

If the facilities may be suppressed, a check is made 
(usually by searching for a dummy facility) for presence 
in the assignment set of SYMFILEs, BSCALINEs, and 
MLTALINEs, and the total number of TP lines is tallied. 
Flag bits are set so these facilities can be accepted or 
immediately rejected or bypassed later. In prompt mode, 
any facility not present will cause prompt to be bypassed. 

Once the keyword or prompt mode is chosen, the alternate 
mode cannot be entered. The actual suppression is 
accomplished by reading the appropriate table from 
SCCPFI LE, setting on the suppress bit in the designated 
entry, and rewriting the table to disk. In some cases, the 
same basic subroutines are used with different purposes 
and results by the use of flag bit settings. 

In keyword mode, first the keyword is validated, then the 
keyword value normally takes the logic path that value 
would take as the reply to a prompt. 

The suppression of a file, line, or terminal may cause a 
chain reaction of automatic suppression. Suppression of 
a DISKFILE will automatically suppress any program using 
that file and suppress any SYMFI LE whose last (or only) 
unsuppressed reference is to the suppressed DISKFILE. The 
order of suppression is: 

1. Suppress the designated DISKFILE. 

2. Suppress any SYMFILE whose DISKFILEsare all 
suppressed. 

3. Suppress any program using any suppressed DISKFI LE 
or SYMFILE. 

4. Check for all programs having been suppressed. 

5. Check for all files having been suppressed. 
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If all files are now suppressed, a warning message is issued 
and in prompt mode will cause the next question to be on 
suppression of programs. SYMFI LES are bypassed since 
they are all suppressed. 

SYM FILEs are suppressed using almost the same logic as 
DISKFILE suppression. However, all files cannot be 
suppressed as a result of SYMFI LE suppression. 

Programs are straightforwardly suppressed with nothing else 
being affected by this action. CCP is terminated if all 
programs have been suppressed. 



If BSCALIMEs and/or MLTALINEs exist in the set, any 
of these may be suppressed. An error message is issued if 
the designated line number does not exist in the set. 
Following straightforward line suppression, all terminals 
on the line are also suppressed and the operator is informed 
by console message of each newly suppressed terminal. 
CCP is terminated if all TP lines have been suppressed. 

Any terminal may be suppressed by specifying its two- 
character ID. If in prompt mode, CCP may be cancelled 
by typing in CANCEL when the opportunity to suppress 
terminals is given. A terminal is straightforwardly 
suppressed. If all terminals on the line have been suppressed, 
the line itself is suppressed and the operator is informed by 
console. A check is made for the suppression of all TP 
lines. 

If the program request count facility was generated, it may 
be suppressed. Flag bit SSAPRQ of byte SSAMS1 is set off 
in the Startup Save Area so $CC3LD can bypass building 
the request count table. Bit #PUCNT of byte #FLGB is 
later set off in $CCCOM. 



The end-of-phase routine in $CC3FS resets all relative 
DISKFILE and SYMFI LE pointers in each PCT entry, then 
reduces any relative number to the correct value if a lesser 
numbered file of that type (DISKFILE or SYMFILE) has 
been suppressed. 



Phase $CC3IP: Initialize PCT 

$CC3IP searches the program pack object library directory 
(and possibly the system pack object library directory) for 
programs in the Program Control Table. The technique 
used is one of reading a number of sectors of PCT into 
main storage where the highest and lowest (alphameric) 
program names are captured and held as limits. The entire 
directory, 24 sectors at a time, is then passed by these 
limits and only those directory names falling between the 
limits (inclusively) are considered as candidates to cause 
a search of the PCT segment in main storage for a match. 
After the entire directory has been read, programs desig- 
nated to be on that pack and whose directory entries were 
not found are suppressed. Another segment of the PCT is 
then read into main storage and the process is repeated with 
the same directory. When the PCT is completed, the first 
segment of the PCT is read again and the read/search 
procedure occurs with the system pack object library 
directory (unless the program pack is the system pack). A 
terminal error occurs if none of the programs in the PCT 
was found. This module also saves the length of the 
longest unsuppressed PCT entry for later setting into 
$CCCOM. 
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Phase $CC3LD: Initialize Resident Control Module 



Operation 



Functions 

• Verifies that the combined size of the user program 
area and the dynamic TP buffer is reasonable. 

• Initializes the moving pointer called the next build 
address and the pointer to the highest address (+1) 
which can be used for CCP control blocks. 

• Verifies that sufficient main storage is available to load 
the generated resident CCP control module named 
$CC4. 

• Loads $CC4 into main storage. 

• Alters the halt check routine address (if the system 
supports DPF), pointing the halt branch to the CCP 
halt response intercept routine in the CCP transient 
area during the remainder of Startup. 

• Isaves the address into which the address of the first 
BSCA DTF will be placed. 

• Validates the position and format of the initially NO 
OP'ed CCP branch instruction in the DSM console 
interrupt routine. 

• Initializes many fields in $CCCOM. 

• Locates the user security data module $CC4Z9 and 
moves the data from there into the resident user 
security work area allocated at CCP generation. 

• Initializes the $CCPFI LE directory sector. 

• Initializes CCP trace and allocates main storage for 
the trace table. 

• Initializes the service aid module $CC$SA. 

• Initializes BSCA trace. 

• Initializes MLTA trace. 

• Allocates and zeros out the Program Request Count 
Table in main storage. 

• Provides diagnostic messages on the console typewriter 
if necessary. 



After some initial saving of addresses, the minimum user 
program area is added to the minimum dynamic TP buffer 
size and the result is checked for overflow (which would 
be an error designated as the exhaustion of main storage 
in attempting to load $CC4 - control would be returned 
to DSM). If the above result is not too large, it is checked 
against the size of the program level, with any excess 
buffer area yielding the same overflow error. 

Having passed the above tests, the $CC4 load parameters 
are checked to see if loading $CC4 would overlay any of 
$CC3LD. If so, the overflow error is indicated. 

The address of the byte just beyond the last byte of the 
generated module is calculated. This is where the control 
blocks will start. Then the addresses of the beginning of 
the minimum user program area and the minimum TP 
buffer area respectively are calculated, beginning at the 
top (high address) end of the program level. If the address 
of the beginning of the control blocks is lower than the 
address of the beginning of the dynamic TP buffer, $CC4 
is loaded. Otherwise the overflow error is indicated as above. 

$CC4 is entered at its entry point CPINIT (Chart OA), the 
generated code there being used as a subroutine to initialize 
some address for DPF and/or BSCA support. This is the 
routine which points the halt branch of a DPF system to a 
temporarily resident halt check intercept routine in case of 
a DSM halt during Startup (the user must choose option 2 
or 3). If BSCA is supported, upon return to $CC3LD the 
address of the save area for the first BSCA DTF address is 
saved. 

The specified location in the DSM console interrupt routine 
is checked for the CCP branch of the form X'C080000T, 
with any difference signalling ah error. Transient $CC4SU 
will later plug this branch with a Q-byte of X'87' and an 
operand address of the CCP Console Interrupt Routine 
($CC4IC). 

If DFF is supported in this set, the disk device Q-byte (pro- 
gram pack or system pack) of DFF formats and the disk 
address of the format index built by $CC3FX are placed 
into $CCCOM. 

Several miscellaneous items are initialized in $CCCOM, 
mainly values to be used or restored by Shutdown and the 
current values of TP buffer and user program area bounds. 
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If user security is used, the security data module $CC4Z9 
is located, read a sector at a time, and moved in the largest 
possible blocks to the resident user security work area. If 
CCP password security is used, the password is right justified 
when moved into $CCCOM. 

The directory sector of $CCPFILE is read in and initialized 
with the beginning and ending disk addresses for $CCPFILE, 
the beginning disk address for CCP disk-trace, the beginning 
disk address for the disk core dump area, the correct CPU 
size, and the maximum number of main storage dumps 
which may be written to disk during the current CCP run. 
If CCP trace is not used during a CCP run (TRACEBLK-0 is 
specified on the // SYSTEM statement), the beginning and 
ending disk addresses of the disk-trace area are equal. Any 
error messages pertaining to the lack of disk space for CCP 
trace reflect the actual net number of additional tracks 
needed. 

If space is available, up to 9 main storage dumps may be 
placed into $CCPFILE. There must exist at least enough 
disk space for one complete dump from the machine current- 
ly running CCP. The error messages pertaining to lack of 
disk space for main storage dumps include an accrued 
number for any CCP trace requirements. The first sector 
of each potential dump area on disk is set to binary zeros 
on each startup. 

If CCP trace is to be used, adequate main storage for 
loading is verified and allocated, and the trace module 
<$CC$TR) is loaded on a 16-byte boundary. The address 
in $CCCOM of the Pseudo Trace (@CTRAC) is modified 
to point to the trace table pointers, CCP trace-to-disk is 
automatically set on if a non-zero value was specified with 
the TRACEBLK keyword on the console keyboard when 
CCP was first initiated. Various pointers and values within 
the trace module are initialized. The disk area for disk trace 
issettoallX'FF'. 

If CCP trace is used, an attempt is made to locate a service 
aid module ($CC$SA) on the program pack. If none is 
found, no further action is taken. If one is found, the 
service aid is loaded and the CCP trace branch to the 
service aid is initialized. 

If the BSCA trace module ($CC$BS) is to be used, the 
module is loaded into main storage and the $CCCOM 
address (@BTRAC) is initialized. 

If the MLTA trace module ($CC$ML) is to be used, the 
module is loaded into main storage, the $CCCOM address 
(@MTRAC) is initialized, and the bit significant line trace 
mask for the lines to be traced is placed in the first byte 
of the trace module. 



If program requests are to be counted, a space in main 
storage (2 bytes for each PCT entry) is zeroed and the 
table address is placed into $CCCOM @PUCNT. The 
Program Request Count Table is not reduced for suppressed 
programs. 

The loading of $CC4 imposes several requirements upon 
Startup. More main storage is no longer available: the 
startup execution and work area is now limited to the size 
of the minimum user program area, which is 5K. With 
$CC3RO using 768 bytes approximately 4K is left for 
phase execution and work area. The control blocks must 
be built, which requires the keeping of a pointer to the 
next available address. This field is suffixed by NB@ 
in all phases using such a pointer. Whenever main storage 
must be allocated, a check must be made to assure main 
storage availability. 

Following the loading of $CC4, $CC3LD branches to the 
$CC4 entry point CPINIT (Chart OA). Located there is a 
subroutine whose size and function depends on whether 
CCP supports DPF and/or BSCA. If neither is supported, 
an immediate return to $CC3LD (via saved ARR) is made. 
If DPF is supported, the EJ halt address of the other level 
is initialized, the halt branch operand at the end of the pro- 
gram Level Communications Area is altered to point to a 
halt response intercept routine generated in the CCP tran- 
sient area, and the exit branch of this CCP routine is pointed 
to the resident DSM halt check routine. If a DSM halt 
should subsequently occur during Startup, the Startup 
routine senses the halt response for a 2 or 3. If either 
response was made, the halt branch is restored and the 
I AR of the other level is restored to the EJ halt. With 
any response, control is passed from the CCP routine to 
the halt check routine of DSM to perform normally. The 
DSM halt check routine address is restored along with the 
EJ halt in the other level at the end of the temporary code 
in the CCP transient area as Startup code is completed. 

If BSCA is supported, CPINIT returns the address (in 
XR2) of where the address of the first BSCA DTF is to be 
placed. This field is checked later by the BSCA open routine 
in the CCP transient area to determine if any BSCA DTF 
was built by the current Startup. 

Note: The remainder of Startup, up through $CC3CX, is 
concerned with building control blocks and data areas for 
CCP. However, there are two special codes to handle 
special formats of tables in $CCPFILE. The first is 
$CC3TA, which handles the Terminal Attribute Table. 
The table is read into main storage in its final form. The 
second, and much more complex, is $CC3US, $CC3FS, 
and $CC3TB, which handles possible sector spanning of 
the Line Control Table. 
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Note: The remainder of Startup, up through $CC3CX, is 
concerned with building control blocks and data areas for 
COP. However, there are two special codes to handle 
special formats of tables in $CCPFILE. The first is 
$CC3TA, which handles the Terminal Attribute Table. 
The table is read into main storage in its final form. The 
second, and much more complex, is $CC3US, $CC3FS, 
and $CC3TB, which handles possible sector spanning of the 
Line Control Table. 



Phase $CC3TB: Build Line Control Blocks 

Functions 

• Builds teleprocessing line control blocks and related 
fields such as logging area, polling list, line buffer, 
addressing list, exchange-ID list. 



The major items of a control station line are constructed: 
addressing list, polling list, and terminal logging area. 
The addressing list is constructed first and there is one 
entry for each unsuppressed terminal. The addressing 
list is then scanned to determine the validity of a polling 
list entry. Any poll entry without a corresponding 
addressing list entry is bypassed. The terminal logging 
area size depends on the number of terminals. This 
accumulation of main storage requirements was done 
while building the addressing list. The fixed requirement 
is added, the address is inserted into the DTF, and the 
logging area itself is zeroed. 

For MLTA on Models 8, 10, and 12 the one adapter DTF 
is constructed when the first line DTF needs to be built, 
then the line DTF/LCB. Line buffer length is calculated, 
the transfer vector address is determined, and the trans- 
late table transient ID numbers are calculated. 



Builds checklist for both MLTA and BSCA DTFs. 



Operation 

The LCT (Line Control Table) is read and the fixed 
position of each unsuppressed entry is saved because 
the TUT (Terminal Used Table) occupies the same 
input buffer at times. On Models 8, 10, and 12, a deter- 
mination is made whether the LCT entry is for MLTA 
or EiSCA and the appropriate routine is given control. 
Several pointers are initialized if the first DTF is being 
built. Line Control Blocks are built in the order the 
user has presented the BSCALINE and MLTALINE 
statements to Assignment Build. 

When the BSCA LCB (Line Control Block) is built, the 
area is zeroed out and the items that can be immediately 
initialized are inserted. The ASCII translate buffer is 
allocated if appropriate and then the normal line buffer 
is allocated. The DFF output hold ?f*a size is initialized 
—it is either zero or the proper size. After the record 
separator byte is put into place, a point-to-point LCB 
is finished. 

A switched line requires, in addition to the above: the 
LCEJ to be 4 bytes longer, the attribute byte set, any 
send-ID characters, and any receive-ID list. A dummy 
last receive-ID entry is made for usage by terminals 
with no exchange ID. If the LCT is entirely read, the 
phase ending routine gets control. 

If a multipoint tributary LCB is being constructed, an 
indication of this is set into the attribute byte, the 
auto reponse routine address is initialized, and the TUT 
is read for the two poll characters. The LCB then is 
finished. 



A point-to-point or switched MLTA line on Models 8, 
10, and 12 can be completed by building one SDR entry 
and allocating the line buffer. 

For a control station line, the polling list (relative 
terminal number) is saved, but in any case the TUT 
is read. The statistical data recording (SDR) area is 
built, one entry for each unsuppressed terminal. Built 
in a polling list work area are two-byte entries which 
will later be used in building the polling list. 

When the entire TUT has been processed, the polling 
list is built using the entries placed in the work area 
when the SDR was built. If the terminal is a 1050, a 
polling entry is built for each input component. The 
special poll entry containing the polling list count and 
timeout values is placed last. 

As each group of control blocks for a line is finished, 
the sector of the LCT from which the LCB was built 
is restored in main storage so the next LCT entry can 
be addressed. 

After all LCBs have been built, a check is made for an 
invalid BSCA OCL statement and whether a valid 
BSCA OCL statement should cause the DFF buffer 
values in $CCCOM to be swapped. 

On Model 4, in addition to the above, an internal TUT 
is forced for the console and, if an LCT was processed 
for BSCA-2, an internal LCT is forced. 

Finally the DTF checklist is moved into place and the 
next build address is restored. 
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Phase $CC3DF: Build Short DTFs for Disk Files 

$CC3DF builds a chain of disk DTFs and chain allocates 
this string. Then the chain is broken for each DTF to 
be opened and waited for during any required buffer 
priming. All priming is done in the buffer area. 
The chain must be broken and a wait for priming 
must occur because of potential conflicts in usage of the 
buffer priming area. Following the compression of the 
post-open CCP short DTFs, subsequent passes will be made 
until all files are opened and their DTFs compressed if 
more disk files are to be opened. Following the construction 
of any CCP-built master indexes, the DSM Program Level 
Communications Area (field NPDTF@) is set to X'FFFF', 
indicating to DSM there are no DTFs to close. 

Should the user move a file from a 5444 to a 5445 (3340 
main data area to simulation area on Model 12) or vice 
versa, the File Control Table (FCT) must be updated to re- 
flect the actual file location. $CC3DF builds DTFs accord- 
ing to the FCT device type indication, but not the OCL 
UNIT parameter. 



Phase $CC3MV: Load and Initialize $CC4DF and $CC4#3 
Functions 

• Borrows ATRs to map PL1. 

• Loads and initializes $CC4DF and $CC4#3. 

• Initializes intercept routine ($@9CIN) and interrupt 
handler ($@@BIN). 

Operation 

• Always saves NPBEG of PL1 in SYSCOM to ensure 
access to $CCCOM. 

• If system size is greater than 64K, inserts addresses into 
$@9CIM, which contains a table of required addresses. 
The table contains offsets into $@9CIN where these 
addresses are to be inserted. 

• If DFF remap is required, the starting address of CM is 
found in $CCCOM and beyond this point ATRs may 
be borrowed. The first four useable ATRs are set to 
map between 6K (minimum) and 8K (maximum) of 
PL1 coincident with PL2's NPBEG. $CC4DF is loaded 
so that its RLDs, if any, are in $CCCOM where a sector 
has been saved and is used later to overlay the R LDs. 
$CC4#3 is loaded so its RLDs are physically in the low 
storage location used by $CC4DF. There, RLDs are 
overlaid by the saved sector of $CC4DF. 
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• Both loaded modules are initialized using a table con- 
tained in each. The table contains an offset into com- 
mon + X(100) where the needed address is located, and 
an offset into the module itself where the address is 
required. 

• To best utilize main storage, the table in $CC4DF is 
overlaid with constants it requires to execute, and 
NPBEG of PL2 is adjusted to the closest sector bound- 
ary less or equal to $CC4#3's first executable 
statement. 

• The interrupt handler is initialized by passing: The 
original values contained in the six ATRs used in 
mapping PL1, the required Q codes to address these 
ATRs, and a Q code to no-op two jumps in that 
module, $@@BIN. $CC4DP is initialized with appro- 
priate ATR Q codes and addresses. 

• The load parameter list $CC4DF and its beginning and 
ending addresses are saved in $CCOMM. The load 
address of $CC4#3 is entered into $CC4II. 

• Control is returned to $CC3RO for the final place of 
Startup, $CC3EJ. 

Note: 6K to 8K bytes of CM are unmapped to supply 
the ATRs to map the remap area in PL1. PL1 will 
lose 5.5K to 6K bytes to store $CC4DF and $CC4#3. 



Phase $CC3EJ: Final Processing Within Startup 

Functions 

• Initializes the first level transient program list addressed 
by @TALST in $CCCOM with the cylinder/sector 
disk address and the number of text sectors minus one. 

• Issues console error messages if required. 

• Sets any specified terminal offline. 

• Sets final bound addresses of dynamic TP buffer 
area and user program area. 

• Opens MLTA DTFs. 

• Indicates in the phase roller eyecatcher field that the 
Startup phases have completed and passes control to 
resident Startup code in the CCP transient area of 
$CC4 (second entry point not named). 
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Operation 

The program pack volume label is read to obtain the 
extents of the object library directory. 

A flag bit is set on in every entry of the first level program 
list in $CC4. This bit is later turned off if the entry is 
found in the directory. 

The object library directory is searched for module names 
beginning with $CC4. If one is found, the program list is 
searched for a match on the last two characters of module 
name. When a match is found, the cylinder/sector disk 
addresis and the number of text sectors (reduced by one) 
are placed in the program list entry. Inserting the correct 
number of text sectors automatically turns off the not- 
found flag bit placed there earlier. 

When the directory search is finished, any module still 
containing the flag bit set earlier is noted in a console 
message and error switch SSAERR is set on in the 
Startup Save Area. 

If no errors have occurred during startup and if OFFLINE 
or SUPPRESS was specified by keyword or if YES or Y 
was answered to message SU045, the system operator 
is allowed to set any. terminal ID offline. If the terminal 
was already offline, this is noted in a console message. 
Keyboard input is validated. 



Console messages are issued notifying the operator the cur- 
rent size of the dynamic TP buffer area and user program 
area (the latter still at the minimum). If any unallocated 
storage remains, the operator is informed via a console 
message and allowed to direct one or more integral 
256-byte blocks of this to additional user program area. 
Any storage not directed to user program area becomes part 
of the dynamic TP buffer area, determining the final bounds 
of the TP buffer and user program area. The value of 
#TPBUF is decremented by four because the Communications 
Manager maintains a four-byte parameter list in this pool. 

If no terminal errors have occurred, a console message 
(OPENING COMMUNICATION LINES) is issued and any 
MLTA adapter and MLTA lines are opened. 

The phase ID eyecatcher in the Phase Roller is set to 
X'OOOT to indicate control is being given to the 
resident function. 

The second entry point address of $CC4 (previously saved 
from the ARR value of the first $CC4 routine exit) is 
incremented by two bytes to get beyond a two-byte 
field in which the halt check routine address is saved for 
a DPF system. 

$CC4 is entered at this point in the CCP transient area 
containing temporary resident Startup code. 



If main storage was not exhausted during startup, the 
dynamic TP buffer is set to begin following the last control 
block. If storage is available, the buffer will begin on a 
four-byte boundary; otherwise it will begin at whatever 
address is available following the control blocks. The upper 
bound of this storage pool is set at the lowest 256-byte 
boundary address equal to or greater than the beginning 
buffer address plus the value of MINTPBUF. Thus the 
user's value for MINTPBUF may be automatically in- 
creased by one to 255 bytes. The reason for the possible 
expansion is that the upper end is contiguous to the user 
program area, which requires 256-byte boundary alignment. 



Other Functions 

Several Startup functions appear in the temporary resident 
code in the $CC4 transient area. These are documented 
as part of the Execution Stage. 

The last Startup functions appear in the transient $CC4SU. 
There the DSM Console Interrupt Handler is plugged to 
branch to the CCP Console Interrupt Intercept Routine, 
the keyboard is reset, the CCP STARTED message is 
issued on the console typewriter, a flag bit is set off 
allowing the TP MLTA interrupt handler to accept input 
from terminals, and an Invite-Input is issued to the console 
and to all online command terminals. 
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1 If running on DPF system: 

- Place other level in 'U— ' halt. 

2 Set storage bounds. 

3 If MLTA supported or BSCA control 
station support: 

- Verify MLTERFIL on F1. 

4 Check DSM-CCP DPF compatibility. 

5 If $CCPFILEon program pack: 

- Validate for this CCP. 
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6 Check for default assignment set. 

7 Ask operator for specifications. 
«^> 8 Use information to guide startup. 
^ 9 Locate $CC4, $CC3LO, $CC3RO. 

10 Load SCC3RO into high storage. 

11 Initialize roller list with parameters 
for $CC3LO. 

12 Initialize startup save area. 

13 If disk error: 

- 'U-'halt. 

— 'UE'subhalt. 

— Restore 'EJ' to other level. 

- Error exit to DSM EOJ. 
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operator and giving error 
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Note: See IBM System/3 Models 4, 6, 8, and 10 
Disk Systems System Control Program 
Logic Manual, SY2 1-0502. 



Diagram 8P.0010. $CCP 



w 


— 


■D 


< 


*o 










H 


ai 




7" 


u. 


O 


I- 


N) 






^ 


to 


Z 


c 


< 


M 


(D 


r> 








Ol 


co 


u 


Ol 


-j 




CO 


^j 




o 




ro 



Page of SY21 -0531-2 
Issued 24 June 1977 
ByTNL: SN21-5530 



This page intentionally left blank. 



8-18.2 



$CCP - 8P.0010 $CC3IP - 8P.0090 

$CC3LO - 8P.0030 $CC3LD - 8P.01 00 

SCC3FX - 8P.0040 $CC3TA - 8P.01 10 

$CC3C R - 8P.0050 $CC3TB - 8P.01 20 

$CC3RT - 8P.0060 $CC3TC - 8P.01 30 

$CC3US - 8P.0070 $CC3UB-8P.0140 

$CC3FS - 8P.0080 $CC3CE - 8P.01 50 



$CC3PX-8P.0160 
$CC3DL-8P.0170 
$CC3DF-8P.0180 
$CC3QB-8P.0190 
$CC3FB - 8P.0200 
$CC3CX-8P.0210 



■ Input i 



ARR 



Number of 
reserved sectors 



Tl 



Process i 



Roller list 



'£> 1 Calculate load address of next phase. 

Y 

d^> 2 Load next phase. 



■ Output i 



3 Set eyecatcher field. 



Each phase 
loaded into 
storage 



ROPHID 



$CC3LO - 8P.0030 
$CC3FX-8P.0040 
$CC3CR - 8P.0050 
$CC3RT - 8P.0060 
$CC3US - 8P.0070 
$CC3FS - 8P.0080 
SCC3IP-8P.0090 



$CC3LD - 8P.01 00 
$CC3TA-8P.0110 
$CC3TB-8P.0120 
$CC3TC-8P.0130 
$CC3UB - 8P.0140 
SCC3CE-8P.0150 
$CC3PX-8P.0160 



$CC3DL-8P.0170 
$CC3DF-8P.0180 
$CC3QB-8P.0190 
$CC3FB - 8P.0200 
$CC3CX-8P.0210 
$CC3EJ - 8P.0220 
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Diagram 8P.0020. $CC3RO 
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h Input i 



DSM PLC A 



NPQ 



Vol 



Object library 
directory 



Phase roller list 
in $CC3L0 



Startup save area 



[arr[ -»» 



SSAMS1 
■ SSADPF 
• SSALVL 



SSAIAR 



DSM PLCA 



ume label | 



$CC3R0 
8P.0020 



Process i 



IMPEND 



j^ 1 Search directory for startup phases. 



2 If any phase is not found: 

— Console messages. 

— Restore other level 'EJ' halt. 

— Error exit to DSM. 



3 On disk error: 

— Store registers. 

— 'U-'halt. 

— 'UE'subhalt. 

— Restore other level 'EJ' halt. 

— Error exit to DSM. 



V^ 4 Calculate return address. 



$CCWTO 
8P.0500 



See note 

►NCENTR 

RIB:84 



■Output i 



Complete phase 
roller list at end 
of storage 



SU251 
SU259 



Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21-0502. 



Return 



Diagram 8P.0030. $CC3LO (Models 8. 10- and 19 n„i„t 
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Process ■^■■■^^■■i^"^^^^^"" 

1 Prepare to return. 

2 Calculate first free sector in $CCPFI LE. 



■ Output i 



3 If assignment set uses DFF: 
- Index DFF formats. 



4 If no display formats were found: 

— Console message. 

— Normal return exit. 



5 If $CCPFI LE cannot contain entire 
format index: 

— Error switch. 

— Console message. 

— Normal return exit. 



6 If disk error: 

- Store registers. 

- 'U-'halt. 

- 'UE' subhalt. 

- Restore other level 'EJ' halt 

- Error exit to DSM EOJ. 

7 Calculate return address. 



Return 



J 



$CCWTO 
8P.0500 



Note 

NCENTR 

RIB:84 




FXRSEC 



Startu p save area 



SSAFF@ 





Startup save area 






SSAFF@ 




SSAFX@ 










DFF index 
in$CCPFILE 












Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21-0502. 



Diagram 8P.0040. $CC3FX 
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Input i 



$CC3R0 
8P.0020 



Startup save area 



ARR 



SSA#RS 



DSM PLCA 



NPQ 



Volume label 



Transient cross reference 
list in $CC3CR 



First sector of each 
transient to be cross 
referenced 



TAXCID 



XCTL table 



Startup save area 



SSAMS1 

• SSADPF 

• SSALVL 



SSAIAR 



DSM PLCA 



NPEND 



Object library directory | 



its 



a 



Process h^^b 
1 Prepare to return. 



c> 



2 Search object library directory for $CC4— 
modules. 



3 Sort table on C/S. 



4 Read and cross reference those CRXTLT 
modules listed in cross reference list. 



5 If XCTLEE is not found: 

- Error switch. 

- Console message. 

- Continue cross referencing. (Do not 
rewrite transient.) 



6 If disk error: 

- Store registers. 

- 'U-'halt. 

- 'UE'subhalt. 

- Restore other level 'EJ' halt. 

- Error exit to DSM EOJ. 



$CCWTO 
8P.0500 



J 1 



£^ 7 Calculate return address. 



NCENTR 
RIB:84 



r 



Output i 



=0 



CRRSEC 



=> 



Table 
CRXTLT 



=0> 



Table 
CRXTLT 



=o 



IT 



Cross reference transients 
rewritten to disk 



=0 



SU270 



Startup save area 



SSAERR 



Return 



Diagram 8P.0050. $CC3CR 
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i Input i 



ARR 



Startup save area 



SSA#RS 



iLr 



DSM PLCA 



NPQ 



Volume label 



Object library directory 



Transient relocate 
list in $CC3RT 



Each transient 





TARLD@ 


$CC4 






TAID 


Adcons in first sector 
of CCP transient area 




-CODE- 




RAT table 




RLD's 
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Startup save area 



SSAMS1 

• SSADPF 

• SSALVL 



SSAIAR 



DSM PLCA 



NPEND 



Process i 



i^ 1 Prepare to return. 

i 

f^ 2 Search object library directory for 
$CC4— modules in relocate list. 



3 Sort table on C/S. 



<= 



ZZZ^ 4 Read each transient, relocate, rewrite 
to disk. 



5 If no transients exist on CCP pro- 
gram pack: 

— Error switch. 

— Console message. 

— Normal return exit. 

6 If any transient too big: 

— Error switch. 

— Console message. 

— Relocate next transient (do not 
rewrite errant module). 

7 If number of RLD's does not match 
number of RAT entries: 

— Error switch. 

— Console message. 

— Relocate next transient (do not 
rewrite errant module). 



■♦■ 



£> 8 If disk error: 

- Store registers. 

- 'U-'halt. 

- 'UE'subhalt. 

- Restore other level 'EJ' halt. 

- Error exit to DSM EOJ. 



J t 



^> 9 Calculate return address. 



$CCWTO 
8P.0500 



$CCWTO 
8P.0500 



$CCWTO 
8P.0500 



NCENTR 
RIB:84 



■Output! 
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RTRSEC 



ot 



Table RTRTTB 



^> | Table RTRTTB 



<x 



Relocated transients 
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SU281 



SU283 



SU287 



SU289 



Startup save area 



SSAERR 
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Diagram 8P.0060. $CC3RT 



Return 
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■■Input i 



ARR 



$CCPFILE 



File control table 



Program control table 



Line control table 



Terminal unit table 



Startup save area 



SSA#RS 



=^H 



SSAS$CO 



DIRFCT 



DIRFC@ 



DIRPCT 



DIRPC® 



DIRTUT 



DIRTU® 



DIRLCT 



DIRLC@ 



SSAMS1 
SSADPF 
SSALVL 



SSAIAR 



DSMPLCA 



NPEND 



$CC3RO 
8P.0020 

1W 



Process i 



■"Vf 2 If assignment set contains 
=£> DISKFILES: 



— Unsuppress DISKFILE and 
SYM FILE entries. 



^> 3 Unsuppress PCT entries. 
y^ 4 Unsuppress i UT entries. 



IF*. 



Unsuppress LCT entries. 



==(> 6 if 



disk error: 



£>7 



Store registers. 

- 'U-'halt. 

- 'UE' subhalt. 

— Restore other level 'EJ' halt. 

— Error exit to DSM EOJ. 

Calculate return address. 



NCENTR 
RIB:84 



J 



■-Output 





USRSEC 




$CCPF1LE 


File control table 






FCTMCL 
• FCTIHO 




Program coniroi table 




PCTAT2 
• PCTSU 




Line control table 




LCTAT2 
• LCTSU 




Terminal unit table 




TUTAT1 
• TUTSU 











Return 



Diagram 8P.0070. $CC3US 
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Startup savs area 



$CC3R0 
8P.0020 

n 



SSA#RS 



SSAMS2 
• SSASUP 



D1RFCT 



$CCPFILE 



Line control table 



Terminal unit table 



File control table 



Program control table 



=C>a 



Startup save area 



CFGFA2 
• CFGPUC 



DSM PLCA 



NPEND 



Startup save area 



SSAMS1 

• SSADPF 

• SSALVL 



SSAIAR 



Diagram 8P.0080. $CC3FS 



Process ■ 



1 Prepare to return. 
0^2 If suppression is not allowed, go to 

I u. 



3 Check for SYMFILEs, BSCALINEs, 
MLTALINEs. 



k 

— l^4 If assignment set contains 

II DISKFILEs: 
__lsL — Allow suppression of them. 

5 If assignment set contains 
SYMFILEs: 
— Allow suppression of them. 



BIZZ^ 6 Allow suppression of programs. 



7 If assignment set contains 
BSCALINEs: 

— Allow suppression of them. 

•8 If assignment set contains 
MLTALINEs: 

— Allow suppression of them. 



llftZT^ 9 Allow terminals to be suppressed ( 
1 CCP canceled. 



-^ 10 If program request count generated: 
i — Allow suppression of it. 



M ^> 11 Reset PCT file pointers. 

^ 12 Calculate return address. 
3 



t/ 13 If disk error: 

I— Return other level 'EJ' halt. 
— Take DSM EOJ error exit. 



$CCWTO 
8P.0500 



NCENTR 
RIB:84 



Return 



r 



Output ■ 



^ FSRSEC 



$CCPFILE 



File control table 



FCTMCL 
• FCTIHO 



Program control table 



PCTAT2 
• PCTSU 



Line control table 



LCTAT2 
• LCTSU 



Terminal unit table 



TUTAT1 
• TUTSU 



Startup save area 



SSAMS1 
• SSAPRQ 






$CC3R0 
8P.0020 




Process i 



I Volume label 



L 



Object library directory 



SCCPFILE 





Program control table 










PCTAT2 
• PCTPAK 











DSM PLCA 



NPEND 



Ji 



1 Prepare to return. 



Search object library directory for 
PCT entries. 



If program not found: 

— Suppress program. 

— Issue console message. 



4 If all programs suppressed: 

— Error switch. 

— Console message. 

— Normal return exit. 



5 If disk error: 

— Store registers. 

— 'U-'halt. 

— 'UE'subhalt. 

— Restore other level 'EJ' halt. 

— Error exit to DSM. 



6 Calculate return address. 



SCCWTO 
8P.0500 



$CCWTO' 
8P.0500 



See note 

NCENTR 

RIB.84 



■Outputi 



IPRSEC 



SCCPFILE 



Program control table 



PCTCS 



PCT#S 



PCTLNK 



PCTRLD 



PCTENT 



PCTLNG 



PCTSIZ 



Startup save area 
SSALPC 



H> 



SU451 



Program control table 



PCTCS 



PCTAT2 
• PCTSU 




SU453 



Startup save area 



SSAERR 



Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY2 1-0502. 



Diagram 8P.0090. $CC3IP 
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$CC3R0 8P.0020 



■ Input i 



Startup save area 



ARR 



SSALDP 



SITMUA 



SITMTB 



DSM PLCA 



NPBEG 



NPEND 



1W. 



Process i 



Startup save area 



CFGTP 
• CFGBSC 



SSABDF 



DSM SCA 



$CCCOM 



NC@CIO 



@COIH 
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Diagram 8P.0100 (Part 1 of 3). SCC3LD 



£> 1 If storage is available: 

— Load $CC4 into main storage. 

2 If storage is not available: 

— Issue console message. 

— Take error exit to DSM EOJ. 



^^ 3 Steal the halt check routine addresses 
(in DPF system). 



4 Validate the CCP branch in DSM 
console interrupt handler. 

^^5 If branch bytes are invalid: 

— Set error switch. 

— Console message. 

— Continue. 



NCENTR 
RIB:48 



$CCWTO 
8P.0500 



. NCENTR 
RIB:84 



$CC4 
CPINIT 
Chart OA 



$CCWTO 
8P.0500 



$CC3LD8P.0100(Page2) 



r 



Output i 



_rsj $CC4 

"VH loaded 
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Startup save area 








SSAERR 
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■ Input ■ 



Startup save area 



SSACFG 

• CFGSIZ 

• CFGTP 
SSAERR 
SSAMSI 

• SSALVL 



$CC0M 



$MVFLG 



NPQ 



Module 
$CC4Z9 



SCC3LD8P.0100 (PageD 

■ Process ■ 



Startup save area 



SITFLG 

• SITFMT 

• SITDFU 



SSAFXO 



SITMTB 



SSALPC 



SSA$CQ 



Startup save area 



CFGFA2 

• CFGCPW 

• CFGUPW 



CFGLUS 



Startup save area 
SITCPW 



Startup save area 



SSA$CQ 



SSA$XA 



SSA$XB 




S> 6 Ini 



tialize miscellaneous items. 



o 



7 Test for terminal startup conditions. 
— If found, issue messages and bring 
both levels to EJ. 



8 If CCP supports user security: 

— Move security data to work area. 



J^ 9 If CCP supports password security: 
— Move password from SIT to 
$CCCOM. 



\f 10 Initialize $CCPFILE for trace and 
dumps. 



$CCWT0 
8P.0500 



=OH 



Note 

NCENTR 

RIB:84 



$CCVZB 
8P.0530 



r Output ■ 



SU656 
SUMS 
SU559 



Startup save area 



SSANB@ 



SSALDP 



=w 



User security data 

in work area 



SCCCOM 



CPPSWD 



CPLPWD 





SCCPFILE directory 






DIRSRS 




DIRET@ 




DIRBT@ 




DIRBD@ 




DIRMEM 




DIRMXD 




SCCCOM 






@>CSTRT 




*NSEC 




#MXOMP 






Startup save area 




In main storage 
directory prolog 







SCCCOM 



@DFFIX 



SFLGA 

• #DFFOK 



#DFQ 



@DMP 



@IOS 



«PCA 



@HIBND 



@GMS 



#TPBUF 



@UPA 



@UAEND 



#UMAX 



#CCMCL 



#PCTLN 



#CPFLQ 



@CSSTT 



#HISTT 



@COIH 
#SETID 



$TMFLG 
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Diagram 8P.0100 (Part 2 of 3). SCC3LD 



$CC3LD 8P.0100 (Page 2) 

Process i 



—i 
O 
CO 

3 
3 
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■ Output i 



f>10 If specified: 

- Load CCP trace and allocate 
trace table. 

11 If on program pack: 

- Load$CC$SA. 



12 If specified: 

— Load BSCA trace. 

13 If specified: 

— Load MLTA trace. 

Z^^ 14 If generated, allocate and zero program 
request count table. 

15 If any CCP error: 

— Error swtch (ES). 

— Console message. 

— Normal return exit. 

^ 16 If disk error: 

— Save registers. 

— 'U-' halt and 'UE' subhalt. 

— Restore halt check entry point. 

— Restore other level 'EJ' halt. 

— Error exit to DSM EOJ. 



p^^ 17 Calculate return address. 




$CCCOM 



@CTRAC 



$FLGB 
• #TDISK 



$CC$TR and 
trace table to 
storage 



$CC$SA in storage 



Return 



DCCCOM 



@BTRAC 



$CCCOM 



@MTRAC 



Startup save area 



SSANB@ 



SCCCOM 



$FLGB 
• #PUCNT 



@PUCNT 



SU555 SU595 
SU557 SU600 
SU565 SU605 
SU575 SU610 
SU580 
SU585 
SU590 



DSM PLCA 






$CC$BS 
loaded 



$CC$ML 
loaded 



Zeroed 
table 



Startup save area 



SSAQST 
• SSACEX 




Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21-0502. 
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Diagram 8P.0100 (Part 3 of 3). $CC3LD 
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■ Input 



Startup save area 



SSAMS1 

• SSADPF 

• SSALVL 



SSAIAR 



SSALDE 



DSM PLCA 



Diagram 8P.01 10. $CC3TA 



$CC3RO 
8P.0020 




Process i 



1 Prepare to return. 



2 Read TAT into storage and plug 

SCCCOM addresses, restore next-build 
address. 



3 Find 6 modules in object library directory 
<5 on system pack, 1 on program pack). L«- 



r 



Output i 



=w 



TARSEC 



4 If storage is exhausted: 

— Error switches. 

— Console message. 

— Normal return exit. 

5 If any module not found: 

— Error switch. 

— Console message. 

— Continue. 



NCENTR 
RIB:81 



$CCCOM 



# HIST AS 



<3>TAS 



Startup save area 



SSANB@ 



Terminal attribute 
table in core 



£> 6 




If disk error: 

- Store registers. 

- 'U-*halt. 

- 'UE'subhalt. 

- Restore halt check entry point. 

- Restore other level 'EJ' halt. 

- Error exit to DSM EOJ. 



7 Calculate return address. 



$CCTWO 
8P.0500 



=> 



Startup save area 



SSAERR 



SSAQST 
• SSACEX 




DSM PLCA 



NCENTR 
RIB:84 



OE 



NPHBCH 



Return 



$CC3R0 8P.0020 
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■ Input ■ 

ARR j- 



■ Process i 



Startup save area 



SSA#RS 



SSABDF 



* ^» 1 Prepare to return. 



Startup save area 



DSM PLCA 



NPBEG 



SCCCOM 



@TALST 



SSA$CQ 



SSANB@ 



SSAHB@ 



DIRLCT 



DIRLCT 



DIRLCQ 



DIRTUT 



DIRTU@ 



U> r 



1 



r 



Output i 



$CCPFILE 



Line control table 



LCTAT2 
• LCTSU 



Terminal unit table 



TUTAT1 
■ TUTSU 



Build BSCA DTF/LCB, line buffer, 
addressing list, polling list, logging 
area, exchange ID list, check list 
entry. 
^3 Build MLTA DTF/LCB, SDR, polling 
£> list, line buffer, check list entry (Models 
8, 10, and 12 only). 



I 
1 



J7 



Startup 
save area 



DSM SCA $CCCOM 



SSABDF 



SSAMS1 
• SSALVL 



NCADDC 



Startup save area 



#DF1LN 



#DF2LN 



4 Check for invalid BSCA OCL, store 
check list, restore next build address. 



<r 



If BSCA OCL is invalid: 

— Error switch. 

— Console message. 

— Continue normally. 

If storage is exhausted: 

— Error switch. 

— Console message. 

— Normal return exit. 



=O0 H0= 



SSAMS1 

• SSALVL 

• SSADPF 



SSAQST 
• SSACEX 



SSAIAR 



SSALDE 



^>o 



If disk error: 

- Store registers. 

- 'U-'halt. 

- 'UE'subhalt. 

- Restore halt check entry point. 

- Restore other level 'EJ' halt. 

- Error exit to DSM EOJ. 






7^> 8 Calculate return address. 



DSM PLCA 



NPEND 



$CCWT0 
8P.0500 



NCENTR 
RIB:84 



Return 



^> | TBRSEC 



SCCCOM 



1£ 



=> 



IPJFILN 



#DF2LN 



@MLTAD 



DTF/LCB and related areas 

>1 



C 



DTF/LCB and related areas 



Si 



$CCCOM 



@LCB#1 



TBNB@ 



$CCCOM 



@CKLST 



Startup save area 
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B=D> 



SSANB@ 



SSAERR 



SSAQST 
• SSACEX 
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SU461 
SU463 



DSM PLCA 



|p^> NPHBCH 



Diagram 8P.0120. $CC3TB 



CO 



■■Input i 
I ARR 



Startup save area 



SSA#RS 



$CC3RO 8P.0020 

! 1 ^ f Process 



1 



DSM PLCA 



NPBEG 



Startup save area 



SSASCQ 



SSANB@ 



SSAHB@ 



DIRTUT 



DIRTU@ 



$CCCOM 



@LCB#1 



@TAS 



@CPTCB 



@CMTCB 



SCCPFILE 



Terminal unit table 



Terminal name table — 



Startup save area 



D1RTNT 



DIRTN@ 



SSAHB@ 



SSAQST 



ixa 



If 



Startup save area 



SSAMS1 

• SSADPF 

• SSALVL 



SSAIAR 



SSALDE 



DSM PLCA 



NPEND 



1= 



"IX 1 Prepare for return. 



2 Build TUB's. 



Q=£>3 Build TNT. 



4 Resolve pointers between TUB's 
and TNT. 

5 If a primary name is unresolved: 

— Mark name unassigned. 

— Issue console message. 



^^6 If storage is exhausted: 

— Error switches. 

— For TUB's, console message SU541 

— For TNT, console message SU543, 

— Normal return exit. -* 

|y^>> 7 On disk error: 

— Store registers. 

— 'U-'halt. 

— 'UE' subhalt. 

— Restore halt check entry point 

— Restore other level J EJ' halt. 

— Error exit to DSM EOJ. 



^^^ 8 Calculate return address. 
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Diagram 8P.0130. $CC3TC 
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i Input i 
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$CC3RO 8P.0020 



Startup save area 



SSA#RS 
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Startup save area 



SSANB@ 



SSAHB® 



SSAQST 



SSACEX 



SITMXP 



Startup save area 



SITDED 

• SITPRT 

• SITMFU 

• SIT142 



DSMPLCA 



NPBEG 



NPEND 
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Diagram 8P.0140. $CC3UB 



fr^ 1 



Process ■mbm^^bm 
Prepare to return. 



^^ 2 Calculate storage requirements 
forTCB's. 

3 If storage is not available: 

— Error switches. 

— Console message. 

— Normal return exit. 
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— Error switches. 

— Console message. 
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for PCT index. 

3 If storage not available: 

— Error switches. 

— Console message. 

— Normal return exit 6. 
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5 If disk error: 

— Store registers. 

- Halt-'U-'. 

- Subhalt - 'UE'. 

— Restore halt check entry point. 

— Restore other level 'EJ' halt. 

- Error exit to DSM EOJ. 

6 Calculate return address. 
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1 Prepare to return. 

2 If no DTFs to be built: 
— Normal return exit. 



3 Validate disk file OCL. 

4 Build skeleton short DTFs and 
^> DSM master index areas. 



5 Build XDTs. 



^> \ DLRSEcl 
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6 If any multivolume OCL entered: 

— Error switch. 

— Console message. 

— Continue. 

7 If any filename or label is invalid: 
? — Error switch. 

— Console message. 

— Continue. 

8 If any duplicate filenames entered: 

— Error switch. 

— Console message. 

— Continue. 

9 If any required OCL is missing: 

— Error switch. 

— Console message. 

— Continue. 

10 If storage is exhausted: 

— Error switches. 

— Console message. 

— Normal return exit. 
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11 If disk error: 

— Store registers. 

- 'U-'halt. 

- 'UE'subhalt. 

— Restore halt check entry point. 

— Restore other level 'EJ' halt. 

- Error exit to DSM EOJ. 

12 Calculate return address. 
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2 If any previous fatal errors 
in start up: 

— Issue console message. 

— Normal return exit. 

3 If any disk files to be opened: 

— Issue OPENING DISKFILES 
message to console. 
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^ 4 Build and allocate chain of DTFs. 



y^ 5 Break chain, open files, wait for any 
buffer priming. 
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6 Compress post-open DTFs, 
completing short DTFs. 
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Construct CCP-built master indexes. 
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indexes: 

— Error switch. 

— Console message. 

— Normal return exit. 

9 If disk error: 

— Store registers. 

— 'U-'halt. 

— 'UE' submit. 

— Restore halt check entry point. 

— Restore other level 'EJ' halt. 

— Error exist to DSM EOJ. 

10 Find $CCPL0G file on Model 4. 

11 If $CCPLOG not found on Model 4, 
issue message SU760. 
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1 Prepare to return. 

2 If no SQBs to be built: 
— Normal return exit. 
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3 Calculate storage requirements 
for SQBs. 

4 If storage is not available: 

— Error switches. 

— Console message. 

— Normal return exit. 



5 Build SQBs. 



6 Save format 1 's in $CCPFI LE. 
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1^ i rrepare to return. 

^ 2 If no FSBs are to be built: 
— Normal return exit. 



3 Calculate storage requirements • 
for FSBs. 

4 If storage is not available: 

— Error switches. 

— Console message. 

— Normal return exit. 
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1 Prepare to return. 

2 If exit branch is not no-oped: 

— Take normal return exit. 

3 Console message "ANY REPS FOR 
THIS RUN?" 

— Wait for reply. 

► 4 Read REP cards, log cards on syslog 

device, patch core. 

5 If any format, address, or value errors 
occur: 

— Issue console message. 

— Wait for retry. 

> 6 Calculate return address. 
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vious startup errors, go to EJ. 
If >64K system 

- Initialize $@9CIN by resolving 
its external address. 
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Determine which ATRs to borrow 
from PL2: 

— Save their original contents. 

— Compute and save ATR con- 
tents needed to map PL1 . 



Initialize $@BIN by passing it's 
borrowed ATR Q codes and no-op 
jumps. 
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Load borrowed ATRs to map PL1. 



6 Load SCC4DF and $CC4#3. 



7 Insert needed external address into 
$CC4#3and$CC4DF. 

— Halt if address not available. 

8 Move constants into SCC4DF to 
overlay its address table. 



9 Initialize addresses required by 
$CC4lland$CCC0M. 



10 Adjust NPBEG of PL2 to reflect 
total number of bytes required by 
$CC4DFand$CC4#3. 



J I 



Q> n 



Calculate return address. 




Output! 





$@9CIN 




PLCA 




1 


External 

references 

resolved 




NPCCOM 



















NCATRI 
NCATR2 



Module $@@B IN 



Q codes '80" 
for 2 jumps 











• 


$CC4#3 
$CC4DF 

loaded 




Error 
SU800 















$CC4#3 
$CC4DF 



SCCCOM 



Addresses 
of all 
external 
references 



$CC4IT 



Constants 
needed 



#DFLOAD 

#DFBEG 

#DFEND 



Address 

of 

$CC4#3 



Error 
SU801 



DSM PLCA PL2 




' NPBEG 









• Diagram 8P.0215. $CC3MV 



o 



w 


— 


"O 














H 


CD 


a> 


7" 


a. 


o 


r* 


ro 


-*■ 




A 


00 






< 


fO 
















(Tl 


Ol 


C0 


r.j 


(Jl 


-J 




u 


-J 




o 




M 



Page of SY21-0531-2 
Issued 24 June 1977 
ByTNL: SN21-5530 



This page intentionally left blank. 



8-40.2 



$CC3RO - SP.0020 



-o 

o 
to 

—I 

at 

3 
O 



CO 



i Input i 



Startup save area 



ARR 



SSALDP 



DSM PLCA 



$CCCOM 



NPCCOM 



NPQ 



#LSTSZ 



@TALST 



Volume label 



j Object library directory 



Startup save area 



SSAERR 



SSAMS2 
• SSAOFL 



j Operator-keyed specification 



DSM PLCA 



$CCCOM 



NPBEG 



@CPTCB 



TUB 



TUBID 



TUBTUB 



TUBATI 
• TUBONL 



Startup save area 



$CCCOM 



SSAQST 
• SSACEX 



SSANB@ 



SITMTB 



SITMUA 



SSAERR 



@UALFA 
@UAEND 



Diagram 8P.022O (Part 1 of 2). SCC3EJ 
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*^ 1 Prepare to enter $CC4. 



f^>2 Search object library directory for 
first level transients. 

3 If any module in program list not 
found: 

— Set error switch. 

— Give console message. 

— Continue. 
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If no serious errors and operator is to 
be prompted about offline terminals: 

— Allow terminals to be set offline. 

If any unallocated storage: 

— Allow operator to allocate it or 
cancel CCP. 




8P.0220 
(Part 2 of 2) 



Note: See IBM System/3 Models 4, 6, 8, and 10 
Disk Systems System Control Program 
Logic Manual, SY2 1-0502. 
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If no terminal errors: 

— Issue "OPENING COMMUNI- 
CATION LINES" message. 

— Open MLTA lines. 

If any error in MLTA open: 

— Console message. 

— Error exit to DSM EOJ. 



■l^ 8 Set flag in eyecatcher, correct reentry 

I point of $CC4, enter startup code in 

$CC4. 



M 



J^ 9 If any terminal error during startup: 

— Console message. 

— Error exit to DSM EOJ. 



^^10 If disk error: 

— Store registers. 

— 'U-'halt. 

— 'UE'subhalt 

— Restore halt check entry point. 

— Restore other level 'EJ" halt. 

— Error exit to DSM EOJ. 



$CCWTO 
8P.0500 



' See note 
NCENTR 
RIB: 84 



See note 

NCENTR 

RIB:84 



$CC4 
Chart OA 



< " ,s 

c o 

H o <° 

Z a. o 



Output ■ 




oi (O u 

Ol -J _» 

CO »J ■ 

O M 



MLTA DTF/LCB (open) 


i _ ■ .•» i 




1 SU997 1 
S^ SU951 


LCBBFL 




SU952^ 





DSM PLCA 



O 



NPHBCH 



Note: See IBM System/3 Models 4, 6, 8, and 10 
Disk Systems System Control Program 
Logic Manual, SY21-0502. 
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1 Plug DSM console interrupt handler for 
branch to CCP console interrupt handler. 
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— *^> 2 Reset keyboard and request key. 



£>3 Issue "CCP STARTED" message on con- 
sole and invite-input from console. 



4 Flag communications manager to accept 
interrupts. 



^>5 Invite-input to ail online command 
terminals. 
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1 If DSM Console Transient $$STCI 
($$SLK4 on Model 4) not found 
previously, find its c/s/n. 



—•^ 2 Set up fields in console DTF from 
argument list. 



3 Write the output to console typewriter. 



f— \f 4 If output-with-reply, read reply from 
console keyboard. 



See note 
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Note: See IBM System/3 Disk Systems Data 
Management and Input/Output Super- 
visor Logic Manual, SY21-0512. 
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1 Scan area left-to-right until one of the 
specified delimiters is found, or the area 
is exhausted. 

SCNBL 

2 Scan area left-to-right until a non-blank 
character is found, or the area is 
exhausted. 

SCNXT 

3 Increment area pointer and decrement 
residual area count — note if area 
exhausted. 

SCPTR 

4 Set index register 1 with address of first 
remaining character position in area. 

SCPTS 

5 Set index register 1 with address of first 
character position of last field scanned. 
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j^l Establish pointers and lengths from 
V' argument list. 



j^2 Create absolute binary value by 
■V^ shift/add loop. 



3 If error exit specified, exit if: 

— Any digit not 0-9. 

— Units zone not F or D. 

— Other zone not F. 

4 If unit's zone was D, complement 
binary value. 
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I^^l Establish pointers and lengths from 

I argument list and registers. 

2 Convert — by loop — each pair of hex 
characters to a byte in target area. 



►3 If error exit specified, exit on any 
character not in range '0' - '9', 
or 'A' - 'F'. 

4 Upon completion, have index registers 
pointing to byte just beyond last byte 
used. 



■Output i 



To 

specified 
error 
routine 



C4" 



Target area 



ih 



XR1 



XR2 



Source hex characters 

— u — 



ih 



Return 



Diagram 8P.0540. $CCVBX 
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Chapter 9. CCP Execution 



Introduction 



Method of Operation 



CCP Execution includes all activities between Startup 
(Chapter 8) and Shutdown (Chapter 10). CCP Execution 
also includes the user program interface to teleprocessing 
I/O operations and the interface to terminal and system 
operator commands. 

The system requirements for CCP Execution are the same 
as for Startup. That is: 

• 5404 Processing Unit (64K of MOSFET memory) 
or 

5410 Model A1 5 Processing Unit (24K of main stor- 
ages-Model 10 
or 

5412 Model B17 Processing Unit (48K FET memory)- 
Model 12 

• 5444 Model 2 Disk Storage Drive-Model 10 
or 

5447 Model 1 Disk Storage Drive— Model 4 

or 

3340 Model C2 Direct Access Storage Facility-Model 12 



Because of the broad range of functions included in CCP 
Execution, this section first presents a structural descrip- 
tion of CCP Execution from an external viewpoint, then 
presents a series of component descriptions beginning 
with the most basic CCP Execution components. All 
component descriptions are a high level of detail. The 
last part of this section contains several typical situations 
represented in chronological flow of execution functions 
in order to summarize component relationships. 



HIERARCHICAL STRUCTURE 

One way to represent the total CCP system is with a 
pyramid of functions at the top of which is the user 
program. The highest level system interface for a user 
program concerned with teleprocessing is the I/O 
interface portion of CCP $CC4II. This is the function 
the user first encounters when he evokes teleprocessing 
I/O or l/O-related functions (Figure 9-1). 



• 5471 Printer-Keyboard 

• 5203 or 5213 or 1403 Printer 

• Teleprocessing line (BSCA, MLTA, or local display 
adapter) 



IOB, TCB 

and 

others 




Figur®9-1. Hierarchical Structure 
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The assembler language user's side of this interface is 
the $NPL parameter building macro coupled with the 
$NCIO functional evocation statement. The RPG II 
user's is the SUBR9x modules, the EXIT/RLABL and/or 
SPECIAL, and the prescribed ARRAY manipulation. The 
COBOL user's is CCPCIO interface. The FORTRAN user's 
is the CCPFIO interface. All these interfaces are function- 
ally similar, that is, they all exist at a structurally 
equivalent level. 

One level further removed from the user is the CCP 
Communication Management interface, (most users 
will be unaware of this level). The interface medium is a 
modified parameter list. The mechanics of the interface 
are much more subtle, requiring indirect control flow 
through the synchronizing of independent work units 
or tasks that may be executing parallel in time. Some- 
times the control does not appear to flow at all; the 
interfaces consist of inter-function communication via 
a synchronous setting of indicators, values, etc. 

Below the Communication Management level of interface 
exists the teleprocessing data management; this level 
might be familiar to the users of MLMP or MLTA. The 
interface is via a DTF. At this same level exists the 
console data management, functionally similar to DSMs 
console data management from an interface viewpoint, 
but actually a function wholly contained in CCP. 

At the next level is an integration of basic DSM and CCP 
control functions. Structurally, this is the lowest level 
of visibility; that is, there is no user interface below this. 
Here DSM provides disk I/O and loader services but CCP 
imposes special routing for certain DSM functions when 
called from a CCP task. The disk I/O request interface 
is where record integrity is enforced for sharing of update 
files by multiple CCP user tasks. New functions exist 
at this level for CCP use only (main storage allocation 
and CCP transient area handling are the most notable). 
Many various parameter types are used at this level: IOB, 
LOAD parameter lists, the ZERO-RIB, etc. 

Beneath all this, is the task control routing function 
handled primarily by the CCP task dispatcher. The task 
synchronizing functions are handled by the wait and 
post functions augmented by an intercept of disk I/O 
requests. The TP and console interrupt handlers of 
CCP have additional functions to assist in this tasking 
process. 



Below the lowest visibility level, functions are constant; 
functions change in the higher levels. The most typical 
function was outlined (user TP interface). Should there 
have been a terminal operator command, the levels of 
function would be different (Figure 9-1 ). At the first 
level, the terminal/system operator is unaware that the 
Communication Manager must first permit, as well as 
receive, the data from an operator when attempting to 
instruct the system to perform a given function. When 
conditions are proper, the Command Processing Task is 
task switched and the instruction data (a command) is 
passed in an internal parameter field to the Command 
Processing function. Once the command type is deter- 
mined, control is passed to a yet lower level of function 
to perform the requested action. Beneath that are the 
same disk I/O, task switching and CCP transient area 
handling functions discussed earlier. 



POST STARTUP RESIDENT CODE 

The CCP Post Startup resident code consists of five imain 
storage areas following the end of the DSM Supervisor. 
(Diagrams 9M.0010-9M.0021 illustrate CCP main 
storage.) 

1. CCCOM (Common Communications Area). The 
Common Communications Area is a 256-byte area 
which consists mainly of tables and work areas and 
is used to provide control information between CCP 
tasks. 

2. CCPTransient areas. The transient areas consist of 
two 512-byte areas: one for the Communication 
Task (transient area 2) and the other for non-commun- 
ication (all other) tasks (transient area 1). 

3. Resident CCP. Resident CCP consists of modules, 
work areas, data areas, control blocks, and other 
areas. Resident CCP is divided into fixed and 
variable areas. The following areas vary depending 
on user specifications at CCP generation: 

a. Modules generated by the user during CCP gener- 
ation. These modules will vary in content based 
on the functions the user requires in his system: 
— $CC4DP (Task Dispatcher) will vary depending 

on multi-tasking, file sharing, dual programming, 

and minimum system. 



9-2 



- $CC4IH (Common Interrupt Handler) varies 
depending-on MLTA, BSCA, Display Format 
Facility, and minimum system. 

- $CC4WT (Wait) and $CC4PS (Post) vary 
depending on multi-tasking. 

- $CC4IG (General Entry Intercept) varies 
depending on dual programming and RPG II 
support. 

- $CC4II (User TP I/O Interface) varies depend- 
ing on MLTA, BSCA, DFF, 1050, minimum 
system, and remap on Model 12. 

- $CC4CM (Communication Task) varies 
depending on MLTA, BSCA, DFF, device 
types, minimum system, switched lines, 
station control, etc. 

b. User Security Information Area. This area is 
generated only if SECURE-USER was specified 
on the $ESEC statement at CCP generation. 

c. Additional modules if the user specifies at 
generation that he is using BSCA lines and ter- 
minals: 

- $CC4IB - BSCA Interrupt Intercept. 

- BSCA IOCS. 

- SCC4BT - BSCA Start Online Test. 

d. Additional modules if the user specifies at 
generation that he is using MLTA lines and 
terminals: 

- $CC4IM - MLTA Interrupt Intercept. 

- MLTA IOCS. 

e. $CC4MS - Getmain/Freemain Routine. This 
routine is replaced by $CC4MM if the generated 
CCP system is a single task system without DFF. 

4. A table area of trace routines and tables, control 

blocks, line buffers, and disk file master indexes. The 
table area varies according to what the user specifies 
at Assignment or Startup. 

Note: The master index area shown in Diagram 
9M.0010 would result from the user specifying 
MSTR1NDX-YES on the// DISKFILE state- 
ment at Assignment time. If, however, the user 
specified MIXSIZE and a value instead, or speci- 
fied the // DISKFILE statement or indexed 
randomly accessed 5444 disk files, following 
each short CCP DTF (SDF) would be the index 
area for that particular file and there would be 
no master index area. 

5. Dynamic Telecommunications Buffer area. The 
size of the Dynamic Telecommunications Buffer 
area depends on the size specified by the user at 
Assignment on the system statement Ml NTPBUF. 
This value may be changed at startup time. 
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The user program area follows the five CCP main 
storage areas. The size of the user program area 
depends either upon the Assignment // SYSTEM 
statement's MINUPA parameter or an overriding 
value given during startup. 



S/3 DSM supervisor 



SCCCOM (9M.0020) 



CCP transient area (9M.0020) 



Resident CCP (9M.0020) 



Trace routines and tables, control blocks, 
line buffers, disk file master indexes. 
(9M.0021) 



Dynamic telecommunications buffer area 



CCP 



User program area 



Other program level 



Diagram 9M.0010. Main Storage Layout 
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Diagram 9M.0015. Main Storage Layout, DFF 
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A program appended storage area (PASI is allocated to 
each program which uses the services of DFCR. 

PAS is composed of 3 parts. 

1 . Constants and work areas. 

2. Terminal table (TT) and format table (FT) entries. 

3. Field descriptor table (FDT) entries. 

The actual size of a PAS is calculated by the assign- 
ment phase $CC2PG and inserted in the PCT in 
$CCPFILE. 

The fact that this item (PCT DFF) is non-zero indicates 
that DFCR will be used by the program described 
by the PCT. 

During program allocation, an area will be allocated 
for a PAS, the address of it will be placed at TCBDFF, 
and the length of the PAS and the length of the long- 
est FDT is placed in CDEDFF and CDEFDT 
respectively. 

PAS is used by DFCR to build 3270 text, to build 
up the user's input record properly, and to store all 
task dependent information, which allows DFCR to 
be reenterable. 

PAS is always allocated on a X'0100' boundary, and 
is allocated in X'0100' segments. 

During start-up, an index of display format names and 
disk addresses is built and stored in $CCPFILE. 
The starting location of this index is placed in <s>DFFIX 
in CCCOM. 

Whenever the user program requests a display format, 
and an FT entry does not exist already in PAS, this 
index is read into the FDT area. If the format name 
appears in the index, the FDT will be read in from 
the object library into the FDT area (overlaying the 
index), and an FT entry will then be built. 
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PAS 




0< 



1 User program L 


DFCR constants and work areas 


TT entry 1 


FT entry j 


TT and FT entries 
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► Additional TT and FT entries i 


Format physical attributes j 


FDT entry j 


FDT 
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1 FEO000O0 


■• 



><n 



Object 
library 




The DFCR constants and work areas, TT and FT entries 
always requires at least 256 bytes. This allows enough 
space for 1 TT and 5 FT entries, 2 TT and 3 FT 
entries, or 3 TT and 1 FT entry. If more entries are 
required than what will fit in the first sector, additional 
segments of 256 bytes are allocated. 

The constants and work areas occupy the first part 
of this area. The TT and FT entries are built dynam- 
ically (as the program references them the first time) 
after the work areas. The constants and work areas 
are initialized by the allocate transient $CC4DA. 

Immediately following the work areas will be a TT 
entry followed by a FT entry. These show which 
terminal a put message operation was performed to 
first in the program, and which format was used. 
Following these two entries may appear other TT and 
FT entries if the program communicated with more 
than the first terminal. The TT and FT entries are 
built as the program executes a put message or copy 
operation to new terminals with new formats. 

The field descriptor table (FDT) area always starts 
on a X'0100' boundary, is a minimum of 256 bytes in 
length, and should be at least as large as the largest 
FDT used in the program. (This figure is printed on 
the format generation listing.) 

Each FDT entry is 14 bytes long. The very first entry 
describes the physical attributes of the format. All 
other entries describe a field contained in the display 
format. 

The FDT is read into this area from the FDT as con- 
tained in the object library. There are 17 entries in the 
first sector and 18 entries in each succeeding sector. 
The last A bytes of each sector contain X'FEOO 00 00'. 
The first byte after the very last entry contains X'FF'. 



End of 

supervisor 
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$CCCOM: CCP communications 

area 



Transient area #1 for non- 
communications tasks 



Transient area #2 for communica- 
tions tasks 



Work areas for command processor, 
allocation, termination, communi- 
cations manager, and console 



Console buffer 



Task control blocks for the com- 
munications manager, termination 
and command processor tasks 



Console 
Main terminal 
unit block 



Console 

Subterminal unit 
block 



First level transient list 



$CC4DP 
$CC4IO 
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DPTIAR - 



Task dispatcher and 
I/O scheduler 

The DSM disk I/O 
dispatch intercept 
routine. 



The disk I/O device 
wait intercept 
routine. 



Routine to determine 
if the current IAR is 
for CCP or not. 





$CC4IH 


- Common interrupt 
handler 




$CC4WT 


— Wait service routine 




$CC4PS 


— Post service routine 




$CC4IG 


- General entry intercept 


File I 
share j 
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$CC4DI 


— Disk I/O enqueue/ 
dequeue routine 


$CC4II 


- TP I/O interface (user 
requests) 




$CC4IS 


- TP I/O interface (sys- 
tem requests) 




User security information area 


End 
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SCC40M 


— Communications 
manager 


CC4#2 S 


$CC4CP 


— Command processor 
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$CC4AM 


— Allocation routine 


Link- J 


$CC40C 


- Open/close/allocate 
routine 


edited ] 


$CC4TI 


— Termination interface 


( 


$CC4PI 
$CC4TX 


— Transient area handler 

— Transfer control tran- 
sient to transient 



Diagram 9M.0020 (Part 2 of 3). CCP Resident Code 



Diagram 9M.0020 (Part 1 of 3). CCP Resident Code 
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$CC4TR — Transient return 


I Only for 
? BSCA 

f Only for 
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\ code 

( CCP trace 
Code 


Progra 


m request count table 




Transient area control blocks 
$CC4TT — Trace interface routine 


TAS- 


Terminal attribute set 




CPHALT — Disaster halt routine 
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T 
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MLTA adapter DTF 


SCC4PQ — Determine terminals 
selected status 


Line 1 

DTF (define-the-file block) and LCB (line 

control block) 




$CC4MX - Move/clear routine 


$CC4IC - Console interrupt 
handler 


SDR - Statistical data recording area 


Polling list 


$CC4IB - BSCA interrupt 
handler 


Line buffer 


Line 2 


BSCA IOCS 


Line 3 


— 


Line 4 


$CC4BT - BSCA start online test 


Line 5 


$CC4IM - MLT A interrupt 
handler 


Line 6 


— 


Line 7 


MLTA IOCS 


Line 8 


$CC4MS - Getmain/Freemain 
routine 
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Line 1 

DTF and LCB 




CCP trace routine 

$CC$TR - Allocated storage 
for CCP trace table 

$CC$SA - Service aid module 


ASCII translation buffer 


Line buffer 


Addressing list 


$CC$BS - BSCA trace module 


Polling list 


$CC$ML — MLTA trace module 


Diagram 9M.0020 (Part 3 of 3). CCP Resident 


SDR 
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DTF and LCB 






ASCII translation buffer 




Line buffer 




Addressing list 



Diagram 9M.0021 (Part 1 of 2). Control Blocks and Data Areas 
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Polling list 


SDR 


Checklist for MLTA and BSCA 


TUBs 


- Terminal unit blocks 


TNT 


- Terminal name table 


TCBs 


— Task control. blocks for user 
programs 


CDEs 


- Contents directory entries 


PCT 
index 


- Program characteristics table 
sector indexes 


SDFs 


- Short DTFs 

(See index entry post startup 
resident code) 


XDTs 


- Symbolic file tables 


Master indexes 

(See index entry post startup resident code) 


SQBs 


— Sector enqueue blocks 


FSBs 


— File specification blocks 


Dynarr 


ic telecommunications buffer area 



End of 
resident 
control 
blocks and 
data areas 

Diagram 9M.0021 (Part 2 of 2). Control Blocks and Data Areas 



BASE SCP EXTENSION TO DSM 

At the lowest level in the hierarchical structure of 
CCP (Figure 9-1) are SCP functions that CCP must per- 
form beyond those provided by DSM. These are 
divided into 3 categories: 

1. DSM request intercept (modules $CC4IG, $CC4IO, 
and $CC4IW). $CC4IG augments DSM General 
Entry to ensure that DSM functions such as open, 
close, end of job, and allocate are not invoked by 
CCP user tasks but that the appropriate CCP 
substitutes are called. There is also a General 
Entry RIB to permit a user program to link to CCP 
functions such as TP I/O without having the entry 
point address. 

2. TP or console I/O interrupt handlers (modules 
$CC4IB, $CC4IM, and $CC4IC). The interrupt 
handlers process operation complete conditions when 
the DSM interrupt handlers (BSCA, MLTA, or 
console) have completed. This causes the CCP 
Dispatcher to invoke the communication task so 
that post-l/O operation logic can be executed. 

3. CCP task control (modules $CC4IH, $CC4DP, 
$CC4IW, SCC4PS, $CC4WT, and $CC4DI - 
$CC4IG can also be placed in this functional 
category). Task control is a group of routines 
which provide a formal mechanism for directing 
control among user and CCP tasks. Some of the 
flow direction is indirect, as when $CC4IG and 
$CC4IW transform a DSM service request or wait 
into a CCP wait. All of these functions tie into 
$CC4DP, the Task Dispatcher. Diagram 9M.0030 
depicts functional flow among the functions. Logic 
flow is found in the program organization section. 
The General Entry intercept logic flow (Diagram 
9M.0040) is given to show the various paths the 
logic can take. 



Method of Operation 9-7 



System 
tasks 
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Diagram 9M.0030. Gross Flow of DSM Extensions (Models 8, 10, and 12 Only) 
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$CC4IG Chart OR 

• If not CCP program level 



• If RIB = 0,R2-*-PLCA 



• If trace active, trace (ID=05) 



• If halt/syslog call . . . 

• If by communication manager 

• If by other 




• If DLOG; RIB = X'DO', indicate DSM ERP logging active 



L 



• If call actually will go to DSM, set *DSM busy'; force return here 
from transient. Also, if overlay fetch call, save pertinent PLCA 
data for loader and substitute data for this load. If DSM busy, 
wait. 

• If return from DSM, reset 'DSM busy' and replace PLCA informa- 
tion as appropriate. Do general post. 



If DSM open, close, or allocate, RIB = X'82', X'83', or X'88' 



• If RPG II halt processor, RIB = X'8F' 



• If EOJcall, RIB = X'84' 



• If CCP RIB, RIB = X'01'and 

• lfsub-RIB = X'00' 



lfsub-RIB = X'OT 



• If sub-RIB = X'02' 



Diagram 9M.0040. 



Intermediate Flow of General Entry Intercept ($CC4IG) (Models 8, 10, and 12 Only) 
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Getmain/Freemain 

CCP has need of the dynamic storage acquisition 
function, Getmain, and the necessary counterpart, 
Freemain (Diagrams 9M.0041-9M.0046). The first 
basic use is for physical TP I/O buffers which are 
allocated only on an as-required basis. The second 
use is for allocation of user program area. See index 
entry Getmain by $CC4CM to find the algorithm for 
determining the storage allocated in different situations. 

User main storage requirements are obvious. The subtle 
aspect is the user of restrictive Getmain to attempt to place 
a program on a user area boundary, to force placement of 
a never-ending program, or to force placement of the DFCR 
($CC4DF) at either extreme of the user program area. This 
capability prevents programs from inadvertently fragment- 
ing execution storage. See detailed flow of the allocation 
manager for more specific information. 

The dynamic TP buffer pool relates to the MINTPBUF pa- 
rameter of the // SYSTEM statement in assignment. User 
main storage is derived from the MINUPA parameter also 
on the // SYSTEM statement. 



Caller 



$CC4MS Chart OZ 



$CC4GM Chart OZ 

• If sufficient storage available, 
take from smallest sufficient 
area; return area address and 
size to caller. 

• If sufficient storage not avail- 
able, set exception return code. 



SCC4RM Chart OZ Restrictive Get 

• If area of sufficient size exists in 
lower end of pool, then give area 
adjacent to lower end of pool to 
caller. 

• Else if area of sufficient size 
exists adjacent to high end of 
pool, then return that area ad- 
dress to caller. 

• Else if neither, then set excep- 
tion return code. 



SCC4FM Chart OZ 

• Return segment to pool. Create 
new segment or merge with any 
adjacent segments. 




Dia B ram 9M.0041. High Level Flow of Getmain/Freemain 
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= Size of largest 
free segment 



0000 



B-A+1 



Segment control 
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location A through 
A+3 (4 bytes) 

(Entire) 
Free segment 



Given: 

Storage pool as in 9M.0312 

Arbitrary points F and G within allocated area beginning 

atC 

Free area between F and G 



Given: 

A is address of first 

byte of pool 

B is address of last 

byte of pool 

Diagram 9M.0042. Example of Storage Pool after Startup - MINTPBUF 
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No change to storage control block unless (G-F) > (C-A) 
Diagram 9M.0044. Example 1 of Segment Changes after Freemain 



If get request given now and 
if number bytes required (N) 
< (E-D), then D (free segment) 

would be used Else if N < ' ' B 

(C-A), then segment A would Given: 

be used. A restrictive get of A is address of first byte of pool 
size N would work only if B is address of last byte of pool 

N < (C-A). Should (B-E) C and E are addresses of first 

> N > (C-A), then segment E byte of allocated areas 
could be used, D is address of first byte of new 

free area (C-A) > (E-D) 

Diagram 9M.0043. Example of Storage Pool after Storage Allocation 
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The first field of the storage control block now contains F 
assuming (E-F) > B (C-A). The last storage control block 
field would change to reflect new largest free area. 
Diagram 9M.0045. Example 2 of Segment Changes after Freemain 
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Before 
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block at D is gone and 
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B 

The first field of the storage control block now contains A 
and the last field (largest free area) reflects the update size 
of segment A; (E-A). 

Diagram 9M.0046. Example 3 of Segment Changes after Freemain 



CCP Transient Area Handler 

To conserve main storage in the CCP component, most 
of the executable code resides on secondary storage and 
is brought into main storage only as needed. The modules 
that reside on secondary storage during execution time are 
called transient routines. It is important to note that 
the DSM transient area is in no way involved with the 
CCP transients. This distinction is maintained because of 
the potential of interlocks due to conflicts that may 
occur in dual programming systems and within the CCP 
tasks themselves. In fact, CCP has 2 transient areas; one is 
dedicated to Communications Management (task) ; the other 
is shared among the remaining components (tasks). 

When a CCP transient call is issued, the CCP Transient 
Area Handler (Diagram 9M.0048) indexes, via a parameter 
byte, into a Startup-initialized disk-address table (called 
the First Level Transient List) in much the same way as 
the DSM transient area handler used on the address table. 
Another similarity between the CCP and DSM transient 
area handlers is that when the desired transient area is in 
use, a wait is necessary. 

Transients exit in one of two ways. They may return to 
the original caller or they may fetch another transient to 
overlay themselves by performing a transfer control 
(XCTL). The XCTL would relate to one DSM transient 
calling another without-refresh. There is no call-with- 
refresh function provided in CCP. All XCTLs are done 
via a disk address which has been set by Startup ($CC3CR) 
within the calling transient routine. 

If the return is to the original caller, the formal post 
logic will be called so that any other non-communications 
tasks waiting for the transient area will again be able to 
contend for it. 

Not only are disk addresses initialized in cross-reference 
tables by Startup, the addresses of all relocatable items 
are also resolved (by $CC3RT) for transients so that a 'core 
image' load of these transients is possible. Parameter pass- 
ing between transients is done via a two-byte XCTL param- 
eter and by resident data areas. 

CCP transients are brought into main storage via a 
direct read of the transient using only the NCEIOS 
and NCEIOW routines of DSM. 
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Diagram 9M.0048. CCP Transient Handler 
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GCP TELEPROCESSING I/O INTERFACE 

The CCP Teleprocessing Input/Output Routine ($CC4II/ 
$CC4IS) handles all user and system task requests for 
TP I/O operations. This resident module serves as 
the interface (Diagrams 9M.0050 and 9M.0060) between 
a user or system task and the Communication Manager 
(CM). 



System Task Requests 

For system task TP I/O requests, $CC4IS determines 
whether the request was for the console or a terminal 
and posts ($CC4PS) CM that such a request is pending. 
$CC4IS then branches to $CC4WT to wait until the 
request has been completed. $CC4IS returns to the caller 
after the TP I/O request is processed. 



User Task Requests 

The CCP Teleprocessing Input/Output Routine validates 
all user task teleprocessing operation codes on a TP 
request prior to passing control to the module required 
to process the request. 

The three types of user task teleprocessing operations 
handled by $CC4II are Accept Input, Display Format 
Facility, and status requests. Other user task TP requests 
are passed directly to CM. One other significant oper- 
ation performed by $CC4II is that when a shutdown 
command has been issued, it sets the return code in the 
user task parameter list to indicate to the user that the 
shutdown was issued, thereby enabling the user program- 
mer to recognize shutdown and take any desired action 
when a shutdown is received. 



Accept Input 

On an accept input from a user task, $CC4II verifies 
that an invite input has already been issued and calls 
the Diagnose and Process Transient $CC4AB to find a 
Terminal Unit Block (TUB) with input to be processed. 
If none is found, the Diagnose and Process Transient 
branches to wait $CC4WT. When a TUB is found, 
control is returned to $CC4II, which moves the data by 
calling the Data Move Routine $CC4MX to move the 
data from the invite input hold area to the user record 
area. When the move is completed, $CC4II frees the 
invite input hold area and returns control to the user task. 



Display Format Facility (DFF) Request 

For a DFF request $CC4II calls the DFF transients. The 
copy operation and put override operation are handled by 
special transients $CC4DC and $CC4DB, respectively. 
The Display Format Control Routine $CC4DF modifies 
all other DFF operation op codes and handles the data 
transfer. This data transfer is accomplished by a task 
switch to CM via the Dispatcher $CC4DP. CM then 
handles the transfer of every block of data except the 
last, which is handled by $CC4II. Put initial and put 
overrides are also handled in this manner. Control is 
returned to $CC4II when all the data has been trans- 
ferred except for the last block and $CC4II completes 
the operation. 



Status Request 

There are three status requests; all are handled by $CC4II. 
The requests are acquire terminal, release terminal, and 
get attributes. These user task TP I/O requests are 
handled by transients called by $CC4II. Control is 
returned to the user task once the requested operation 
is completed. 
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CCP CONTROL TASKS 

Four tasks control the CCP Execution System functions, 
communications, termination, command processing, and 
allocation (Diagram 9M.0070). 

The Communication Task handles the logical aspect of 
terminal communications and total control of the 5471 
operator's console. Though much of the Communication 
Task function is transient, a significant amount necessarily 
is resident code. When the Communication Task detects 
that data received is system control information (for 
example, data from a command terminal that is in 
command mode, initial mode, or command-interrupt 
mode), the Command Processor Task is given control. 



The Command Processor Task sorts out the various 
commands and when the validity and propriety is 
confirmed, appropriate transients are called to take 
action with respect to that command. Almost the entire 
Command Processing Task is transient. 

One of the most significant commands is the request for 
a program. Several transient routines perform verifica- 
tion of such a request to ensure that the requested 
program will have the required resources. When appropriate, 
the Allocation Task may be given control. Its function is 
to effectively give resources to the user program for whom 
execution has been requested. This control task has 
the peculiarity of running as a user task with a user's TCB. 
The allocation function is complete when all required 
resources are given, or bound, to the user task. 



Within the CCP program level the CCP dispatcher, $CC4DP, decides which task is to be the active task at any given 
moment. Within the control task group, there is priority. The user task group is based entirely upon the voluntary sur- 
render of control; however most SCP function requests may cause such loss of control. 
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Diagram 9M.0070. Task Control 
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A user task will run until it decides it has reached end of 
job. Since the DSM end of job function would terminate 
CCP if it were called, CCP provides a Termination Task 
to handle orderly completion of user programs. It works 
closely with the other CCP control tasks since these tasks 
often depend on certain resources of whose availability 
only termination is aware. 

The Termination Task is used to purge user programs 
(tasks) when their processing is completed. This occurs 
if the program went to end of job or has been terminated 
by CCP or the system operator. 

Termination will free all resources bound by the task and 
inform Allocation, via Post, that required resources 
are available. In addition, CCP Termination (Cancel or 
Shutdown) is initiated by the Termination Task. 



Communication Management Task 

The Communications Manager routine ($CC4CM) performs 
all communications input/output functions for the console 
and for all the terminals defined in the CCP program 
level. Terminal I/O is performed by direct interface 
with the communications IOCS (MLMP/MLTA). All 
scheduling of line activity, data code translation, I/O 
error detection, and buffer acquisition are performed by 
$CC4CM. 



$CC4CM functions as a system task (with its own Task 
Control Block) and has the highest priority of all tasks in 
the CCP system. It is a single task which handles both 
multipoint and point-to-point lines, both switched and 
nonswitched lines, both MLTA and BSCA, and both user 
requests and system requests. 



$CC4CM is completely event driven. Only the occurrence 
of an event elsewhere in CCP which causes $CC4CM to be 
marked dispatchable will cause control to be passed to 
$CC4CM. 

$CC4CM is marked dispatchable for the following 
reasons: 

• User communications request accepted. This causes 
$CC4II to post $CC4CM that a communications 
request is to be scheduled. 



• System communications request accepted. This 
causes $CC4IS to post $CC4CM that a communications 
request is to be scheduled. 

• TP op end interrupt occurred. When a TP interrupt 
occurs, the IOCS interrupt level service routine gains 
control. It branches to a CCP interrupt intercept 
routine that analyzes the interrupt and determines if 
it was an op end which requires handling by 
$CC4CM. If so, the count of op end interrupts 
maintained in the CCP Communications Area is 
increased by one. 

• Console op end interrupt occurred. On all console 
op end interrupts, the console interrupt routine 
($@COIH) branches to the CCP console interrupt 
intercept routine ($CC4IC) which sets on a bit in the 
CCP Communications Area. The bit set is DPCI 

of byte $DPFLH. 

• Freemain requested. Some of the functions performed 
by $CC4CM require the obtaining of dynamic main 
storage (Getmain). Occasionally the main storage 

will not be available and $CC4CM will not be able 
to proceed with that particular function but instead 
must perform other functions. In this case, $CC4CM 
waits until a retry of the Getmain can be attempted. 
Therefore, $CC4CM is posted by another task that 
a Freemain has occurred, and if $CC4CM is waiting for 
a Freemain, then $CC4CM will be marked dispatchable. 

The Communications Management Task controls communi- 
cations between both CCP user or system tasks and console 
or teleprocessing devices. CCP user and system I/O requests 
are passed to $CC4CM and it issues the necessary requests 
to the appropriate IOCS or CCP transient. For start-stop 
terminals, the MLTA IOCS is used. For binary synchro- 
nous communications, MLMP IOCS is used. CCP has 
its own set of communication transients for the console. 

A user communication request in the form of a parameter 
list is initially received by the I/O Interface Routine, 
$CC4II (Diagram 9M.0080). After $CC4II has caused 
any Display Format Facility (DFF) reformatting of 
data and parameter list, $CC4II posts $CC4CM that a TP 
request is pending. 
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Evocation and Input 

The valid user communication requests that $CC4II 
passes to $CC4CM are: 

• Get 

• Invite input 

• Put 

• Put-no-wait 

• Put-then-get 

• Stop-invite-input 

For a detailed description of each request, see IBM System/3 
Communications Control Program Programmer's Reference, 
GC21-7§79. 

A CCP system communication request is passed to $CC4IS. 
$CC4IS passes the parameter list to $CC4CM by posting 
$CC4CM that a TP request is pending. The following 
system requests are handled by $CC4CM: 

— System invite input, functionally the same as invite 
input. Input is always translated to upper case, and 
if data is from a 3270, the message is formatted for 
the Command Processor. Error Recovery procedures 
take into consideration that the request was issued 
by a system task. 

— System put, functionally the same as put. If issued 
to 3270, special formatting is done. Error recovery 
procedures differ because they are issued by the 
system task. 

— System put-no-wait, functionally the same as put- 
message-no-wait. If issued to 3270, special formatting 
is done. Error recovery procedures differ because they 
are issued by system task. 

— System put-no-wait-then-invite, which is system 
put-no-wait followed by a system invite input. 

— System stop invite, functionally the same as user 
stop invite. 

— System purge, which is remove invite, get, or put that 
is active on the line. 

— System put disconnect, which is disconnect switched line. 



— System put disconnect-then-invite, which is system 
put disconnect followed by system invite input. 

— MLTA online test, a request to set up MLTA online 
test DTF and request IOCS to perform test. 

— BSCA online test, a request to create system put 
to satisfy online test request. 

In addition to receiving control from the dispatcher due 
to posts by $CC4II and $CC4IS to process a new parameter 
list request, $CC4CM is given control by the dispatcher 
as a result of one of the following conditions: 

— A previously started IOCS operation completed. 
The Communications Manager needs control to do 
further processing for a parameter list request and 
to initiate a new operation on the line. 

— Main storage previously acquired by a CCP system 

task has been freed by $CC4FM. The Communications 
Manager needs control to start a communications 
request that has been waiting for the availability of 
more main storage for a buffer. 



Processing 

$CC4CM control flow is shown by Diagram 9M.0090. 
The handling of the console is given priority over the 
handling of all teleprocessing operations. Within the 
processing of TP requests, the clearing of completed 
operations and the rescheduling of the line with other 
previously received requests is given priority over the 
initial processing of new parameter list requests. 

The sequence of processing is: 

- Process new console parameter list (Diagram 9M.0100). 

- Handle console operation-complete (Diagram 9M.0100). 

— Start new output operation to the console (Diagram 
9M.0100). 

— Handle teleprocessing operation complete (Diagrams 
9M.0110 and 9M.0120) and start a new operation 
for that line (Diagram 9M.0140). 

- Search for a request that now can be started because 
of main storage being freed (Diagram 9M.0130) and 
start it (Diagram 9M.0140). 

— Process new teleprocessing parameter list (Diagram 
9M.0130) and start next operation to that line 
(Diagram 9M.0140). 
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Diagram 9M.0090. Communications Management Overview (Models 8. 10, and 12 Only) 



Method of Operation 9-21 



****A1********* 

* * 

* ENTER * 

* * 
*************** 



.* CONSOLE *. VES 
*. PARAMETER .*■ 
LIST .* 



9P.803C1 
*****U2 ********** 
**CC4Xl * 




.INTERRUPT.* 
*. .* 

*. .* 

NO 



• KEYBOAR. 

* . INTERRUPT * 

***************** 



.* CUD KEY *. YES 
». 7 .* 



*. •* 
* NO 



E2 



**** 

* * 

* HI * 

* * 
**** 



*. 



.* CMO KEY *. YES 

*. 8 .* 

*. .* 
*. .* 
*. .* 
* NO 



9D.9030 
*****D3 ********** 
*SCC4X8 * 

* * 

->* DISPLAY LAST *- 

* PAGE * 

* * 

***************** 



9P.9050 
*****E3********** 
»*CC4XF * 

* * 

->* DISPLAY NEXT *- 

* PAGE * 

* * 
***************** 



... 



F2 
.* 

.* PROG 
. START 

*. ENTER 



*. YES 
.* 



9P.8090 
*****F3********** 
*$CC4X7 * 



V 
.*. 

G2 *. 

.* *. 

.* ERROR *. Y 

*. OR RETURN .*- 

*. KEY .* 

*. .* 

*. .* 

* NO 

V 



->* PUT INPUT TO •- 

* LOG FILE * 

* * 
***************** 



9P.8050 
*****G3********** 
**CC4X3 * 



9P.S060 

*****F4********** 
**CC4X4 * 

* * 

->» HANDLE INPUT *- 

* END * 

* * 
***************** 



9P.8O80 

*****F5********** 

*$CC4X6 * 

* * 

->*HANDLE RESP TO *- 

* PUT-THEN-GET * 

* * 
***************** 



♦DISPLAY MSG OR * 
* INPUT * 

***************** 



V 
.*. 



.* *. 
.* CONSOLE *. YES 
*. OUTPUT ON .* 



**•* 
*002* 

* El *-> 

* * 
**** 



*****H2«* 
*»CC4X7 



-*: pu L T ogw E T T0 j 

* * 

***************** 



V 

.*. 
Jl *. 

.* ♦. 

.* BSCA OP *. 

«. COMPLETE .* 

*. .* 

*. .* 

*. .* 
NO 



*****J2*«** 
•CMOPNO 



.J3 



*. 



->*HANDLE E j9gCA OP *-- 

* * 

***************** 



**** I 

•002* I 
* HI *->| 

i~ * 



.* ANY NEW *. 

«. TP REQUESTS . 

*. .* 



.* OP PUT *. YES 

->*. TO CONSOLE .* 

*. .* 

*. .* 

*. .* 
* NO 



***** 
*002* . 
* 01* 

* * 



.* NEED TO *. YES 

->*. ENABLE .* 

•.KEYBOARD .* 
*. .* 



V 

***** 

♦ 002* 

* Dl* 
* * 



9P.807C 
*****J5********** 
* tCC 4X5 * 

->* * 

♦ENABLE KEYBOARD* 
* * 

***************** 



V 

***** 

*002* 

* Dl* 

* * 



V 
***** 
*002* 
* CI* 



V 

***** 
♦002* 
* 81* 



Diagram 9M.009S (Part 1 of 2). Communication Management ($CC4CM) (Model 4) 
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Note: See IBM System/3 Disk Systems Binary Synchronous 
Communications Programming Support Input/Output 
Control System Logic Manual, SY210526. 

Diagram 9M.01 10. CM BSCA Operation Complete Handling 
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Diagram 9M.0120. CM MLTA Operation Complete Handling (Models 8, 10, and 12 Only) 
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Diagram 9M.0130. CM MLTA/BSCA Request Scheduling (Models 8, 10, and 12 Only) 



Note: See IBM System/3 Disk Systems Data 
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visor Logic Manual, SY21-0512. 
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Diagram 9M.0140. CM BSCA Start Operation (Models 8, 10, and 12 Only) 



Note: See IBM System/3 Disk Systems Binary 
Synchronous Communications Pro- 
gramming Support Input/Output Control 
System Logic Manual, SY21 -0526. 
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Diagram 9M.0145. CM MLTA Start Operation (Models 8, 10, and 12 Only) 
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Diagram 9M.0150. Console Output Transient Flow (Models 8, 10, and 12 Only) 
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Diagram 9M.0160. MLRA/BSCA Error Handling Transient Flow 
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After a task posts $CC4CM, the task waits for $CC4CM to 
indicate that the request is sufficiently completed to return 
to the requester. In the case of wait operations like put, 
get, and put-then-get, this is done after the final operation- 
complete interrupt (CMOPND). For put-no-wait, invite input, 
input, system put-no-wait-invite, the task is posted to return 
as soon as the operation is scheduled on the line queue. 

A completed invite input or system invite input operation 
causes a post to the requesting task when data is received 
and placed on the invite input queue. This post is done 
in the CMOPND section. 



mask indicates there is a new TP request to be 
scheduled, $CC4CM gets the address of the 
parameter list that carries the TP request. The 
address is in the field @PRL in the CCP Commun- 
ications Area. 

Note: The one exception to the functional priority 
scheme described is that the scheduling of a new TP 
request which is a system put-no-wait will take priority 
over Freemain analysis. This is to reduce the chances 
that the system put-no-wait fails to get the necessary 
hold buffer space and is scheduled as a put (wait). 



Note: Input is always queued to the command processor 
for system invite inputs, regardless of the requesting task. 



Line Scheduling Algorithm 



Communication Management Functional Priorities 

$CC4CM analyzes the work it has to do in terms of 
functional priorities. These priorities are based on the 
objective of keeping the console and all teleprocessing 
lines as active as possible. The order in which $CC4CM - 
processes its work is: 

1. Service console. Servicing of the console is 
performed by $CC4CM before analysis of teleprocess- 
ing service requirements. 

2. Handle teleprocessing op ends/reschedule the TP 
line. $CC4CM checks the TP op end count 
maintained in the CCP Communications Area 
(#OPEND). If the TP op end count is greater than 
zero, $CC4CM handles one at a time the TP op 
ends that have occurred. Since the occurrence 

of a TP op end implies that the TP line is no longer 
active, the rescheduling of the TP line becomes part 
of the op end processing. After performing any 
rescheduling activity, $CC4CM re-analyzes the TP 
op end count. This cycle occurs until the TP op 
end count is reduced to zero. 

3. Freemain analysis. If $CC4CM was posted that 

a Freemain occurred, $CC4CM attempts to obtain 
the main storage required to proceed with the 
processing of the pending function. For example, 
if an invite input cannot be scheduled because of 
the unavailability of a hold buffer, $CC4CM attempts 
to obtain the hold buffer with a Getmain each 
time a Freemain post occurs. Only a successful 
Getmain allows the invite input to be processed. 

4. Schedule a new TP request. $CC4CM determines 
whether a new TP request has been received by 
checking the post mask in its TCB. If the post 



All teleprocessing communications requests are issued 
via parameter lists. With one exception, the scheduling 
of these TP requests begins with the addition of the 
parameter list to a TP line queue. (The one exception 
is MLTA online test for which status information is 
placed in the TUB and the LCB). Basically, a scan of 
a TP line queue reveals all outstanding teleprocessing 
requests for a particular TP line. 

The process of scheduling a TP line involves the scanning 
of the TP line queue and a selection of the parameter 
list to be honored. This selection is based on the following 
algorithm: 

— For MLTA, a request for online test is honored first. 

— For BSCA, a poll for status operation (3270, 3735) is 
honored first. 

— The first output request found during the scan of 
the line queue will be selected; if none, 

— All input operations will be honored (by enabling 
specific terminals on the line for input) with the 
following restriction: if the input operation is an 
invite input, the terminal will be enabled for input 
only if adequate hold buffer space can be obtained 
to hold the potential input. 

The general philosophy of this algorithm is output over 
input. While the time to complete an output operation 
is finite, the completion of an input operation is dependent 
upon the activities of the terminal operator. Thus if a 
new TP request is received while the TP line is enabled 
for input, the input operation will be cancelled if no 
data is being received and the output operation started. 
At completion of output, input is restarted. 
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Getmain by $CC4CM 

The action taken by $CC4CM on an unsuccessful 
Getmain varies according to the requested TP operation. 

• Put-no-wait. An unsuccessful Getmain for a put-no- 
wait results in $CC4CM handling the request as a put- 
wait. Thus, the request will still be processed but 
the requester will not resume execution until the 
output has been transmitted to the terminal. 

• Invite input. An unsuccessful Getmain for an invite 
input results in a suspension of the processing of the 
invite input. No terminal will be enabled for input 
unless there is either a record area or hold buffer into 
which the data can be moved. Thus an invite input 
cannot be started until adequate hold buffer space is 
obtained. 



Disconnecting Switched Lines 

— To disconnect a switched line a system put-disconnect 
operation (no wait) must be issued X'A006'. 

-- It is valid to issue a system put-disconnect/invite input 
X'A007'; in fact, for MLTA lines it is more efficient 
in terms of line time and CCP processing to issue 
the operations as one request. 

— Only a system task can directly request the disconnec- 
tion of a switched line. $CC4II will terminate any 

user program which requestsan operation which involves 
the disconnect function. 

— The disconnect operation must be issued only to 
switched lines. 

— The disconnect operation cannot also transmit data 
to the terminal. Therefore the output length must be 
zero for any request involving a disconnect function. 



contains information relative to the nature and 
status of a line and consists of: 

— The line DTF for the communications IOCS. 

— The SDR tables for terminals on the line. 

— The polling list, if any, for the line. 

— Miscellaneous status and pointer data for the line. 

The Terminal Unit Block (TUB) — one TUB exists 
for each uniquely identifiable terminal in the system. 
The TUB contains information defining the nature and 
status of the terminal with which it is associated. 
The information includes: 

— The terminal's physical type and features. 

— The current hardware condition of the terminal. 

— The roles that terminal is permitted under CCP. 

— The status of operations in progress on the terminal. 

The Terminal Name Table (TNT) — one TNT entry 
exists for each symbolic terminal name permitted in 
the system. Each symbolic terminal name is assigned 
to a specific terminal and thus is associated with a 
certain TUB. During the running of the CCP system, 
the system operator may change the assignment of a 
terminal name, thereby associating the name with 
another TUB. Thus a Terminal Name Table entry 
consists of the symbolic name and a pointer to the 
currently assigned TUB. Any request for oommunica- 
tions service by a user program references a symbolic 
terminal name as the identification of the terminal on 
which to perform the operation. On each such request, 
communications management must resolve that identity 
to a particular terminal (to a certain TUB) via the 
Terminal Name Table. 



Communications Manager Teleprocessing Control Blocks 

Three major control blocks, whose contents are set and 
maintained by CCP, have significance specifically for 
communications management; these are: 

The Line Control Block (LCB) - one LCB exists per 
each communications line in the system. The LCB is 
the CCP extention to the teleprocessing DTF. An LCB 



Console Management (Models 8, 10, and 12 Only) 

The console management's support for the CCP program 
level resides in the Communications Manager ($CC4CM). 
While some of the support is resident, most of the routines 
that service the console are transient ($CC4K1, $CC4K2 
through $CC4KB). 
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Console Management (Model 4 Only) 

The console management's support for the CCP program 
level resides in the Communications Manager ($CC4CM). 
While some of the support is resident, most of the routines 
that service the console are transient ($CC4X1 through 
$CC4XG). 

Note: The routine $CC4X9 is renamed $CC4K9 in Model 
4 CCP installation. 

The only standard DSM keyboard routine used to support 
the console is the Keyboard Interrupt Handler ($@COIH). 
The CCP console support is written to allow overlapping 
of console I/O with other system functions. 

The Model 4 CCP console is a logical combination of the 
operator keyboard, a 3277 Model 1 screen, and a disk file. 
The name of the disk file is $CCPLOG. The console 
messages are written to this disk file. At the operator's 
discretion and after a command is entered, the information 
in the file is displayed on the 3277 screen. Five to 10 
messages fit on the screen at one time. 

Console Output Request not from the Communications 
Manager: All console output requests from other than the 
Communications Manager are issued via a communications 
parameter list. The fields in the parameter list which are 
utilized are: 

The operation code/modifier (PLOPC). 

The output length (PLOUTL). 

The record area address (PLRECA). 

The TCB address of the requesting task (PLTCBA). 





Communications 
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Record area 
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When $CC4CM receives an output request for the console 
from a task other than the Communications Manager, it 
will add the parameter list to the console output queue. 
Whenever it is determined by $CC4CM that the console is 
available for output and there is a parameter list in the 
console output queue, the transient $CC4X7 is called to 
write the output to the console. The message is moved to 
a 2-sector (512-byte) disk buffer. This buffer is written to 
the disk file ($CCPLOG) when a message overlaps the 
second sector. After the write is complete, the second 
sector is moved to the first sector in the buffer. This disk 
buffer resides in the console work area. 

Console Output Request from the Communications 
Manager: This Communications Manager ($CC4CM) 
occassionally issues console output requests from its 
transient area. Since the routines to support the console 
execute in the $CC4CM transient area, a conflict exists 
which cannot be resolved with the console support used 
to handle requests from other than the Communications 
Manager. 

Thus, a series of special transients are provided specifically 
for the support of console output requests from $CC4CM 
transients. Basically, the following considerations are 
involved in the handling of console output from the 
Communications Manager: 

— The console output request is passed by using a message 
data area consisting of a 1-byte message length immediate- 
ly followed by the message test. 

— The message data must be at least 258 bytes into the 
transient issuing the request. 

— The console transients which schedule output for the 
console ($CC4X9 and $CC4XA) must be no greater 
than 256 bytes long. 

— Console output requests from $CC4CM transients are 
issued as follows: 

1 . The address of the message data area is passed in 
the field #KMCPL in the console work area. 

2. Control is transferred to $CC4X9. 
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In addition, if it is desired to have $CC4X9 transfer 
control to another transient when the console request 
is scheduled, then: 

1 . The value of bit #KMXXE in byte #KMSWT in 
the console work area must be set to 1 . 

Note: The console transients do not reset 
#KMXXE. 

2. The disk cylinder/sector of the transient to which 
control is to be transferred must be passed in field 
#KMXCT. 



Console Input: The keyboard is ready for input when the 
command processor has issued an input request to the con- 
sole. The keyboard is ready most of the time. Keys that 
are not supported are bypassed. 

All keyboard input is entered into the console buffer; the 
console buffer resides in the console work area. The con- 
sole buffer is 80 bytes long; any attempt to enter more 
than 80 bytes of input results in an error message being 
displayed on the 3277 screen. 

When program start or enter+ is pressed, signaling the end 
of input, the data is analyzed and classified one of three 
ways: 

1. Program request: Period is first input character. 

2. Reply to user task: Slash is second input character. 

3. Command : Neither of the above. 



Console Display on 3277: The 3277 screen has 12 lines of 
40 characters each. These 12 lines are divided into lines 
1-10 and lines 1 1-12. Lines 1-10 are used to display from 
5 to 10 messages from the console file. Lines 1 1 and 1 2 
are used to display some error messages and keyed input 
before it is entered into the system. Two logical functions 
display part of the file on the screen. 

The first is display backward (from a given point in the file). 
This function is in routines $CC4XB and $CC4XC. Three 
sectors are read, ending with the given point in the file. 
Then a screen buffer is built from messages in these three 
sectors. This function is called by command key 7 or by 
CM to display backward from the newest message. 

The second function is display forward (from a given point 
in the file). This function is in routines $CC4XF and 
$CC4XG. Again, three sectors are read, this time starting 
at the given point in the file. This function is called by 
command key 8 or by CM to display forward from a display 
command. 

Keyed input is displayed on lines 11 and 12 of the screen 
when the return key is pressed. This function is handled 
in $CC4X3. Disk buffers and screen buffers are in the 
console work area. 
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Command Processor Task 

The Command Processor Task ($CC4CP) controls the 
processing of all CCP input that is not specifically directed 
to a user program (Diagram 9M.0200). All teleprocessing 
devices that are not currently allocated to a user processing 
program are allocated to the Command Processors TCB. 
Therefore when the Communication Manager <$CC4CM) 
recognizes input from one of these devices, the terminal's 
TUB is queued onto the Command Processors TCBINQ 
chain by the Communications Task, the input is translated 
to upper case EBCDIC, and the Command Processor is 
posted that it has work to perform. The modules that 
perform all command processing consist of a small resident 
routine ($CC4CP) that enters a wait state when there is no 
input to be processed, and a number of transient routines 
that perform the command processing functions. These 
functions can be broken down into three parts: 

1. Initial input processing, including basic syntax 
checking and control routing. 

2. The processing of the input data (commands or 
program requests). 

3. Final processing, including the issuing of I/O 
and Freemaining of input data buffers as directed 
by the processing routines. 



The initial input processing occurs in both the resident 
Command Processor module ($CC4CP) and the first 
command processing transient ($CC4PC). Input 
is checked to ensure that it meets basic syntax require- 
ments (the input must be at least two characters long), 
the Terminal Unit Block is checked to see if the input is 
the result of a failed purge or stop-polling operation, 
and the system status flags in $CCCOM are checked to 
see if terminal commands are still allowed (not suspended 
or a Shutdown has not been requested). 

If the input is to be ignored, the module $CC4PF is 
invoked to issue a message to the terminal and, depending 
upon whether or not the terminal should be re-invited, 
the TP I/O interface routine ($CC4IS for system I/O) 
is invoked. 

If the input data is to be accepted, $CC4PC determines 
whether or not another control routing determination 
module is to be called or whether it can handle the control 
routing itself. If it can handle routing itself, $CC4PC 
calls the appropriate command processing routine. 
$CC4PC can route program requests, /Q and /NOQ 
commands, and /Fl LE commands. 

If the input requires further checking, control is passed 
to either the Terminal Command Routing Routine (SCC4PT) 
or to the Console Command Routing Routine ($CC4PK), 
depending on whether input is from a terminal or the 
console. These routines perform similar processing in 
that the input is checked to see if it is a valid command verb 
and if required input data exists. If all syntax criteria are 
met, control is passed to a specific command processing 
transient to handle the input. If the criteria are not met, an 
error message is issued by an error message transient and 
control is passed to the final command processing 
transient ($CC4PR) following the return to the resident 
routine ($CC4GP). 
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Command Processor Return Routine ($CC4PR) 

The Command Processor Return Routine ($CC4PR) 
interrogates the bit settings in the Command Processor 
Work Area ($CPWK) and takes the actions to be 
performed: 



1. 



Freemain the input buffer and post the communications 
task that the Freemain occurred. 

Write a message to the terminal from the message area 
in the Command Processor Work Area ($CPMSG). The 
message length is the field $CPLMG. 

Re-invite input from the terminal. 



Once these actions are performed the return routine exits 
via $CC4TR, to the Command Processor Mainline Routine 
which will determine whether there is additional input to 
be processed. If no input remains to be processed, the 
wait routine is entered. 



System Operator Commands (Diagram 9M.0210) 

The commands that are valid only if issued by the 
system operator are: 

• DISPLAY 

• VARY 



DISPLAY is used to exhibit several different types of 
CCP status information and is depicted on a chart 
separate from the remaining commands. 

All modules with module names beginning with $CC4EE 
(except $CC4EJ) are called to cause a specific output 
message to be sent to a terminal. 



Terminal Operator Commands (Diagram 9M.0220) 

The commands that are valid only if issued by a terminal 
operator are: 

SIGN ON (The module named $CC4YA is a no op 
routine as shipped to the user. Its purpose is to allow 
the user to perform sign on diagnostics by simply 
replacing $CC4YA with another module.) 

SIGN OFF 

NAME 

RELEASE 

RUN 

MSG 

Data Mode Escape 



• CANCEL 

• SUSPEND 

• RESUME 

• ASSIGN 

• TEST 

• SHUTDOWN 

• TRACE 

• ERP 

• ALLOCATE (Models 8, 10, and 12 only) 

A Message (MSG) command entered by the system 
operator causes a different transient module to be called 
by the command processor than a /MSG entered by a 
terminal operator. 



Program Request (Diagram 9M.0230) 

Program request processing is a two part process. The 
first part consists primarily of validating that the syntax 
of the request is correct. The second part is validating 
that the system can actually honor the program request. 

The modules that are concerned with the first part of 
request processing are $CC4R1, $CC4R2, and $CC4R3. 
The first module, $CC4R1, tests to insure that the request- 
ing terminal is in command mode and rejects the request 
if the terminal is not in a command mode. If the 
requesting terminal is the console, $CC4R1 insures that 
the console sub-TUB is currently available for a program 
request. If it is not available an error message is issued 
through the module $CC4EA and the request is rejected. 
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Once it is determined that the terminal is in the correct 
mode, the length of the requested program's name is 
checked. If the name is longer than six characters, an 
error message is issued. (It has already been determined 
in the initial module of command processing, $CC4PC, 
that the input length is at least two characters long.) 

The TAXPRM field to be passed to subsequent program 
request transients is set up and its content is affected 
by the following: 

— The status of the requesting terminal — queue, or no-queue. 

— The presence of input data. 

— The length of the program name portion of the input 
buffer. 

The routine then determines which module to call next. 
If the request is for an active, multiple requesting terminal 
support program, the routine $CC4RC is invoked to 
add the request to the program's input Terminal Unit 
Block queue. If the request is for a multiple requesting 
terminals support routine that is currently on the 
allocation input queue, control is routed to $CC4R6 to 
add the request to the queue for the already validated 
program request (the allocation input queue). If the 
program request is not one of the above, and is not for an 
active, never ending program that is non-MRTS, the second 
module of program request ($CC4R2) is called. 

$CC4R2 ensures, if the requesting terminal is in NOQ (no 
queue) status, that the Allocation Task is not currently 
busy and that an available user TCB exists. If these 
conditions are not met the system cannot honor the NOQ 
status of the terminal (an immediate entry into Allocation 
cannot be guaranteed) and the system must reject the 
request. If these conditions are met, the disk address 
of the Program Characteristics Table sector in which 
the requested program's entry exists is calculated from the 
PCT index in main storage, a disk read IOB is constructed, 
and the PCT sector is read into the second half of $CC4R2. 
(If a disk read error occurs during the input of the PCT 
in SCC4R2, $CC4R8 is invoked by $CC4R2 to write an 
error message to the system operator and to the terminal 
operator to inform both that a system error occurred.) 
The module then transfers control, specifying a one sector 
transient read, to $CC4R3 to complete the syntax 
check. 
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$CC4R3 scans the PCT sector for the PCT entry which 
matches the requested program's name. If an entry is not 
found, an error message is issued through $CC4EA and 
the request is rejected. If a PCT entry is found, the PCT 
data for that program is moved into the buffer addressed 
by the TUBs TPRECA filed. The PCT data is moved 
to immediately follow the input data (whose length is in 
TPEFFL). This move completes the syntax check of 
program request. The next module ($CC4R4) begins 
the determination as to whether or not the system can 
honor the program request. 

$CC4R4 ensures that all disk files specified by the PCT 
entry for the requested program will be available to the 
program. If the file will not be available, an error message 
is sent to the requesting terminal and the request is 
rejected. If all disk file requirements are met, control is 
transferred to the main storage requirements validation 
module, $CC4R7. $CC4R7 determines that enough main 
storage will be available for execution of the requested 
program. Storage requirements include the following: 

— If the program uses DFF, main storage must be 
available for the requested program, $CC4DF, and the 
output hold areas, unless they are already in storage. 
($CC4DF will always be in storage with remap.) 

— If the program is a never ending program it must be 
determined that main storage will be available on a 
boundary of the user program area. In addition, if the 
program will also use DFF, main storage must be 
available on the other boundary of the user program 
area for the DFF module and the output hold area. 
(Output hold areas only if remap is specified.) 

It may be necessary in this module, if the requesting terminal 
is unwilling to queue its request, to purge modules from 
the user program area to ensure that main storage will be 
available. When this is done the programs that are cur- 
rently in main storage but not in use (as shown by 
inactive CDEs) are purged by Freemaining their storage 
and marking the CDEs as available. 

It may also be necessary to purge the DFF module and the 
output hold areas from main storage if they are not cur- 
rently in use to determine if sufficient space will be 
available at execution time. (The DFF module will 
never be purged for remap.) When this is done, the 
boundaries of the DFF module in $CCCOM (#DFBEG 
and #DFEND) are reset to their null values, the DFF 
load address (#DFLOD) is cleared to indicate that the 
module is not in main storage, and the DFF load 
parameter list in $CCCOM is re-initialized. 
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Once the main storage availability tests are complete, the 
next module of program request ($CC4R5) is invoked to 
determine the availability of any unit record and tele- 
processing devices required by the program. The unit 
record and terminal requirements are checked to see if 
the needed devices are currently available and not en- 
cumbered by a never ending program (or in the case of 
a unit record device on a DPF system, that the device is 
allocated to the CCP program level). 

Each required terminal that is currently online and 
in initial mode (capable of commanding the CCP and 
being polled) will have a stop polling operation issued 
to it. If the stop is successful, the terminal is available 
for Allocation. If the stop is unsuccessful, all terminals 
that were previously stopped for this request validation are 
restarted, and the request is rejected with an appropriate 
error message issued by $CC4EB. The request is also 
rejected if any required terminal is on a connected 
switched line. 

The next module, $CC4R6, is the final program request 
module. It is invoked directly from $CC4R1 to add a 
MRTS request to one already queued for Allocation or 
from $CC4R5 if all aspects of the request have been val- 
idated. $CC4R6 queues the request onto the input 
queue to Allocation (the field ©TUPST in $CCCOM) and, 
if the Allocation Task can be started (a free user task 
control block exists and allocation is not currently 
busy), sets up a TCB to address the resident Allocation 
Control Routine ($CC4AM) and makes the TCB 
dispatchable. 



Allocation Task 

Allocation binds all resources required for the execution 
of a requested program to a user Task Control Block, loads 
the user program (and the DFF module if needed), and 
gives control to the user program (Diagram 9M.0240). 

The first module of Allocation, is the Resident Mainline 
Routine $CC4AM. One function of this routine is to 
wait to be dispatched to begin the allocation process or to 
wait for resources that are currently in use by another user 
task. The other function of the resident routine is to 
exit to the Dispatcher to cause control to be given to the 
user program once the allocation process has completed. 
All other Allocation processes are performed by transient 
modules, the first of which is called by the resident 
routine. 



The first transient is $CC4A1. Its function is to determine, 
the first time it is entered to begin allocation for a task, 
what resources are required. This is done by inspecting 
the programs PCT entry in the input hold buffer addressed 
by the TPRECA field of the Terminal Unit Block addressed 
by the $CCCOM field @TUPST. After resource requirements 
are determined, $CC4A1 sets control bits in the allocation 
work area to indicate the routing to specific allocation 
routines to bind the required resources. 

Allocation is a two-pass process. If a required resource is 
not available during the first pass, the resource is marked 
as needed and the specific Allocation transient passes 
control to the next module of the process. Once the last 
module has finished, it determines whether or not all 
resources were allocated and, if they were not, exits 
(via $CC4TR) to the Allocation Mainline Routine to wait 
for Termination or the release routines to post Allocation 
that all required resources are available. 

The second time the Allocation control transient is 
invoked it inspects the Allocation post mask to determine 
where control should first be routed. If no Allocation 
resources were bound during the first pass, the control 
flow for the second pass will be the same as it was for 
the first pass. 

The first resource binding modules to get control are 
those which allocate the main storage, load the program 
into main storage, build the CDE and TCB from infor- 
mation contained in the PCT (relative to the attributes of 
the program) and, if needed, load and initialize the DFF 
module $CC4DF. 

The first main storage allocation transient is $CC4CR. 
This module allocates the storage needed for DFF and/or 
the output hold areas. This module loads $CC4DF for 
non-remap operations. It finds an available CDE to use 
for the user program and passes control to the second 
main storage allocation module, $CC4CS. $CC4CS allocates 
the user program main storage area and passes control to 
$CC4CT. $CC4CT first loads the user program into main 
storage using the standard interface to DSM load (a RIB 
of hex 48 or hex 68, depending upon whether the program 

| is on the system pack or the program pack), then finishes 
the initialization of the TCB and CDE and, if the DFF 

| module was loaded with this request, initializes it. If 
DFF is used by the user program the next routine to get 
control is the DFF Initialization Module ($CC4DA) for 
the user program's appended storage. 
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The next processing done during the Allocation process 
is disk file allocation. The module $CC4AD allocates all 
required disk files, setting allocation and usage indications 
in the CCP short DTFs and turning on the disk file's 
allocated bit in the TCB. 

$CC4TB allocates all required terminals and implicitly 
required switched lines to the TCB. Each line and terminal 
used by the task has the address of the TCB put into it. 
In addition, the terminal attributes will be set for each 
terminal including, if necessary, the attributes of the 
requesting terminal if it is also one of the program selected 
(required) terminals. 

The final module for allocation of a specific resource is 
$CC4UR, which allocates the printer, MFCU, 3741, and/or 
the 1442 to the user task. This process includes the setting 
of bits in the TCB indicating that the device is allocated 
and that the device is unavailable to any other task or, in a 
DPF system, to the other program level. 

Following successful allocation of all resources the final 
Allocation transient, $CC4A2, is invoked by whichever 
module was the last one to run. $CC4A2 finishes the 
allocation process, including the allocation of the 
requesting terminal to the TCB and putting that terminal 
on the tasks input queue. If there is more work for 
Allocation (the requesting terminal's TUBPST field is non- 
zero, indicating additional terminals are queued for 
allocation), $CC4A2 scans the user Task Control Blocks 
to see if there is another TCB available for use. If there is, 
the TCB is set up to run (in a manner similar to that of the 
final module of Program Request) and the TCB is made 
dispatchable. This causes Allocation to run again for the 
next request as soon as all active user tasks, including the 
one just allocated, are waiting. $CC4A2 then returns, via 
$CC4TR, to the Allocation Mainline module to give control 
to the user program. 



Termination 

User program termination is a two step process. The 
first step is that of communicating to the Termination 
Task routines that a user task is to be terminated. The 
second step is the termination of that task, which includes 
the freeing of all encumbered resources, clearing all 
indications that the task existed, possibly getting the 
allocation task started, or terminating CCP (Diagram 
9M.0250). 



Step One of Termination 

The first step is done in the Termination Interface 
Routine ($CC4TI). This module has three entry points 
to allow flexibility to various parts of the system. One 
entry point allows the user program to terminate itself 
by issuing an EOJ RIB. The RIB call is intercepted by the 
General Entry Intercept Routine ($CC4IG) and, once the 
hex 84 value is recognized by it, control is routed to the 
termination interface. The interface marks the task for 
normal termination and makes the Termination Task 
dispatchable (if the Termination Task is not already busy 
- if it is busy, $CC4TD finds the TCB and terminates it 
without further interface requirements). 

Another entry point of the termination interface allows a 
system routine operating under the control of the user 
TCB to terminate the task. This might be done by the 
TP I/O Interface Routine ($CC4II) when the user makes 
an error in requesting an I/O operation. $CC4II calls the 
termination interface, passing a completion code to it 
to be put into the TCB prior to the interface routine 
relinquishing control. 

The third entry point is used when some task other than 
the user task is running and has determined that the user 
task must be terminated. This is done by the Communi- 
cation Task when a user related error occurs and the task 
can no longer be allowed to execute. The interface is 
entered from the Communication Task and marks the 
TCB (of the user) for termination, readies the Termination 
Task, and returns control to the Communication Task to 
allow it to continue processing on its current entry. 



Step Two of Termination 

The second step of termination is that of the Termination 
Task itself. Termination consists of a small resident 
portion and a series of processing transients. The Resident 
Termination Routine ($CC4TM) is used to wait for work 
and, when the Termination Task is made dispatchable, 
invokes the first Termination transient ($CC4TD). 
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• Free all switched line resources 

• Send an output message to 
the terminal and re-invite if 
necessary 



Areas accessed 



$CCCOM, TCB, DTF, SOB, SDF 
Allocation work area 
Termination work area 
System communication area 



$CC4TM Termination resident routine 

$CC4TW Termination storage dump transient 

$CC4TK Termination console message transient 

$CC4LT Termination close interface routine 

$CC401 Open/close routing module 

$CC4L2 Close printer DTFs 

$CC4L3 Close MFCU and or 1442 files 

$CC4L4 Close all disk files 

$CC40R Open/close return transient 

$CC4TF Termination disk + UR deallocation routine 

$CC4TN Terminal deallocation stop/purge routine 

$CC4TP Terminal termination restart #1 

$CC4TY Terminal deallocation restart routine 

$CC4EJ End of job transient 

$CC5SH Shutdown transient 

$CC4TR Transient return routine 

$CC4TD Termination control routine 
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Upon initial entry, the first Termination transient scans 
the user Task Control Blocks to find one that has been 
marked by the termination interface to be terminated. 
Once a TCB is found, the processing begins. If the task is 
terminating abnormally, the Termination Dump Routine 
($CC4TW) is invoked. $CC4TW dumps all of main storage 
to disk (if space is available in the dump area in $CCPFI LE) 
and also dequeues any non-system console I/O that is 
currently queued for the terminating task. After the main 
storage dump to disk, $CC4TW calls $CC4TK, which will 
write a message to the system operator telling him the 
task identification, the program name, and the circumstances 
of the termination (the task completion code). Control is 
then returned to the Termination control transient to 
continue the termination processes. 

The control routine marks the task's CDE that it is no 
longer in use by an active TCB and, if the Allocation Task 
is waiting for main storage, posts the Allocation Task that 
main storage is available. Following this the control routine 
invokes the File De-allocation Routine ($CC4LT) if there 
are any disk or unit record files allocated to the task. If 
there are not, the Terminal/Line De-allocation Routine 
($CC4TN) is invoked. Once these routines return, the 
control routine frees any DFF output hold area encum- 
bered by the task and posts Its availability to any task 
that may be waiting for it. Following this, the TCB is 
re-initialized and the control routine returns to its ini- 
tial entry logic to see if there are any more TCBs to be 
terminated. If there are none, the control routine exits 
in one of two ways. 

If there is a Cancel or Shutdown of CCP pending as 
indicated by flag bits in $CCCOM, control is passed (via 
$CC4TX) to the CCP final Termination Routine ($CC4EJ). 
If there is no Shutdown or Cancel pending, or there is a 
Shutdown pending but there are more programs to be run, 
control is returned to the Termination main routine (via 
$CC4TR) to wait for more work for the Termination Task. 

The file termination routines function in two parts. The 
first part, initiated by $CC4LT, closes the disk and unit 
record files and writes out any buffers pending I/O. The 
second part de-allocates the files from the task, posting 
the Allocation Task if any of the files are needed by it. 
The file de-allocation routine passes control to the Terminal/ 
Line De-allocation Routine ($CC4TN) when the file pro- 
cessing is completed. 



The Terminal/Line De-allocation Routines are: 

- $CC4TN - Line De-allocation and Terminal Stop 
Polling/Purge Routine. 

- $CC4TP - First Terminal Restart Routine. 

- $CC4TY - Second Terminal Restart and Terminal 
De-allocation Routine. 

SCC4TN de-allocates all switched lines allocated to the 
terminating task that have no terminals currently allocated 
to them. This includes the resetting of the LCBTCB 
address field to zero, disconnecting the line and posting 
allocation if the line is needed. The routine then, for 
each terminal allocated to the terminating task, ensures that 
all TP I/O is quiesced on the device, frees any TP buffer 
associated with each terminal, and posts the Communications 
Task that the Freemain has occurred. Following the stop 
polling/purge for each terminal, the next terminal termina- 
tion routine ($CC4TP) is invoked. 

$CC4TP examines the status and mode of each terminal 
being de-allocated from the terminating task and sets up 
parameter bit settings in TAXPRM to be interrogated by 
$CC4TY. 

Each terminal to be de-allocated requires processing by 
both restart routines. Depending upon the TAXPRM 
parameter bit settings, $CC4TY performs the following: 

- If the terminal is on a switched line and disconnected 
during user processing (and did not reconnect), $CC4TY 
signs off the terminal and marks it offline. This includes, 
if the terminal was a requesting terminal, clearing any 
file specifications, resetting the terminal name in the 
Terminal Name Table, and informing the system 
operator that the terminal is now offline. 

- If the terminal is still online and was a requesting 
terminal (or a program selected terminal that is command 
capable), $CC4TY re-invites input from it to allow it to 
command CCP. 

- If the terminal was a requesting terminal and the 
program wanted an ended message sent to it, $CC4TY 
issues the message. 

- $CC4TY de-allocates the terminal from the terminating 
tasks TCB and allocates it to the Command Processor 
TCB, making it available for subsequent allocation. 
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After the two terminal restart modules have completed 
processing, control is returned, via $CC4TX, to the Termin- 
ation Control Routine ($CC4TD). If the control routine 
determines that the system is to be shut down, control is 
passed to $CC4EJ after all tasks are terminated. This 
routine quiesces all pending terminal I/O and then loads the 
Shutdown module, $CC5SH. After the Shutdown module 
is loaded into the user program area, it is relocated relative 
to certain locations within the resident CCP module ($CC4). 
Control is then given to it to complete the Shutdown pro- 
cessing and to return to DSM via an end of job RIB. 



BASE SCP R EPLACEMENTS 



Pseudo Open and Pseudo Allocate 

Pseudo open is the handling of the CCP user program 
requests to allocate and open the disk and/or the unit 
record files that have already been opened and allocated 
at startup by the standard DSM allocate and open facilities. 

When a user task under CCP requests that a file be allocated 
or opened, the pseudo open routines perform the allocation 
and/or pseudo open (Diagrams 9M.0260 and 9M.0270). 

Pseudo open consists of an open/close/allocate resident 
module ($CC40C) and a group of transients. The main 
transient is the Open/Close/Allocate Initial Transient 
Loader ($CC40P). This transient actually performs the 



file or device allocation if allocation has been requested. 
If open is requested this transient passes control to other 
transients which format the DTFs and build the lOBs for 
the file being opened. It then validates them against the 
DTFs that were opened at startup. 

Special transients are called when the user task is a 
FORTRAN program. FORTRAN files use the pseudo tape 
access method even though disk files are being accessed. 
Two special transients are called: $CC40H on a pseudo 
FORTRAN open and $CC40T on a pseudo tape access 
method open. In both of these cases, control is returned to 
the resident pseudo open module ($CC40C) when the open 
has been completed. 

On successful completion of allocation or open $CC40C 
returns control to the calling task via the Dispatcher 
($CC4DP). If the allocate or open was unsuccessful, the 
resident module passes control to the Termination 
Interface Routine ($CC4TI), which causes termination of 
the user task. 

Note: Unlike DSM, CCP open (and close) requires only 
one pass of all modules to process all DTFs to be opened 
(or closed). 

If an open request is received for a sort work file, a multi- 
volume file extent table is created from the DTF and con- 
trol is returned to resident open module ($CC40C). 

When an allocate request is received from a sort program 
and symbolic files are being used, the symbolic files are 
resolved at this time instead of at open time. 
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of request 
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and special file 
DTFs 
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allocate request 
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or close request 



• If a FORTRAN 
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Note: See IBM System/3 Disk Systems Data Management 

and Input/Output Supervisor Logic Manual, SY2 1 -05 1 2 . 
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Determine if open/close was 
successful 



Open was not successful 



• Open was successful 




To $CC40C Chart PI 
routine to handle a 
successful open OCRET4 





Diagram 9M.0270 (Part 3 of 3). Control Flow of Pseudo Open 



Pseudo Close 

Pseudo close (Diagram 9M.0280) handles CCP user task 
requests to close any disk and unit record files. 

As no file is DSM-closed by CCP until Shutdown, a pseudo 
close is necessary to complete an individual program's 
processing of the files that it has used. 

When CCP user tasks request a close, pseudo close handles 
the user's request and indicates that the files are no longer 
in use. It is, however, only at termination of CCP that the 
files are actually de-allocated from the program level. 

Pseudo close consists of a resident module ($CC40C, the 
same module used by open and allocate) and a group of 
transients. The primary purpose of $CC40C is to load the 
transient loader ($CC40P, the same module used for 
open and allocate). This transient passes control to other 
pseudo close transients to close the files, according to the 
types of files the user task is closing. 



When a sort program is closing the sort work f le, control 
is returned immediately to the resident module since this 
is a special case DTF. 

No special transients are called for FORTRAN user tasks 
as in pseudo close, however, FORTRAN pseudo tape 
access method close routines are in the Close Printer File 
Transient ($CC4L2). 

On a successful close the resident module ($CC40C) 
returns control to the user task via the Dispatcher 
($CC4DP). If close was unsuccessful, the resident module 
($CC40C) passes control to the Termination Interface 
Routine to terminate the user task. 

Some of the pseudo close transients are used by the 
Termination Task when a user task goes to end of job or 
has an abnormal termination. 
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SCC404 Open disk files 9P.7120 
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called by termination 
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System communications area 



Note: See IBM System/3 Disk Systems Data Management 
and Input/Output Supervisor Logic Manual 
SY21-0512. 



CCP End of Job 

CCP end of job (Diagram 9M.0290) is a group of modules 
that control the termination of CCP and bring it to end of 
job. 

When a Shutdown command is issued, the user tasks that 
are in operation at the time the command was issued are 
permitted to complete their operations. However, when 
CCP accepts the command, it prevents any further program 
requests or terminal type commands except those issued 
in a command interrupt mode. 



When a Cancel CCP command is issued, all user tasks are 
immediately stopped and CCP is terminated via the normal 
Shutdown processing. 

When either the Shutdown or Cancel CCP command is 
issued, the Termination Task is dispatched and the 
Terminator Resident Routine ($CC4TM) calls the 
Termination Control Transient ($CC4TD). The Termina- 
tion Control Transient calls the End of Job Transient 
($CC4EJ). This transient finds the Shutdown module 
$CC5SH and loads it into the user program area and then 
transfers control to it. $CC5SH closes all files, resets the 
system to normal running status, and calls DSM end of job. 
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Halt/Sysiog 

One of the functions of General Entry Intercept ($CC4IG) 
is to analyze all halt/syslog requests issued during the 
Operational Stage of CCP. Depending on the results of 
the analysis, one of the following actions will be taken: 

» If the halt/syslog request came from the non-CCP 
program level, the request is passed to DSM for normal 
handling. 

• If the halt/syslog request came from the CCP level, 
the proper CCP halt/syslog transient is called to handle 
the request. 

- If the RIBisX'8F'(RPG II halt), the transient 
$CC4HF is called. 

- If the RIB is X'85' or X'C5' (halt/syslog) and the 
request is not from the Communications Manager, 
the transient CC4H1 is called. 

- If the RIB is X'85' or X'C5' (halt/syslog) and the 
request is from the Communications Manager, the 
transient: $CC4H2 is called. 

CCP controls all halt/syslog requests from the CCP program 
level; DSM controls all halt/syslog requests from the non-CCP 
program level. All the CCP halt/syslog transients consider 
the log device for the CCP program level at all times to be 
the console. 

The various classes of CCP halt/syslog requests and the 
action taken by CCP on each are described in Diagram 
9M.0295. Diagram 9M.0300 is an overview of CCP 
halt/syslog logic flow. 



Requestor 


Type of halt 


CCP action 


User task 


None 


Log the request on 
the console. 


User task 


Unit record 

hardware 

error 


Log the request on 
the console and dis- 
play the halt. 


User task 


Non-unit 
record 
hardware 
error 


Log the request on 
the console and can- 
cel the user program. 


System task 


None 


Log the request on 
the console. 


System task 


MLMP IOCS 
halt (infor- 
mational) 


Take automatic 
option to the halt 
and return 


System task 


Non-MLMP 
IOCS halt 
(informational) 


Cancel CCP-lssue 
U- halt exit to 
CPHALT via branch 
to 0000 



Diagram 9M.0295. CCP Halt/Syslog Actions 
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user task CC4TI2 (Chart PL) 
via$CC4IG 
(Chart OR) 



Diagram 9M.0300. Halt Syslog Flow 



USER INTERFACE TO CCP 



Basic Assembler Language Program Interface 

The Basic Assembler programmer is responsible for 
understanding the user requirements and the CCP system 
actions (Diagram 9M.0340). 



After ensuring that the required information has been 
specified for a communications operation and having set 
the address of the parameter list in index register 2, the 
Assembler programmer must branch to the DSM supervisor's 
General Entry with an in-line RIB and sub-RIB. Upon 
return of control to the instruction immediately following 
his branch, the programmer must examine information 
returned from the operation. 



The Assembler programmer must define one or more 
parameter lists in the program to specify communications 
operations to be performed, and must also define one or 
more record areas in which a symbolic terminal name and 
input/output data is to be contained. 



Because the Assembler language can perform all the user 
functions of the Standard Communications Interface, 
such as RPG II SUBR93, no Communications Service Sub- 
routine is supplied with CCP to perform any of those 
functions. All user operations are performed in the source 
program module itself. 
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Diagram 9M.0340. Assembler TP I/O Operation Flow (without DFF) 

However, as an aid to the Assembler programmer, several 
macros are supplied by CCP for the generation of the 
appropriate code in the source program. Each of the 
supplied macro-definitions is distributed as a source 
library member to be incorporated in the source library 
of the user's program-preparation pack. 

These macros constitute the only special facilities 
provided for the Assembler user. 

Six macros are provided for the Assembler user's program- 
ming. Four of these macros generate equates for values of 
significance to communications programming under CCP: 

1. $NCOWI - Generates common equates for registers 
and certain DSM supervisor values. 

2. $NPLO - Generates equates for the offset of each 
field in a communications parameter list. 

3. $NOPV — Generates equates for the value of each 
operation code and operation modifier. 

4. $NRTV - Generates equates for the value of each 
return code that is issued by CCP. 

A fifth macro, $NPL, is provided for the generation of a 
parameter list with the initial value of each field specifiable 
by the programmer (9M.0350). 



The sixth macro, $NCIO, is provided for the request of a 
communications operation (9M.0360). This macro permits 
the programmer to specify, in a macro instruction: 

• The address of his parameter list, to be set in index 
register 2 if not already there. 

• The operation code and modifiers to be set for the 
operation (if required) or the location at which they 
may be found. 

• The output length or attributes identifier to be set for 
the operation (if required) or the location at which 
they may be found. 

• The maximum input length to be set for the operation 
(if required) or the location at which it may be found. 

• The address of the record area to be set for the operation 
(if required) or the location at which it may be found. 

• The symbolic terminal name to be set for the operation 
(if required) or the location in the machine at which it 
may be found. 

• Whether to set the fields specified and then branch to 
General Entry to perform the operation, or simply to 
set the specified fields without branching to General 
Entry (without requesting the operation be performed 
at this time). 
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Diagram 9M.0345. $CC4H4 (Model 4 only) Halt Conversion and Syslog Message Transient 
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AL2 (0) WKB - Internal work field 

AL2 (0) WKC - Internal work field 



OUL - Output length 

EFL - Effective input length (on return only) 

ATI - Attributes identifier 
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SOURCE 



Name 



Operation 



$NCIO 



Operand 



PLIST-addrx, 

OP-valuex, 

OUTLEN-addrx 

ATTRID-addrx, 

INLEN-valuex 

RECA-addrx, 

TNAME-chars, 

tyes 

} no 



EXEC- 



EXECUTION 




1 Sets the address of the parameter 
list in XR2 

Sets the operation code/modifier 
Sets the output data length 
Sets the attribute identifier 
Sets the maximum input length 

6 Sets the record area address 

7 Sets the terminal name im^m 

8 Passes control to the TP I/O 
interface, to perform the opera 
tion, via general en tryl 




RPG II Program Interface 

Of the four RPG II subroutines provided by CCP, two of 
them perform I/O (SUBR92 and SUBR91 ), and the other 
two provide service functions to the RPG II program 
(SUBR90andSUBR93). 

SUBR93 (Diagram 9P.6330) is used with a SPECIAL DTF. 
It requires no parameters. The second time the subroutine 
is called (either with the same file or a second file) it will 
be marked as being at end of file. The record sire may be 
any length. A File Description Extension Specification is 
not required or used by this routine. 

SUBR90 (9P.6350) is used to move fields into a large field 
or to move data from a large field or array to smaller 
fields. This subroutine is used with EXIT/RLABL. It 
should be used to build up a record area for CCP, or to 
break down a record area into individual fields. Fields are 
moved continuously from left to right (high order to low 
order) to (or from) the record area from (or to) the individual 
fields A diagnostic is provided (termination code 20) in 
case the record area is too small to contain all the fields to 
be moved into it. However, unpredictable results could 
occur if the length of all the fields is too small to contain 
all the data in a record area. 



SUBR91 is used with EXIT/RLABL and requires only two 
RLABLs, one to designate the parameter array and the 
other for the record area. The record area used with this 
routine has the same structure as that defined for the 
other language interfaces: that is, terminal name in the 
first six (leftmost) positions followed by the data. A 
parameter array is used with this routine. The array has 
four 6-position elements. The structure of the array is 
given in the RPG II Parameter Array in Appendix B. The 
information in the array is converted to the form expected 
by CCP and placed in a parameter list internal to this 
routine. Diagrams 9M.0370 and 9M.0380 show the logic 
and data flow for the routine. The functional diagram for 
SUBR91 is given in 9P.6340. 

SUBR92 (9P.6320) is used only with RPG II SPECIAL 
files to perform TP I/O via CCP. The subroutine is 
link-edited into the user RPG II program as part of the 
RPG II compilation. This subroutine uses a parameter array, 
as described in the RPG II Parameter Array in Appendix B. 
The array is associated with the SPECIAL file by means 
of the RPG II File Description Extension Specification. 
For all input operations, information about the operation 
is derived from the parameter array. For an output file 
operation, the operation information is derived from the 
output record area. The information for an operation is 
decoded to internal form and placed in a parameter list 
contained within SUBR92. 
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The one exception to the placement of all information for 
an output operation in the record area is the invite input, 
in which case the expected input length is taken from the 
parameter array. In this case, positions 5 through 8 are 
not used in the output record area. 

For the put part of a put-then-get operation the output 
record area is saved in the physical input area, the output data 
length of the operation is saved in the block length area in 
the DTF, and bit of the second attribute byte in the DTF 
is set on to indicate this situation has occurred. The very 
next input operation, regardless of the op code in the 
parameter array, will be forced to the get part of the 
put-then-get operation. The symbolic terminal name from 
the put part is used; the name in the parameter array is 
ignored. The put-then-get is actually performed on the 
get part. 

An input operation for SUBR92 is one which comes 
through RPG IPCR (READ op code, primary, secondary 
file). An output operation is one which comes to SUBR92 
through RPG OPCR (EXCPT op code, 1P, detail, total 
output). 

For an output operation with blanks provided by the user 
for a terminal name, the symbolic terminal name of the 
requesting terminal is placed in the parameter array after 
the operation. For all input operations except the get 
part of a put-then-get operation, the symbolic terminal 
name of the terminal for which the operation just completed 
is placed in the parameter array. 

Indicator 91 is set on for any error return code, and indica- 
tor 92 is set on for any exception return code. They are 
never set off by SUBR92. 

For operation codes S, H S, W, H W, two separate operations 
are sent through CCP. 

The data area definition of the RPG II SPECIAL DTF is 
given in IBM System/3 Disk Systems RPG II Logic Manual, 
LY21 -0501 . The second attribute byte of the SPECIAL 
DTF after RPG II open of files has the following meaning: 

Bit Value Meaning 

1 Put pending for put-then-get 

1 1 Allocated file 



1 



File opened 



For the get attributes operation through both SUBR92 and 
SUBR91, the information which is normally returned in 
the parameter list is not available to the RPG II program. 



COBOL Program Interface (Models 8, 10, and 12 Only) 

The COBOL user program requests a communication oper- 
ation by a CALL to the communications service subroutine 
CCPCIO, which is link-edited with the user program (Dia- 
gram 9M.0420). As arguments of the CALL, the user pro- 
gram passes to CCPCIO the address of a communications 
parameter list, defined in the COBOL working-storage sec- 
tion, and the address of a record area, also defined in the 
working-storage section. The parameter list must already 
contain the operation code and modifier for the operation 
to be performed, and whichever data length value is required 
by that operation. The record area must already contain a 
symbolic terminal name, if the operation requires one, a 
display format name if the operation is a DFF put, and any 
output data if required. 

The subroutine CCPCIO first completes the user's parameter 
list by setting the user-passed record area address into the 
fifth element; then, after setting the address of the user's 
parameter list in index register 2, it performs a branch to 
General Entry, with a RIB of X'01' followed by a sub-RIB 
of X'01', signifying a communications operation request. 

The branch is intercepted by CCP's General Entry Intercept 
($CC4IG), which recognizes the RIB as specifying a CCP 
function request, and the sub-RIB as indicating that a user 
program communications operation is being requested. 

Control is passed by $CC4IG to $CC4II, CCP's communica- 
tions I/O interface routine, to carry out the user program's 
request. $CC4I I continues to run under the TCB of the 
user program's task. $CC4II invokes the Communications 
Management Task where appropriate (as described earlier) 
and the user task waits for completion of the requested 
event. 

When the operation requested is complete (note that invite 
input and put-no-wait operations are complete as soon as 
the request has been accepted by the Communications 
Management Task), the user task, which had waited within 
$CC4II, is again made dispatchable. $CC4II returns control 
to the subroutine CCPCIO. At this point the return code 
has already been set in the user's parameter list and, depend- 
ing on the operation, the third element of the parameter 
list (effective input length on an input operation, count of 
outstanding invites on a release operation) has been set as 
well. Further, if the symbolic terminal name in the record 
area is to be set by the current operation, it too has already 
been set. 

The subroutine CCPCIO has nothing further to do at this 
time than return control to the COBOL mainline program 
at the point from which the subroutine was invoked. 
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Diagram 9M.0420. COBOL User Interface 
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FORTRAN Program Interface (Models 8, 10, and 12 Only) 

The FORTRAN user program requests a communications 
operation by a CALL to the communications service 
subroutine CCPFIO, which is link-edited with the user 
program (Diagram 9M.0430). As arguments of the CALL 
the user program passes to CCPFIO the address of an 
INTEGER*2 array which is the communications parameter 
list, and the address of another INTEGER*2 array which is 
the record area. 

The parameter list must already contain the operation code 
and modifier for the operation to be performed, the output 
data length if the operation is a put, and must contain in 
the fourth element (for any operation) the number of 
elements in the record area array. 

Because the CCP communications I/O interface does not 
use READ/WRITE and FORMAT statements, data in the 
record area array must be, for output, already edited into 
the form in which it will be sent to the terminal, and will, 
upon the completion of input operations, contain the raw 
data sent from the terminal. To facilitate the editing of 
data via the FORTRAN-supplied Commercial Subroutines, 
the data in the record area is always treated by CCPFIO as 
being carried one character per array element - that is, 
one character per two bytes. 

Because the CCP communications routines do not deal 
with data in this format, the subroutine CCPFIO, before 
passing on the user's request to the CCP control program, 
packs the data in the record area to one character per byte 
(standard) format. CCPFIO also sets the address of the 
record area array in the fifth element of the user's parameter 
list, and sets the address of the user's parameter list in index 
register 2. 



CCPFIO then branches to General Entry with a RIB of 
X'OT followed by a sub-RIB of X'00', signifying a 
communications operation request. 

The branch is intercepted by CCP's General Entry Intercept 
($CC4IG), which recognizes the RIB as specifying a CCP 
function request, and the sub-RIB as indicating that a user 
program communications operation is being requested. 

Control is passed by $CC4IG to $CC4II, CCP's communica- 
tions I/O interface routine, to carry out the user program's 
request. $CC4II continues to run under the TCB of the 
user program's task. $CC4II invokes the Communications 
Management Task where appropriate (as described earlier) 
and the user task waits for completion of the required 
event. 

When the operation requested is complete (note that invite 
input and put-nowait operations are complete as soon as 
the request has been accepted by the Communications 
Management Task), the user task, which had waited within 
$CC4II, is again made dispatchable. $CC4II returns control 
to the subroutine CCPFIO. At this point the return code 
has already been set in the user's parameter list and, depend- 
ing on the operation, the third element of the parameter 
list (effective input length on an input operation, count of 
outstanding invites on a Release operation) has been set 
as well. Further, if the symbolic terminal name is to be 
set by the current operation, it too has already been set. 

When the subroutine CCPFIO receives the return of control 
from $CC4II, the user's record area array is still packed. 
CCPFIO unpacks the record area (reverting the form to one 
character per two bytes), then returns control to the 
FORTRAN mainline program at the point from which the 
subroutine was invoked. 
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CCP EXECUTION TIMELINES 



Accept Timeline 

Diagram 9M.0440 shows the flow of control during an 
accept input operation when data is ready to satisfy the 
request. 

The flow begins with the user program issuing the accept 
operation. This causes a branch to real location 4 that 
causes $CC4IG to gain control. RIB 01 with sub-RIB 00 
indicates that the request should be routed to the user 
I/O interface module, $CC4II. 



$CC4II determines that there is data to satisfy the accept 
and that there is no need to wait or ask for further 
functional assistance. Therefore, all that remains is to 
get control back to the caller with the data record. 

Since $CC4II does not know where the caller is, as the caller 
was similarly unaware of $CC4ll's location, return must be 
via the dispatcher, $CC4DP. $CC4IG and $CC4DP must save 
necessary user information. The caller's environment is thus 
restored and he continues processing knowing only that the 
data he expected was received 1 . 
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Diagram 9M.0440. Control Flow of Accept Input Operation 
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Get Timeline 

Accept and get have both similarities and differences as 
they appear to a user. There are also internal similarities 
and differences. The similarity the user sees is that follow- 
ing the get statement the user knows that he has data. The 
basic internal difference is associated with the multiple- 
requesting-terminal (MRT) program in that the accept 
can cause a get to actually receive data prior to the 
issuance of the request. 

Diagram 9M.0450 shows the flow of control through a 
typical get operation. Assume that the user program wants 
to obtain a transaction from the operator at the multi-point 
terminal. 

Again, the sequence begins with a branch to location 4, 
RIB of 01, sub-RIB of 00, intercepted and routed by 
$CC4IG to $CC4II (II). Here the internal similarity between 
accept and get ends. II needs to acquire the data for the 
user. II informs the Communication Manager ($CC4CM) 
of this need via a post operation. By calling $CC4PS (PS), 
$CC4CM (CM) can be made active. Parameter passing is 
via internal conventions. 

PS does not cause a higher priority task to immediately 
gain control; it returns to its caller. After II receives 
control back from PS, it has nothing more to do until CM 
can obtain the data requested. II must now relinquish 
control to CM. This is accomplished by calling wait 
($CC4WT). 

Wait gives control to the dispatcher (DP) who will switch 
control to CM. DP ensures that the environment of the 
ceding task is preserved and that the newly-activated task's 
environment is properly reinstated. II, running as a sub- 
routine of this user task, has placed that user task in a 
wait state and CM is now the active task. 



CM is now aware of the get request and takes the proper 
actions to remember what to do with the data when it 
subsequently arrives. Important too is that polling for that 
terminal must be resumed (it was terminated after the 
preceding operation). Having done all it can for the moment, 
CM will wait for it to resume polling. By going to wait, then, 
assuming no other tasks are active, the dispatcher will enter 
its system wait loop. 

Finally, the terminal causes an interrupt which is the positive 
response to the poll with receipt of the awaited data. The 
appropriate I/O interrupt handler is the first to gain 
control (not shown in Diagram 9M.0450). The DSM 
interrupt handlers pass control to one of the three possible 
intercept routines: $CC4IB, $CC4IM, or $CC4IC. Assuming 
a 3270 terminal, it would be $CC4IB (IB). IB's function is 
primarily that of interfacing with BSC lOCS's trace on the 
one hand and evoking $CC4IH (IH) on the other. CM is 
posted, not by calling PS, but through a special (dispatcher) 
flag setting; this peculiarity of not using a formal post, (PS) 
occurs because it is difficult for PS to ensure that he is not 
the one who happened to already be in control when the 
interrupt occurred. 

When the TP interrupt handler concludes processing, the 
reset interrupt level passes control to the Dispatcher. DP 
finds CM in a ready state and directs control to him. CM's 
op end analysis would find the appropriate user task and 
call PS to make that user task ready. Having nothing else to 
do, CM would now exit via WT which would cause the Dis- 
patcher to look for active tasks. Eventually, if not immed- 
iately, the user task enabled by CM would regain control. 
The resume point is in II where the wait for the get was 
done. II completes the get by going to DP, who finally re- 
sumes the user at a point just beyond his get statement. 
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Command Timeline (/Q Command) 

The next situation involves a /Q command entered by a 
terminal operator (Diagram 9M.0460). 

The $CC4IB (IB) module, evoked by BSC interrupt handler, 
calls $CC4IH (IH) which indicates a pending interrupt to 
the dispatcher, $CC4DP (DP) following the BSC interrupt 
handler reset interrupt level. The $CC4IB module then 
finds the Communication Manager (CM) task is in a ready 
state. (See get timeline flow for more detail.) CM recog- 
nizes that this input data is from a command processor ter- 
minal and evokes $CC4PS (PS) to post Command Processor, 
$CC4CP (CP), informing CP that there is work for him. That 
work is conveyed via a TUB queue containing the pertinent 
information. Upon return from PS, CM finds no more work 
so he evokes $CC4WT (WT). 

DP gets control from WT and passes control to CP. CP 
immediately calls for its command routing transient, 
$CC4PC (PC). To do this, CP calls $CC4PI (PI) to load 
the appropriate CCP transient area. PI uses the parameter 
provided by CP to look up the disk address and proceeds to 
call DSM disk IOS. Disk IOS is temporarily intercepted by 
$CC4I0 (10), which performs an IOB trace, but then IOS 
can start the operation. For simplicity, assume that the 
disk arm is located at the proper cylinder and that no other 
disk I/O is active. PI must wait, calling DSM disk wait which 
is intercepted by $CC4IW (IW). IW forces the current task, 
CP, into a wait state via WT. WT exits to DP which handles 
checking for operation completions. 



When DP finds the disk IOB complete, the CP task is 
reactivated via PS and resumes in the transient area where 
PC now resides. PC examines the command data and deter- 
mines that module $CC4QQ (QQ) must further handle the 
command. To effect a transfer control (XCTL) to QQ from 
PC, $CC4TX (TX) is called. TX is actually a special entry 
point in PI because other than the environment preservation 
and a small difference in passing the parameter designating 
the transferred transient, it is the same module. The remain- 
ing logic is identical as in the load of PC. Finally, when DP 
finds the operation complete, QQ is now in the transient 
area and DP gives him control. 

The normal processing of the /Q command is conducted by 
QQ which concludes the CP task's operation. First, however, 
CP must re-enter the formal wait. To do this, QQ calls the 
transient return entry point of PI, $CC4TR. Other than 
minor housekeeping, this function merely returns control 
to the original point at which the preceding series of tran- 
sient modules was evoked. Note that the Dispatcher is by- 
passed. 

CP will invoke $CC4PR (PR), the Command Processor 
Return Routine to: 

1 . Free any encumbered TP buffer and post CM. 

2. Send an appropriate message (set up by QQ) to the 
requesting terminals. 

3. Re-invite the terminal. 

$CC4PR will then return to $CC4CP via $CC4TR. 

CP now is in control again and when he finds io more work 
pending he will wait. WT will place him in a wait state and 
exit via the Dispatcher, at which time the system would aga.n 
be in a wait state or some other ready task could gain control. 
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Concurrent File Sharing Timeline 

This timeline (Diagram 9M.0470) emphasizes the area of 
disk update file sharing integrity assurance. The TP 
portions are treated lightly as they are incidental yet main- 
tain timeline continuity. In the example there are two user 
tasks which will be called T1 and T2 for simplicity. The 
Communication Manager task (CM) will also be occasionally 
involved. 

Normally disk I/O done between two tasks will overlap 
nicely. However, CCP has provided the capability of 
updating the same file from two or more concurrently open 
DTFs. This means that access conflicts are possible and 
the following will illustrate how the situation is handled. 
Whenever an input is done, that physical portion of the file 
is inhibited for further reference by all update files until 
the next input operation (which will also establish a new 
set of locked sectors) or an output operation is done to a 
random DTF. 



Backing up slightly in time, note that as the I/O operation 
was just begun DP would look for another ready task. 
Assume that while TVs disk I/O operation is in process T2 
becomes ready and receives an input transaction from II. 
Similar to T1, T2 uses this transaction to access a record in 
the same file as T1 is presently accessing. T2's ACSMD 
evokes DSM disk IOS, which is intercepted by 10. If that 
record on disk resides wholly or in part within even one of 
the sectors to which T1 has been assigned exclusive access, 
T2 must wait before going on. This is done by Dl who 
calls $CC4WT (WT), the CCP wait routine. Dl will have 
effected an enqueue on that disk address. 

WT exits via DP who now finds no active tasks. Eventually, 
the I/O operation will complete and DP will make T1 ready 
again. T1 will call disk wait and that will effectively be 
NO OPed, as previously mentioned. 

Now Tl's ACSMD will be called by the user to update the 
retrieved record. 



It will be assumed that $CC4II (II) has just given T1 a trans- 
action. T1 takes that transaction and uses a portion of it to 
access a random file via a DSM disk access method (ACSMD). 
The ACSMD calls disk IOS which causes $CC4I0 (10) to 
gain control. When 10 detects the (potential) shared update 
file he calls $CC4DI (Dl). Dl has the function of establishing 
exclusive access to the contiguous group of sectors defined 
by the physical disk 10 buffer. Dl also assures that the given 
request does not overlap an area already being accessed. It will 
be assumed that the T1 request is not in conflict. 

Once Dl has taken the necessary steps, Dl returns to 10 who 
calls IOS. Disk IOS may start the operation returning to 
10. With the file sharing option, 10 also forces a wait by 
going to $CC4WT (WT). WT causes the user task to enter 
the wait state. When the 10 operation is complete, the user 
task will effectively resume in DP who will call PS, then return 
to the ACSMD. (Without the file sharing option the wait is 
done when the ACSMD calls DSM wait and $CC4IW (IW) 
intercepts an incomplete IOB.) When the ACSMD calls 
DSM wait, IW will see an already complete IOB and would 
normally return directly via DP. 



As in the read operation, the flow is from ACSMD to disk 
IOS, intercepted by 10, to Dl, back to 10, to DSM IOS, 
and finally DP via WT. When the write finally completes 
(being a random access method) not only is T1 made active 
but DP calls Dl at a special entry point which releases the 
queued status of the sector group owned by T1 and that 
enables $CC4PS (PS) to be called in order to make T2 ready. 

DP would gain control again, now with both T1 and T2 active. 
T2 would resume in Dl and proceed to establish ownership 
of his set of physical sectors. Dl returns to 10 who calls 
DSM IOS before placing T2 in a wait state via WT. DP 
would now find T1 ready. T1 would wait for the PUT 
which would immediately cause control return. Finally, 
T1 waits for something else which enables T2 to continue. 
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Program Organization 



Resident Startup Initialization Routine (CPINIT) 

ENTRY POINTS: 

— CPINIT (initial entry from Startup) 

— SU@BCH plus two bytes (re-entry point after non- 
resident Startup completes) 

CHART: OA 
FUNCTIONS: 

— Performs the Startup initialization of CCP which must 
be link-edited with $CC4. 

— Invokes the final Startup routine, $CC4SU. 
OPERATION: 

— At initial entry from Startup communicates to the 
non-resident CCP Startup code the address of the 
resident CCP halt intercept. 

— After all Startup phases have executed, allocates and 
opens the BSCA DTFs. 

— Sets the address of the CCP BSCA interrupt handler 
into the resident DSM BSCA interrupt handler. 

— Sets the I AR Q-byte value of the CCP program level 
into the resident CCP Execution code. 

— Modifies the DSM low main storage entry point 
address of dump. General Entry, disk IOS, and 
disk I/O wait to cause entry into CCP when these 
functions are invoked. 

— Sets the address of the flag byte in DSM (NCMBSV in 
SUPCM) which contains the disk ERP indication for 
testing by the CCP disk IOS and disk I/O wait 
intercept routines. 

— Sets up the CCP transient area handlers IOB Q-bytes 
for the program pack. 

— Restores the DSM resident halt entry point address 
from that set during CCP startup. 

— Initializes the CCP General Entry Intercept Routine 
($CC4IG) to contain the Q-bytes of the system pack 
and the program pack. 

— Exits through the Command Processor to the transient 
Startup routine $CC4SU to complete all Startup 
functions. 

INPUT: None 

OUTPUT: All areas discussed inder operation are set for 

Execution. 
EXIT: To Command Processor tra: <ent $CC4SU via 

$CC4CP. 
EXTERNAL REFERENCES: 

— Address of other level I AR hold area in Startup. 

— Address of the BSCA DTFs built by Startup. 

— Addresses of IAR Q-bytes in $CC4DP, $CC4IH, 
$CC4PI. 



Addresses of resident disk I/O and I/O wait intercept 

routines $CC4IO and $CC4IW. 

Address of General Entry Intercept ($CC4IG). 

Address of dump intercept routine (CPHALT). 

System Communication Area (NCSYS@). 

CCP Command Processor. 



Console Interrupt Intercept ($CC4IC) 

ENTRY POINT: $CC4IC 
CHART: OC 
FUNCTIONS: 

- Sets flag bit (IHC) in flag byte (IHFLAG) of Common 
Interrupt Handler ($CC4IH). This bit signifies that 
$CC4IC has been entered so that control is not lost 

if $CC4I H is repeatedly entered due to nested 
interrupts. 

- After return from $CC4IH, sets dispatchability bit 
(DPCI) in the Dispatcher flag byte ($DPFLH) of 
$CCCOM, indicating that an operation-end (or REQ) 
interrupt has made the Communications Task 
dispatchable. 

INPUT: XR1 points to the resident console IOB. 

SKDIDS in System Communications Area contains 

X"IX' if REQ has been pressed. 
OUTPUT: 

- Flag bit (IHC) in flag byte (IHFLAG) of $CC4IH set 
on before entry to that routine, and off after return 
from it. 

- Flag bit (DPCI) in Dispatcher flag byte ($DPFLH) 
of $CCCOM set on after return from $CC4IH. 

- #TT#IC stepped by one if DPCI is set on. 

EXIT: Always to $@COIH, via ARR, to complete interrupt 
processing. 



BSCA Interrupt Intercept ($CC4IB) 

ENTRY POINT: $CC4IB 

CHART: OD 

FUNCTION: Intercepts each BSCA op end and determines 
whether the Communications Management Task has 
work to perform as a result of the interrupt. 

INPUT: XR2 contains the address of the BSCA Work Area 
for the line. 

OUTPUT: 

— XR2 is not restored for the return. 

— OP end count in the LCB and CCOECT are incremented 
to reflect a completed operation. 

— #TT#IC stepped by one. 

EXITS: Return to BSCA interrupt handler at NSI. 
EXTERNAL REFERENCES: Common intercept routine 
($CC4IH). 



9-80 



Common Interrupt Handler ($CC4IH) 

ENTRY POINT: $CC4IH 
CHART: OF 
FUNCTIONS: 

— Determines if the CCP program level is non-interrupt- 
able and, if not, changes the CCP program level I AR 
to cause the CCP level to resume, following interrupt 
level processing, in the CCP Dispatcher. 

— Saves the current task's Dispatcher control byte 
$DPFLG and sets both Dispatcher control bytes 
($DPFLG + $DPFLH) to cause the Dispatcher to 
save the interrupted task's status, process the 
interrupt, and resume the interrupted task. 

— Prevents repeated entry during a nested interrupt to 
insure data and instruction address register integrity. 

— Posts CCP to handle interrupts by setting flag bits in 
the work area ($CCCOM). 

INPUT: Th« CCP program level's IAR. 
OUTPUT: 

— CCP program level IAR reset to the entry address of 
the CCP Dispatcher ($CC4DP). 

— CCP Dispatcher flag bytes $DPFLG + $DPFLH set to 
cause interrupt processing by the appropriate CCP 
routine. 

EXITS: 

— To invoker via ARR. 

— To invoker of nested lower level interrupts by resetting 
the lower interrupt level's IAR to the address of the 
instruction following the branch to $CC4IH. 

EXTERNAL REFERENCES: CCP common work area, 
$CCCOM, current TCB, tr^e invoking interrupt level 
routines next sequential instruction via an EXTRN 
and address constant. 



MLTA Interrupt Intercept ($CC4IM) 

ENTRY POINTS: Three entry points, each corresponding 
to an entry point in the active MLTA trace routine: 
$$MLDD, MLTDD1, and MLTDD2 

CHART: OE 

FUNCTION/OPERATION: All MLTA interrupts are routed 
through this routine. The interrupt is analyzed to 
determine if it is for an op end. If an op end interrupt 
has occurred, the count of op ends (#OPEND) in 
$CCCOM is incremented by one. This op end count 
is used by the Dispatcher to determine when $CC4CM 
is dispatchable. A check is also made to determine 
whether the MLTA IOCS trace routine has been 
loaded into main storage. If so, then the MLTA trace 
is linked to so that active trace entries are taken. 



INPUT: XR1 contains address of MLTA common area. 

XR2 contains address of MLTA line DTF for which 

interrupt occurred. 
OUTPUT: Add one to op end count for op end interrupt 

(to #TT#IM in $CCCOM). 
EXITS: Return at ARR or, if MLTA trace active, link to 

the appropriate MLTA trace. 



CCP Task Dispatcher ($CC4DP) 

ENTRY POINT: $CC4DP 
CHART: OH 
FUNCTIONS: 

— Dispatches any ready system or user task. 

— Allows a user task to exit the must-complete state. 

— Routes control following a teleprocessing or console 
interrupt to the Communications Task to process 
that interrupt. 

— Gives control back to an interrupted user task following 
interrupt processing. 

— Determines which disk I OB should be scheduled into 
the disk I/O wait routine of Disk System Management. 

— Causes CCP to wait when no work can be performed. 
INPUT: Variable fields and flag bytes in $CCCOM to 

indicate what actions are to be taken by the Dispatcher. 

— The address of the returning (or current task) 
currently running under the CCP in the $CCCOM 
field @CURTB. 

— $CCCOM field $DPFLH, which indicates the type of 
entry being made to the Dispatcher. This can be 
either a normal exit from a task (no indicators are 
set), or it can be an entry from one of the interrupt 
levels caused by an interrupt level routine resetting 
the CCP instruction address register to wrest control 
from the current task and forcing control to resume 
in the CCP Dispatcher. 

— An indication in the $CCCOM field $DPFLG as to 
whether the exiting task is relinquishing control as 
it must wait for some event or it is only exiting the 
must-complete state. 

— When a task is exiting the must-complete state, the 
CCP Dispatcher will allow any of the system tasks 
(Communication, Termination, or Command Processor) 
to run and then give control immediately back to the 
task that last exited the must-complete state (if that 
task is still dispatchable). 

OUTPUT: None 
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EXITS: 

— To the instruction addressed by the TCB ARR field 
of the to be dispatched TCB. 

— If no ready tasks exist but disk lOBs are in process, 
then $CC4DP will branch to DSM NCEIOW entry. 

— If neither of the above are applicable, the Dispatcher 
will APL (or halt in a MINRES-NO system) allowing, 
in a DPF system, the other program level to gain 
control of the CPU. 

EXTERNAL REFERENCES: DSM NCEIOS + NCEIOW 
entry points, $CCCOM, CCP Register Save and 
Restore Routine, CCP wait and post routines, con- 
sole management work area. 



CCP Wait Routine ($CC4WT) 

ENTRY POINT: $CC4WT 
CHART: 01 

FUNCTION: Provides the interface required to allow a 
task to wait for one or more asynchronous events. 
OPERATION: 

— Validates that the expected event count in the input 
parameter list is non-zero. If it is not, the CCP halt 
routine will be entered with a subhalt code of PS. 

— Moves the wait parameter list wait mask and expected 
event count to the current TCBs wait mask and count 
fields, sets the residual count equal to the event count, 
and zeros the TCB post mask. 

— ORs the wait parameter list flag byte into $DPFLG in 
$CCCOM, restores all registers, and invokes the CCP 
Dispatcher via load IAR instruction. 

INPUT: The linkage used to invoke CCP wait is: 

B $CC4WT 

DC AL2 nnnn TCB wait mask 

DC ILI'n' Expected event count 

DC AL1 nnnn $DPFLG control byte 

OR bits 
OUTPUT: The wait routine will set the TCB wait mask, 

expected event count, the residual event count, and 

the TCB post mask. 
EXIT, NORMAL: To the CCP Dispatcher. The task will 

resume at the instruction following the wait parameter 

list. 
EXIT, ERROR: To the CCP halt routine if the expected 

event count is zero. 



Task Post Routine ($CC4PS) 

ENTRY POINT: $CC4PS 
CHART: OJ 



FUNCTIONS: 

— Indicates to a specific waiting task that an expected 
event has occurred. 

— Allows a task that has recognized the occurrence of 
an event which is by definition significant in the CCP 
system, to signal that event to all other CCP tasks 
that may be waiting for that event. 

OPERATION: 

— Validates the input parameter list. If the post mask 
is all zero or the address of the TCB to be posted is 
all zero (both bytes), the CCP halt routine will be 
entered with a subhalt code of PS. 

— Following successful validation, the CCP trace 
routine is invoked with an ID of seven to record the 
post entry parameter data. 

— If the post parameter list TCB address has a non-zero 
high byte, a specific TCB is to be posted. If the high 
byte is zero, all TCBs in the system are to be tested 
to see if they are awaiting this specific event. 

— Each TCB or the specified TCB is inspected prior to 
posting. First, it is determined if the task has already 
been posted for the event and, if not, an additional 
test is made to see if the task wait mask indicates that 
the task expects the event. If these conditions are met, 
the appropriate post mask bit is turned on to indicate 
which event the post is for, the residual event count 

is decremented by one and, if the result is zero the 
task's dispatchability bit is turned on. 

— After the TCB(s) are checked, post restores the caller's 
registers and returns via branch to the instruction 
following the post parameter list. 

INPUT: The following calling sequence is used for post: 

EXTRN $CC4PS 

B $CC4PS 

DC XL2' post-mask' 

DC AL2 @ of TCB to be posted 

or 

DC XL2'00nn' Indicating general post 

(nn is non-zero) 
OUTPUT: See the discussion of operation for an explana- 
tion of what fields are set. 
EXIT, NORMAL: To the instruction following the input 

parameter list. 
EXIT, ERROR: CCP halt routine with a PS subhalt. 



CCP Disk I/O Intercept ($CC4I0) 

ENTRY POINT: $CC4I0 

CHART: OM 

FUNCTION: Intercepts all entries to location eight within 
DSM and routes them to disk or printer IOS and 
back to the invoker through the CCP Dispatcher. 
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OPERATIONS: 

- tf disk ERP is in process, allows the disk IOS entry 
to continue with no action taken by this routine. 

- Traces the disk IOS entry via CCP Trace (ID=02). 

- Determines if the entry is from the non-CCP program 
level and takes no action if it is. 

- Saves the invoker's registers in the current TCB. 

- If the system is a multi-tasking system and the input 
I OB has an associated DTF, goes to the file sharing 
routine. 

- Allows the disk IOS request to be scheduled by 
invoking NCEIOS but forcing it to return to this 
routine. 

- Forces a disk wait if there is an associated DTF. 

- Exits through the Dispatcher back to the invoker. 
INPUT: The disk IOB address in register one. 
OUTPUT: The appropriate bits set in $CCCOM $DPFLG 

to indicate what action the Dispatcher is to take 
with the task. 

CCP Disk I/O Wait Intercept ($CC4IW) 

ENTRY POINT: $CC4IW 

CHART: OM 

FUNCTIONS: Intercepts all entries to location twelve 

within DSM and routes them to disk or printer 

I/O wait and puts the task into a wait. 
OPERATION: 

- If disk ERP is in process allows the wait entry to 
continue with no action taken by this routine. 

- If the IOB is marked complete, doesn't trace the entry. 

- Traces the disk wait entry via CCP Trace (ID=03). 

- Determines if the entry is from the non-CCP program 
level and takes no action if it is. 

- Saves the invoker's registers in the current TCB. 

- If the IOB is marked complete, doesn't cause the 
task to wait, else indicates to the Dispatcher that 
the task is to wait for disk I/O complete. 

- Exits to the CCP Dispatcher via Wait ($CC4WT) or 
directly. 

INPUT: The disk IOB address in register one. 
OUTPUT: The appropriate bits set in $CCCOM $DPFLG 

to indicate what action the Dispatcher is to take with 

the task. 

EXITS: 

- DSM Disk I/O Wait Routine (NCEIOW). 

- CCP Dispatcher ($CC4DP). 

- To Disk I/O Wait (NCEIOW) if the current IAR is not 
the CCP IAR. 

- CCP Dispatcher to cause the task to wait/exit. 
EXTERNAL REFERENCES: 

- CCP Trace Routine ($CC4TT). 

- IAR Determination Routine (DPTIAR). 

- CCP Register Save Routine (CCPSAV). 

- Current TCB address (@CURTB in $CCCOM). 

- Current TCB TCBTSK byte. 



CCP File Sharing Enqueue— Dequeue Routines ($CC4DI) 
ENTRY POINTS: 

- $CC4DI - IOB enqueue routine 

- $CC4RQ - SQB release routine 

- RQDPFR - Disk Wait Intercept entry to SQB release 
CHART: ON 

FUNCTIONS: 

- Allows file sharing in update mode among the user 
programs while maintaining file integrity. 

- Allows several programs to access added records in 
indexed files concurrently while ensuring that only 
one DTF is actually adding at any time. 

OPERATION: 

- $CC4DI comprises three routines: 

- $CC4DI — IOB enqueue— dequeue routine 

- $CC4RQ - SQB release routine 

- $CC4AO - Adder validity check routine 

- At entry to $CC4DI, intercepted disk or printer I/O 
requests are examined. If the request is a read and 
the DTF is opened for update, the IOB is added at 
the end of a queue of lOBs awaiting enqueued data 
sectors, the SQB owned by the IOB (if any) is located 
and the SQB Release Routine is entered. If the request 
is not to read, or the DTF is not opened for update, 
the Adder Validity Check Routine is entered. 

- The SQB Release Routine will first free the input 
SQB, then examine the IOB queue for I/O requests 
which may now be honored. The disk address and 
N-byte of the queued IOB is compared to the disk 
addresses in each active SQB for conflict. If there is 
no conflict, the IOB may be freed, and an SQB is 
built to reflect the data extent of the I/O request. 
The task which owned the freed IOB is posted out of 
the wait. All lOBs on the queue are thus examined. 
If a queued IOB which cannot be freed belongs to 
the current task, the CCP Wait Routine ($CC4WT) 
will be invoked to cause the current task to wait. 

- The Adder Validity Check Routine tests the I/O 
request to determine if it is an add. If so, the SDF 
for the file is located and tested to see if the task 

is allowed to add. If so, and no other DTF is currently 
adding, the DTF address is stored in the SDF and 
becomes the current adder. Otherwise, the Resident 
Termination Routine is invoked to terminate the task. 
INPUT: 

- XR1 containing IOB address - input to $CC4DI. 

- XR2 containing SQB address — input to SQB release. 
OUTPUT: 

- IOB fields IOBCHN and IOBTCB modified for 
queued IOB. 

- SQB built or freed. 
EXITS, NORMAL: 

'- Return to caller via CCPRET. 

- Return to Disk Wait Intercept via ARR. 

EXITS, ERROR: CC4TI2 - To terminate an invalid adder 
or a task if an available SQB cannot be found. 
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General Entry Intercept ($CC4IG) 

ENTRY POINT: $CC4IG 
CHART: OR 
FUNCTION/OPERATION: 

— Intercepts *all* invocations of DSM General Entry 
(branches to location 4). The primary purpose of the 
intercept is to assure the serial use, by the CCP program 
level, of the non-reentrant DSM supervisor. 

— If the invocation is from the other program level, 
passes it on directly to DSM General Entry. 

— For RIB of X'OO' from CCP program level, provides 
in index register 2 the address of the CCP Program 
Level Communication Area. 

— If the invocation is a halt/syslog request, handles it 
via the CCP substitute halt/syslog processor. 

— If the invocation is from within the DSM supervisor's 
own main storage area: 

— Determines if disk error log request; if so, sets on 
the error-log-in-progress bit in the System Com- 
munication Area. 

— In any case, passes the invocation on to DSM 
General Entry. 

— For RIB indicating program load/fetch, modifies those 
fields in the PLCA which control relocation, and 
passes on the invocation to DSM General Entry. 

— For a RIB requesting transient by C/S/N, passes the 
invocation on to DSM General Entry. 

— For RIB indicating request for specific transient, passes 
the invocation directly on to general entry unless: 

— Open/close/allocate — Passes invocation to CCP 
Data Management Routine $CC40C. 

— EOJ - Passes invocation to CCP Termination 
Interface Routine CC4TI1. 

EXIT, NORMAL: To DSM general entry or to CCP open, 
close, allocate, or halt routines, depending on request. 

EXIT, ERROR (Model 4 Only): To CCP halt routine 

when a RIB is intercepted for certain types of fetches 
and finds not supported by CCP. 



CCP Transient Area Handler ($CC4PI, $CC4TX, $CC4TR) 

ENTRY POINTS: $CC4PI, $CC4TX, $CC4TR 

CHART: OT 

FUNCTIONS: 

— Provides the logic necessary for the CCP system 
transient routines to be invoked and for them to 
invoke other routines. 

— Processes requests for transient modules into one 
of two transient areas within CCP. One area is for 
the exclusive use of the Communications Task, the 
other is shared by all other tasks operating under CCP. 
Simultaneous fetching of transients into both areas 
can occur. 



Each section of the Transient Area Handler has interfaces 
with the other section. These are discussed in greater 
detail for each entry point. 



$CC4PI 

ENTRY POINT: $CC4PI 

CHART: OT 

FUNCTIONS: Provides the control logic necessary for 

multiple tasks requesting transient services and fetches 

the required modules. 
OPERATION: Validates that the identifier of the requested 

transient does not exceed the number of entries in the 

first level program list in CCP. 

— At entry checks for transient area availability. If this 
fails, the current task is put into a wait for a transient 
area by invoking $CC4WT (CCP Wait). 

— When a transient area is available, the requested routine 
is read into the transient area via branch to DSMs disk 
I/O routines. 

— If the transient is being XCTLed to, a two-byte parameter 
from the XCTLer is moved into the transient. 

— Register one is set to the entry point address of the 
transient. 

— Register two is restored from the current save area 
of the current TCB. (Note — The save area address is 
not changed.) 

INPUT: 

— $CCCOM (#LSTSZ, @TALST) 

— The AR R points to the numeric value of the program 
to be invoked. This is the relative entry number of 
the disk address of the transient in the first level 
program list. 

OUTPUT: The transient is loaded and control given to it. 
EXIT, NORMAL: To the invoked routine. 
EXIT, ERROR: 

— To CCP halt routine if a request is made with a 
reference that exceeds the boundary of the table. 

— CCP is in error and will halt with a code of U— and 
subhaltof12. 

NOTES: 

— All CCP transient routines must use the $EBEG 
(transient begin) macro to set up their initial 
instructions to be invoked by $CC4PI. 

— The CCP transient areas are contained in the base CCP 
module. 

— If the requested transient area is unavailable, $CC4PI 
queues the task and exits via Wait until an area is 
available for this task. 
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$CC4TX 

ENTRY POINT: $CC4TX 

CHART: OT 

FUNCTION: Allows a CCP transient (XCTLer) to XCTL 

(transfer control) to another CCP transient (XCTLee). 
OPERATIONS: 

- Computes the address of the XCTLee's NCS values 
in the XCTLer. 

— Enters the $CC4PI logic at the point where 
preparation for disk I/O is done. 

INPUT: 

- Within the XCTLer, is the field TAXTID containing 
the displacement from the beginning of the transient 
area of the disk address of the routine being invoked 
(the XCTLee). 

- Also within the XCTLer is the two byte XCTL 
parameter field (TAXPRM) which is passed to the 
invoked routine's TAXPRM field. 

OUTPUT: Control is passed to the XCTLee after it is read 

into the transient area. 
EXIT: To invoked module. 
NOTES: 

— The XCTL tables are five bytes per entry length, 
beginning at the symbolic displacement TAXCID 
within the module. The first two characters are 
the suffix of the XCTLee and the next three are the 
disk address, length, and CCP control information. 
The end of the entries is signified by a dollar sign ($) 
delimiter. 

— The two-character suffix of the XCTLee is moved into 
the transient areas IOB IOBGHN field for the disk 
I/O trace. 



$CC4TR 

ENTRY POINT: $CC4TR 
CHART: OT 

FUNCTIONS: Provides the interface for a CCP transient 
routine to: 

— Return to the invoking routine. 

— Make the currently in use transient area available. 

— Post all tasks waiting for the transient area that is 
available (non-communications tasks only). 

OPERATION: 

— Makes the transient area available. 

— If the current task is not Communications, posts 
transient area availability. 

INPUT: The address of the current task in $CCCOM to 

determine which transient area to free. 
OUTPUT: 

— The transient area will be marked available. 

— All tasks awaiting transient area one will be posted. 



— The invoker's registers will be restored and control 
returned to it. 
EXIT: To invoker of first level transient via CCPRET 
routine. 



Program Request Queue Test ($CC4PQ) 

ENTRY POINT: $CC4PQ 

CHART: OU 

FUNCTION: Determines if a pending program request 
exists for a terminal or a switched, multi-terminal 
(BSCA only) line. 

OPERATION: Scans the input queue to program alloca- 
tion (the pending request queue) to see if any 
request requires the terminal (or switched line LCB 
that the terminal is on) whose address was input to 
the routine. 

INPUT: TUB address in register two. 

OUTPUT: Program status register (PSR) 

— False bit off — Terminal is needed. 

— False bit on — Terminal is not needed. 

— Binary overflow indicator on — Line is needed 
(BSCA only). 

EXIT: To invoker's next instruction via CCPRET sub- 
routine. 



CCP Register Save and Restore Routine (CCPSAV) 

ENTRY POINTS: 

— CCPSAV and CCPSV2 - Register Save 

— CCPRST - Register Restore 

— CCPRET — Register Restore and Return (to higher 
level) 

CHART: OV 
FUNCTIONS: 

— Saves the contents of XR1 , XR2, and $CCCOM 
$CCARR fields in the current Task Control Block. 

— Restores the registers from the current Task Control 
Block. 

OPERATION: 

— Register Save Routine - Increments the TCB 
register save area address field in the current TCB 
and saves the input XR1,XR2, and ARR in the 
current save area in the TCB. 

— Register Restore — Decrements the save area address 
field in the current TCB and restores the XR1 , XR2, 
and ARR from there. Returns to invoker using the 
ARR value at entry to this routine. 

— Register Restore and Return — Same as Register 
Restore but return using the restored ARR rather 
than the ARR value at entry. 
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INPUT: 

- CCPSAV and CCPSV2 - Input XR1 and XR2, 
$CCARR in $CCCOM, current TCB. 

- CCPRST - Current TCB address in $CCCOM 
(@CURTB). 

- CCPRET - Current TCB address in $CCCOM 
(@CURTB). 

OUTPUT: 

- CCPSAV and CCPSV2 - Registers saved in current 
TCB and save area address in the TCB incremented to 
the next save area. 

- CCPSV2 only - XR1 = Address of current TCB in 
$CCCOM. XR2 = Address of $CCCOM. 

- CCPRET and CCPRST - Registers restored and 
current TCB save area address decremented to next 
lower level. 

EXIT, NORMAL: 

- CCPSAV, CCPSV2 and CCPRST - To invoker. 

- CCPRET — To invoker of invoker (next higher level 
of control). 

EXIT, ERROR : If the number of save areas in the Task 
Control Block is exceeded, a branch to the CCP Halt 
Routine (CPHALT) to give a U- halt (or a 1234 halt 
on Model 4) and a SL (save level) subhalt. 

EXTERNAL REFERENCES: Current TCB @ and saved 
ARR value in $CCCOM. 



CCP Trace Interface Routine ($CC4TT) 

ENTRY POINT: $CC4TT 

CHART: OV 

FUNCTION: Provides an interface to the dynamically 

loaded real CCP trace module and the invokers of 

that module. 
OPERATION: 

— If Trace is loaded by Startup, the instructions in this 
module are replaced by a load IAR instruction which 
will cause control to continue in the real trace 
routine $CC$TR. 

— If Trace is not loaded, the routine will step the ARR 
over the one byte Trace argument and return to the 
invoker. 

INPUT: The ARR addresses the one-byte trace id value to 

be used for Trace. 
OUTPUT: If Trace is invoked, a trace entry is built in the 

CCP trace table. If Trace is not invoked, no output 

occurs. 
EXIT: To the second byte following the branch to this 

module. 
EXTERNAL REFERENCES: $CC$TR if real Trace is 

loaded. 



CCP Stand Alone Halt Routine (CPHALT) 

ENTRY POINT: CPHALT 
CHART: OV 
FUNCTIONS: 

— Allows CCP to halt in case of an internal error or to 
intercept a branch to location zero by a processing 
program. 

— Allows, in a DPF system, the non-CCP program level 
to terminate normally before dumping the CCP to 
determine the cause of the halt. 

OPERATIONS: 

— Saves the contents of the current ARR, XR1 , and 
XR2 in a location preceded by an eyecatcher 
constant of HALT. 

— Restores the DSM low main storage entry address 

of Dump, General Entry, disk IOS, and disk I/O wait. 

— Ensures that re-entry causes a dump by moving a 
load IAR instruction into the first instruction of the 
routine. 

— Determines if the invoker is running under the CCP's 
IAR. If not, immediately stop the system with a 
processor check instead of halting. This is necessary 
as the invoker may be running in an interrupt level 
and, if so, an HPL instruction will not work as it is 
treated as a no-operation by the system hardware. 

— HALT with a U- (or a 1234 halt on Model 4) in the 
first (or primary) halt. 

— If the system operator presses HALT RESET/ 
START (non-DPF), HALT with a second subhalt 
moved from the two bytes immediately following 
the value in the ARR at the time of entry to 

the routine. 
- Go to DSM Dump entry when the system operator 

resets the halt. 
INPUT: The two bytes addressed by the input ARR, 
EXIT: To DSM Dump routine via load of program level 

one's IAR. (The DSM Dump is dependent upon 

running under program level one IAR.) 



Generalized Move— Service Routine 

ENTRY POINTS: 

- $CC4MX - Moves data item of length 1 - 65535 
with possibly different target and source lengths: 

— If lengths are equal, performs simple move. 

— If target shorter than source, moves only first n 
bytes of source to target (up to target length). 

— If target longer than source, moves source to first 
n bytes of target, and fills remaining right end of 
target with character blanks. 

— $CC4MV — Performs simple move, given only a single 
length. 

CHART: OX 

FUNCTION: Moves item of length 1 - 65535. 
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INPUT: 

— XR2 must point to the leftmost byte of the user's 
move parameter list, which must contain: 

— In bytes — 1 , the length of the target area (this 
is the *only* length specified to $CC4MV). 

— In bytes 2 — 3, the leftmost address of the target 
area, 

— In bytes 4 — 5, the leftmost address of the source 
area. 

— In bytes 6 — 7, (these bytes are required for 
$CC4MX *only*) the length of the source data. 

— The source data, of any form whatever. 
OUTPUT: 

— The target area, set to the contents of the source data. 

— For $CC4MX "only*, the shorter of the two lengths 
specified returned in bytes — 1 of the user's para- 
meter list. 

— For $CC4MX *only*, the condition register set as 
follows: 

— Equal if the target was equal to or longer than the 
source. 

— Low if the target field was shorter than the source 
(that is, when truncation of the source data 
occurred. 

EXIT: Always to invoker at address contained in ARR. 

EXTERNAL REFERENCES: None 

NOTES: 

— This routine must not be passed a length of 0. If a 
length of is specified, it will be treated as a length 
of 256. 

— The move is performed in a strict right-to-left fashion. 

— XR1 is saved, used, and restored. 

— XR2 is used as pointer to parameter list and is not 
modified. 



Getmain/Freemain Service Routine ($CC4MS) 

ENTRY POINTS: 

— $CC4GM - Getmain entry (normal). 

— $CC4RM — Getmain entry (get segment at edge of 
storage pool). 

— $CC4FM - Freemain entry. 
CHART: OZ 
FUNCTIONS: 

— Allocates a free segment or a part of a free segment 
from a predefined main-storage pool to the requester 
(Getmain). 

— Return to the main-storage pool a previously allocated 
storage segment (Freemain). 



INPUT: 

- XR1 must point to a main-storage control block of 
10 bytes, which must be *outside* the allocatable 
storage pool, and which must contain the following 
fields: 



Name 



Disp Len Contents 



SCBCHN +1 2 

+3 2 

SCBLO +5 2 

SCBHI +7 2 

SCBMAX +9 2 



Address of first free segment 

(00XX if none). 

Always X'0000'. 

Address of low-bound of storage 

pool. 

Address of high-bound of 

storage pool +1. 

Size of largest free segment in 

storage pool (initially, size 

of entire pool). 



XR2 must point to the user's request parameter list, 
which must contain the fields: 



Name 



Disp Len Contents 



GMADDR +1 



GMSIZE +3 



Getmain — Content does not 
matter. 

Freemain — Hi-order address 
of segment to free. 
Getmain — Size of storage 
segment required. 
Freemain - Actual size of 
segment to free. 



Initially, the storage pool area must have been 
established with the following content in the first 
four bytes thereof: 



Name 



Disp Len Contents 



SEGCHN +1 2 X'0000' 

SEGLEN +1 2 Size of entire storage pool 

(including these four bytes 

themselves). 
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OUTPUT: 

- For a normal Getmain ($CC4GM): 

— A condition— code setting, indicating the success 
or failure of the attempt to allocate a segment: 
Logical overflow *off * if successful, logical 
overflow *on* if unsuccessful. 

— If (and only if) successful, the parameter list 

field GMADDR is set to the address of the leftmost 
byte of the storage segment allocated to the user. 

— If (and only if) successful, the storage segment, 
whose content has not been set to any determinate 
value, allocated on the basis that it is the smallest 
segment available that will satisfy the size requested 
by the user. 

— For a restrictive Getmain ($CC4RM), output identical 
to that of $CC4GM, except that the segment is not 
allocated unless it can be allocated on the high- or 
low-bound of the total storage pool. 

— For Freemain ($CC4FM),the segment specified in the 
user's parameter list is returned to the storage pool. 

- In all cases, the index registers upon return contain 
the same addresses as they contained upon entry. 

EXITS, NORMAL: Always to user at his ARR address. 

EXITS, ERROR: On erroneous Freemain (Freemain outside 
bounds of storage pool), a branch is made to the CCP 
abort routine, CPHALT, yielding a halt of U— and 
a subhalt of FE, abortively terminating the CCP run. 



Main-Storage Supervisor (Getmain/Freemain Service) 
($CC4MM) 

ENTRY POINTS: 

- $CC4GM - Getmain entry (normal). 

- $CC4RM - Getmain entry (effectively identical to 
SCC4GM). 

- $CC4FM - Freemain entry. 
CHART: OZ 
FUNCTIONS: 

— Allocates a free segment or a part of a free segment 
from a predefined main-storage pool to the requester 
(Getmain). 

— Return to the main-storage pool a previously allocated 
storage segment (Freemain). 

INPUT: 

— XR1 must point to a main-storage control block of 
10 bytes, which must be *outside* the allocatable 
storage pool, and which must contain the following 
fields: 



Name 



Disp Len Contents 



SCBCHN +1 2 Address of first free segment 

(00XX if none). 
+3 2 Always X'0000'. 
SCBLO +5 2 Address of low-bound of storage 

pool. 



SCBHI +7 2 Address of high-bound of storage 

pool +1 . 
SCBMAX +9 2 Size of largest free segment in 

storage pool (initially, size of 

entire pool). 

XR2 must point to the user's request parameter list, 
which must contain the fields: 



Name 



Disp Len Contents 



GMADDR +1 



GMSIZE +3 



Getmain — Content does not 
matter. 

Freemain — Hi-order address of 
segment to free. 
Getmain — Size of storage 
segment required. 
Freemain — Actual size of 
segment to free. 



Initially, the storage pool area must have been 
established with the following content in the first 
four bytes thereof: 



Name 



Disp Len Contents 



SEGCHN +1 2 X'0000' 

SEGLEN +3 2 Size of entire storage pool 

(including these four bytes 

themselves). 
OUTPUT: 

- For a Getmain ($CC4GM or $CC4RM): 

— A condition-code setting, indicating the success 
or failure of the attempt to allocate a segment: 
Logical overflow *off* if successful, 

logical overflow *on* if unsuccessful. 

— If (and only if) successful, the parameter list field 
GMADDR set to the address of the leftmost byte 
of the storage segment allocated to the user. 

— If (and only if) successful, the storage segment, 
whose content has not been set to any determinate 
value, allocated on the basis that it is the smallest 
segment available that will satisfy the size requested 
by the user. 

- For Freemain ($CC4FM), the segment specified in the 
user's parameter list returned to the storage pool. 

- In all cases, the index registers upon return contain the 
same addresses as they contained upon entry. 

EXITS, NORMAL: Always to user at his ARR address. 

EXITS, ERROR: On erroneous Freemain (Freemain 

outside bounds of storage pool), a branch is made to 
the CCP abort routine, CPHALT, yielding a halt of 
U— and a subhalt of FE, abortively terminating the 
CCP run. 

NOTES: This routine (shorter than $CC4MS) is used in 

place of that routine in a single-user -task system without 
DFF. 
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Command Processor Mainline ($CC4CP) 



Open/Close/ Allocate Mainline ($CC40C) 



ENTRY POINT: $CC4CP 

CHART: PC 

FUNCTION: Routes terminal and console commands to 

the appropriate command processing routine. 
OPERATIONS: 

— Accepts input from command or the console terminals. 

- Routes control to the appropriate command processing 
subroutine. 

INPUT: The address of the input device's terminal unit 
block in command processor's TCB field TCBINQ. 
EXITS: 

- To $CC4R4, $CC4PC, or $CC4PR for processing. 

— To $CC4WT when no work is available. 



Allocation Task Resident Control Routine ($CC4AM) 

ENTRY POINT: $CC4AM 

CHART: PF 

FUNCTION: Invokes the first allocation control routine 

when there is work for the allocation task. 
OPERATIONS: 

— Allocation is entered when program request validation 
has found an available TCB for Allocation or Termina- 
tion has found the allocate post pending bit on in the 
Command Processor work area (set by program request 
processing). 

— This routine will invoke the first Allocation transient, 
$CC4A1. 

— When control is returned to this routine, the allocation 
work area wait mask is tested to see if the allocation is 
complete. 

— If allocation is complete this routine exits to the CCP 
Dispatcher indicating to exit the must complete mode 
and to give control to the user program. 

— If allocation is not yet complete, this routine will wait 
for all required resources to become available. When 
this occurs the task is posted and made dispatchable. 
At this time it will re-invoke the first allocation 
transient, $CC4A1 . 

INPUT: None 
OUTPUT: None 
EXITS: 

— $CC4DP when user task allocation has completed. 

— $CC4WT — To wait for resources to become available 
for allocation. 

NOTES: Allocation is accomplished in two passes: 

— The first pass allocates whatever resources are 
available and sets indications for all unavailable 
resources that it needs. 

— The second pass runs when all resources that were 
not available during the first pass become available. 



ENTRY POINT: $CC40C 
CHART: PI 

FUNCTIONS: 

— Calls the initial transient load of Open/Close/ Al- 
locate. 

— Invokes DSM to process requests to set new limits. 

— Primes and purges buffers for open/close requests. 

— Invokes Termination of Open/Close/ Allocate was 
unsuccessful. 

OPERATION: Open/Close/Allocate transients will return 
to one of four return points in $CC40C to perform 
final processing: 

— OCRET1 - Invokes DSM to set new limits. The 

returning transient will have placed the 
C/S of the appropriate DSM limits 
' transient into the parameter list. 

— OCRET2 - Returns to the calling program. 

— OCRET3 —Terminates the calling program. The 

returning transient will have set the 
task completion code into the parameter 
byte. 

— OCRET4 - Purges or primes buffers following 

successful open/close. 
INPUT: Address of the DTF chain in XR2. 
OUTPUT: $CCCOM and current TCB flags set to restore 

control to the calling program. 
EXIT, NORMAL: Return to the calling program via the 

Dispatcher. 
EXIT, ERROR: CC4TI2 to terminate the caller. 

Termination Interface Routine ($CC4TI) 

ENTRY POINTS: 

— $CC4TI - Entry from a CCP system task to terminate 
another task (user). 

— CC4TI1 - From General Entry Intercept to terminate 
a user task that has issued an EOJ RIB (X'84') in the 
normal course of its processing. 

— CC4TI2 - From a CCP service routine that has 
detected an error condition attributable to the user 
program and wants to terminate the task. 

CHART: PL 

FUNCTIONS: Provides an interface for CCP system functions 

or CCP system tasks to cause the termination of a user 

program. 
OPERATIONS: 

— Finds the user task control block to be terminated. 

— Moves the task completion code value into the TCB 
completion code field. 

— Marks the TCB that it is to be terminated. 

— Makes the CCP Termination Task dispatchable if it is 
not currently busy. 

— Exits to either the CCP Dispatcher or to the invoker 
of Termination Interface. 
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INPUT: 

— CC4TI - ARR addresses the task completion code. 
Register two contains the address of the TCB to be 
terminated. 

- CC4TI1 - ARR points to a DSM RIB of X'84'. TCB to 
be used is the current TCB address (@CURTB) in 
$CCCOM. 

— CC4TI2 - ARR addresses the completion code to be 
used. Address of the task to terminate is in current 
TCB address field in $CCCOM (@CURTB). 

EXIT, NORMAL: 

- To the invoker via the input ARR plus one. 

- To the CCP Dispatcher ($CC4DP). 
EXIT, ERROR: 

- To CPHALT with a subhalt of OS if the task to be 
terminated is a CCP system task. 

Termination Task Mainline Routine ($CC4TM) 

ENTRY POINT: $CC4TM 

CHART: PL 

FUNCTION: Provides the resident interface required to 
the Termination Task transient routines. 

OPERATION: At initial entry, goes to the CCP Transient 
Area Handler to invoke the first Termination transient 
routine, $CC4TD. 

— After the Termination transients have completed 
processing, waits for work to do. 

INPUT: None 

OUTPUT: None 

NOTE: The termination task is not posted using the normal 
CCP post routine if a task is to be terminated and 
Termination is not currently busy (as indicated by the 
bit $TMBSY in the Termination Work Area ($TMFLG 
in $TMWK)). Instead the TCB of Termination is 
found and the dispatchable bit is turned on by the 
invoker of Termination (the termination interface 
or the Cancel Command Processor). 

I/O Interface Mainline ($CC4II/$CC4IS) 

ENTRY POINTS: 

— $CC4I I — Entry for user requests. 

— $CC4IS — Entry point for system requests. 
CHART: PP 

FUNCTION: Processes both user and system I/O requests. 

Extensive diagnostics are performed on each request 

prior to scheduling the TP operation. 
INPUT: Input to $CC4II is a parameter list pointed to 

by XR2. 



OUTPUT: Output from $CC4II will be a scheduled put 
operation, data on a get operation, or one of the 
following termination codes in case of error: 

01 — Invalid op code/modifiers. 

02 — Invalid operation for console. 

03 — Undefined symbolic terminal name. 

04 — Terminal not allocated to program. 

05 — Terminal referenced by other than allocated 

name. 

06 — Blank terminal name for MRTS program. 

07 — Blank STN and requester released. 

08 — Blank STN invalid for this operation. 

09 - Invalid use of sub-terminal name. 
0A — STN not assigned to terminal. 

0B — Terminal attribute set invalid for this 

operation. 
0C — Terminal I/O capability does not match 

operation. 
0D — Invalid output length. 
0E — Invalid input length. 
OF — Input length greater than TP buffer size. 

10 — Invalid op with data from prog. req. 

outstanding. 

11 — Invalid op with invite input outstanding. 

14 — Invalid op with no invites outstanding. 

15 — Input area not large enough for BSCA 

get block. 

16 — Copy requested to terminal without 

mapping. 

17 — Copy to terminal name not found. 

18 - Copy invalid with 3275. 

19 — Erase requested to terminal without 

mapping. 
1A — Put override to terminal without mapping. 
1B - Invalid put with mapping - No EOT. 
1C — Record area too small for BSCA get 

with ITB. 
1D — Accept request impossible to satisfy. 
1 E - Ourput length to console greater than 80. 
1 F - Output length is greater than TP buffer 

length. 
35 — OFF terminal referenced by a non-DFF 
task. 
EXIT, NORMAL; A normal exit to CCP Dispatcher occurs 

if all goes well. 
EXIT, ERROR: An error exit to Termination with the 
appropriate termination code occurs in case of error. 
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Display Format Control Routine ($CC4DF) 

ENTRY POINT: There is only one entry point from 
$CC4II - DFA000. However, a task under which 
this routine is executing can be interrupted (waiting 
for availability of OH A, put .blocking, etc). This 
routine will cause the task to wait and be posted later 
at DFB850and DFH070. 

CHART: PV 

FUNCTIONS: 

— Provides logical data management support for compon- 
ents of the 3270 system. This mainline routine will 
control a series of transients which operate in the 
general transient area in CCP. The prime function is 
to screen out the 3270 line and data control charac- 
ters between the user and the 3270 system. 

— This routine is field-orientated, table-driven, 
segmentally reusable. It is capable of servicing more 
than one task at a time. 

— The functions provided for the various op codes are 
as follows: 

— Get message and stop-invite-input — The user 
parameter list will be modified to tell $CC4CM 
how much of a hold area to Getmain for the 3270 
text. After the op end occurs the data will be 
moved from the dynamic TP buffer to the user's 
record area. The address of the TP area which 
contains the 3270 text will be placed in the user's 
parameter list by $CC4CM. The parameter list 
will be restored to the original condition before 
returning to $CC4I I. This routine will Freemain 
the TP area before returning to $CC4II, except if 
an error or exception condition exists, in which 
case the area will be freed by $CC4CM. 

— Invite input - The PLDATA and PLINL as set by 
the user is ignored by this routine. $CC4CM will 
Getmain an area for the 3270 text, and PLINL 

is filled in by this routine from TTINLH. 

— Accept input — This operation is handled for the 
most part like get message, except the data area 
address of the 3270 text and PLEFFL is obtained 
from the TUB. There is no Freemain of the dynamic 
TP area by this routine since $CC4I I will do that. 
This routine will not handle the data which enters 
the data with the program request. For this parti- 
cular operation (the implied invite-input-accept), the 
AID will not be the first character in the data area. 
That operation will be handled entirely by $CC4CM. 



- Put message - PLOUTL in the user's parameter list 
is modified by this routine to reflect the actual 
amount of 3270 text being sent by this routine. 
The text is read from the display format in the 
object library into the output hold area (OHA). 
After the user's field data has been merged into the 
text, the text will be moved from the OHA to the 
line buffer by $CC4CM. Therefore, PLDATA is also 
modified by this routine. If blocking is required, 

all but the last block of text will be sent by posting 
$CC4CM in this routine. For the last block, or if 
no blocking is required, control will pass through 
$CC4I I before $CC4CM is posted. 

- Put override - The transient $CC4DB will be 
evoked to diagnose the use of the operation and to 
calculate the length of text to generate, also deter- 
mining if blocking is required. The 3270 text will 
be generated dynamically by this routine in the 
OHA. If blocking is required, the same procedure 
is used as that for put message. 

- Copy - The transient $CC4DC will be evoked to 
diagnose the use of the operation, and also to build 
tne text. The 3270 text will be built in PAS, and 
the user's parameter list will be modified to reflect 
this fact. The parameter list will be restored to its 
original condition before returning to $CC4II the 
final time. This operation will go through $CC4CM 
as a put message. 

- EAU - Erase all unprotected - The text for this 
operation is contained in PAS. The user's parameter 
list will be modified to reflect this fact. This opera- 
tion is sent to $CC4CM as a put message operation. 
The user's parameter list will be restored before 
returning through $CC4II the final time. 

- Release terminal — This operation involves blanking 
out the TT entry for the respective terminal. No 
repercussions are taken out on the user for releasing 
terminal which had not previously been used with 
this routine. 

INPUT: 

— XR2 must contain the high order address of the user 
CCP parameter list. A user program appended storage 
area (PAS) must be available for storing data specific 
to this task. 

— Display formats must have been already generated and 
must exist in the object library. The format must be 

in two parts. The first part is the Field Descriptor Table 
(FDT), and the second is the text stream for an initial 
put to a 3270 terminal. 

— For all operations, PLRECA must point to the high- 
order byte of the terminal name for which the 
operation is intended (except for accept input, in 
which case the pointer is to the high order byte of the 
data area). I mmediately following the 6 character 
terminal name must be the beginning of the data area. 
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For output operations, the following information is 
also required: 

— Put msg - Display format name in first 6 positions 
of the data area, followed by any data for fields 
which were defined as begin defined at execution 
time. 

- Put override - The WCC must be the first position 
in the data area. This is the minimum entry for 
this operation. Optionally, 9 positions should be 
given for each field which is to be overriden: 6 for 
field name 1 each for type, cursor, and modify. 

- For all output operations, the text is either read into 
the output hold area (OHA) or built directly into it. 
Only one output operation may be performed per 
task and per line in an OHA. 

OUTPUT: 

- Formatted data in users record area for input opera- 
tion, or proper text stream sequence to 3270 for 
output operation. 

- Updated areas in PAS to reflect current status of 
operation for this task. 

- If a task will be terminated, the transient $CC4DD 
will be evoked to determine if the console message 
528 should be issued. 

DIAGNOSTICS: 

- The following diagnostics are performed and issued 
by this routine. (Others are given by $CC4DB and 
$CC4DC> 

— Termination codes: 
FF - 255 

FE - 254 
FD - 253 
FC - 252 
FB - 251 
F9 - 249 
F8 - 248 
F6 - 246 
F3 - 243 
F2 - 242 

- Error return code: RCRIDR - FFE3 

- Exception return code: RCXDTR-0001 

- Called by - $CC4II - There will be two calls to this 
routine for the following operation codes, once before 
evoking $CC4CM and once after evoking $CC4CM: 

— Put message. 

— Put overrides. 

- Get message. 

- Invite input. 

- Copy. 

— Erase all unprotected. 

— Stop invite input. 



The following operation codes will cause $CC4II 
to call this routine once: 

- Accept input. 

- Release terminal. 

This routine will also be posted by the CCP Dispatcher. 
EXITS: 

- $CC4CM - Communication management 

- $CC4PS-Post 

- $CC4WT-Wait 

- $CC4MX - Move 

- $CC4DB - DFCR transient to diagnose put overrides. 

- $CC4DC - DFCR transient to build copy parm list. 

- $CC4DD - DFCR transient to issue message 528. 

- $CC4PI - Transient initiator 

- $CC4FM — Freemain 

- CC4TI2- Terminate a task 

- NCEIOS - Disk IOS 

- NCEIOW - Disk wait 
NOTES: 

- This routine is loaded TO CORE in main storage in 
the user program area when a user program is loaded 
and it requires the services of this routine. This 
routine is loaded by $CC4CR. 

- There are references in this routine to routines within 
the resident CCP. These addresses are resolved by 
$CC4CT when this routine is loaded. The pointers 
to these references are located in the first few bytes 
of this routine, and are overlayed, after the references 
have been resolved, by constants which this routine 
uses. 

- All task dependent information is kept in the PAS 
attached to the user program. 

- Control will not be taken away from this routine after 
a hardware interrupt. 

- $CC4DA is a transient which is also part of DFCR, 
and it executes under the allocate function of CCP. 
Its responsibility is to initialize the PAS. 



CCP Trace ($CC$TR> 

ENTRY POINT: $CC$TR 

CHART: PY 

FUNCTION: Provides a chronological log of significant 

CCP system events. 
OPERATIONS: 

— Trace records, in a circular in-core table, pertinent 
information regarding the flow of control through CCP. 

- Optionally, when the table overflows, it will be written 
to $CCPFILE for subsequent printing. 

INPUT: The current TCB address field in $CCCOM, the 
invoker's ARR, XR1 and XR2, and the ARR, XR1, 
and XR2 in $CCCOM saved by some of the routines 
which invoke Trace. 
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OUTPUT: The input data into a circular trace table and 

optionally, the trace table written to disk when the 

in-core table overflows. 
EXIT, NORMAL: To invoker via the ARR. 
EXIT, ERROR: None - If Trace I/O error occurs, the 

Trace I/O will be turned off by Trace I/O routine 

itself. 
EXTERNAL REFERENCES: See input. 



Trace Halt Service Aid ($CC$SA) 

ENTRY POINT: $CC$SA 

CHART: PZ 

FUNCTION: Facilitates halting CCP when specific events 
are traced. 

OPERATION: $CC$SA is entered whenever CCP Trace is 
invoked to trace an event within the CCP program 
level. The CPU address switches are sensed to determine 
the action taken. Two halts mav appear: 

— A small d, capital P indicates that trace was 
invoked to trace the specified event. 

— A small c, small u indicates that X'FFFF' was 
sensed. The desired trace ID may now be dialed 
in the address switches. 

Note: On Model 4, these halts are: 
dP=ABC2345 
CU = ABC12 
INPUT: 

- Address of $CCCOM in XR1. 

- Address of the Trace Control Block in XR2 

- CPU address switches 
OUTPUT: None 

EXIT: Return to $CC$TR via ARR 
NOTES: 

- When loaded by Startup, $CC$SA is in initial status 
and ignores all trace entries until X'FFFF' is sensed 
in the CPU address switches. When X'FFFF' is 
sensed, a 'cu' halt appears. The desired trace entry 
ID may now be dialed in the righthand address 
switches and HALT RESET pressed. When $CC$SA 
is entered with a matching ID in the current trace 
entry, a 'dP' halt appears. If HALT RESET is pressed, 
and X'FFFF' is not dialed in the address switches, 
$CC$SA returns control to CCP. If X'FFFF' is dialed 
in, the 'cu' halt appears to allow the specification of 

a new trace ID. A response of '0000' to the 'cu' halt 
returns $CC$SA to initial status. If an invalid trace 
ID (that is, not 'XX00'-'XX1E') causes re-issuance 
of the 'cu' halt, a trace ID of '00' causes a halt on 
every trace entry. 

- $CC$SA never halts if '0000' is dialed in the 
address switches. 



Reschedule the TP Line (CMRSCH) 

ENTRY POINTS: 

— CMRSCH — Reschedules work on the line. 

— CMPAII - Posts requester if TP scheduled. 

— CMTSRQ — Checks for more work to be performed. 
CHARTS: QAandQG 

FUNCTIONS: Schedules work on lines that are not busy, 
or stops polling on a Ijne and schedules put operation 
if put operations are pending in the line queue. 

OPERATIONS: 

— If the line is busy and no put operation is in the 
queue, posts requester if TP was scheduled. Checks 
for more work that can be done. 

— If line is busy polling and put is in the queue, cancels 
the get and handles the put. 

— Clears any BSCA op ends left in the LCB, and adjusts 
the op end total count (CCOECT). 

— If MLTA OLT is in process, calls in transient to 
continue the OLT operation. 

— If queue for line is empty, posts the requester. If TP 
was just scheduled, checks for other function that can 
be performed by CM. 

— If a BSCA poll for status operation in the queue, 
handles it before any other operation. 

— If a put operation can be started, performs it next. 

— If neither of above two, then tries to schedule an 
input operation. If no input to schedule, posts the 
requester if TP was just scheduled. Then checks for 
other CM function that can be performed now. 

— If a write operation can be started, sets up the output 
data buffer for the line. Translates the data as 
required or specified. Adds device dependent control 
characters. 

— If new operation on a BSCA, carves up the IOB(s) and 
line buffer(s) as necessary to perform the operation. 
Sets up the line dependent section of the DTF. 
(Polling/addressing characters, switch ID verification 
IDs, switch line call/answer options.) 

— If BSCA operation, sets up to do the get or put-normal, 
put-block, put-end of file, or put-EOT-to-WACK 
operation, as appropriate. 

— If MLTA operation, sets up to do the read, write with 
the appropriate disconnect, continue or conversational 
option as required by the terminal and/or current line 
circumstance. 

— Issue of IOCS call after the DTF is setup. For BSCA, 
calls $$BSMS; for MLTA, calls MLTI01. 

— After issuing the IOCS call, traces the results through 
$CC4TT. 
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— If MLTA start operation code indicates a start 
failure, calls in a transient to determine the problem. 
Otherwise, posts the requester if TP was just scheduled. 
Checks for more work for CM to perform at this time. 

— If BSCA operation is completed without an op end 
interrupt, fakes an op end interrupt to keep the 
function going til completion. Posts the requester if 
TP was just scheduled. Checks for more work to do 
at this time. 

— If checking for more work to be done, then: 

— Checks for MLTA OLT start failure. If yes, goes 
back and tries to reschedule the operation. 

— If BSCA parm list was just queued which is the 
continuation of a previously started line operation, 
then handles the next operation it causes. 

— If there are any op ends to be handled, calls the 
op end handler. 

— If there is a Freemain posted or a TP parameter list 
to be scheduled, calls the TP scheduler. 

— If there is a line to be rescheduled because of ERP, 
goes back to the start of the reschedule function. 

— If there is a console function pending, gives control 
to the KM console management function. 

— Otherwise, if none of above, waits for more work. 

— If posted with work to do, gives control to the KM 
function. 

INPUT: 

— CMSLCB - Address of DTF to be scheduled. 

— CMSPL — Address of TP parameter list to be scheduled. 

— CC@PRL — Address of TP parameter list last scheduled. 

— CCOECT — Op end pending count. 

— TCBMPK - Post mask of work to do. 

— #CMERP - Address of DTF for rescheduling because 
of ERP. 

— @KMQTB — Address of console parameter list awaiting 
operation. 

OUTPUT: 

— CMSLCB - Address of DTF for lir|e scheduled. 

— CMSPL — Address of TP request scheduled. 

— DTF (LCB), TUB - Set up for the operation 
performed. 

EXIT, NORMAL: 

— To CMFRMN if Freemain posted or TP request to be 
handled. 

— To CMRSCH if another line to reschedule. 

— To CMOPND if an op end to be handled. 

— To KMINTR if a console operation to be handled. 



EXTERNAL REFERENCES: 

— $CC4BC - Stops polling to handle put on BSCA line. 

— $CC4MT - Handles MLTA OLT continuation. 

— $CC4BO - Formats 3270 command output. 

— $CC4WR — Handles translate errors in output. 

— $CC4JX — X is the appropriate line translate transient. 

— $CC4SC - MLTA start code failure transient. 

— $CC4TT - CCP Trace Routine. 

— $CC4WC — Switch line call/answer log transient. 

— $CC4WT - CCP wait/post routine. 

— CMIVGM — Invite input/get operation schedule routine. 

— CMRQBF - Posts requester of TP scheduled. 

— CMMCT — Sets up multi-component terminal addresses. 

— CMGINL — Sets up input record length. 

— CMPSCH - Finds switch ID entry in switch ID list. 

— CMASCH — Finds addressing entry in addressing list. 

— MLTI01 - MLTA IOCS. 

— $$BSMS - BSCA IOCS. 

Op End Analysis (CMOPND) 

ENTRY POINT: CMOPND 
CHARTS: QA and QC 
FUNCTIONS: 

— Analyzes each op end for a TP line and determines 
what if anything must be done to complete the current 
TP operation. 

— Routes completed operation back to the user. 

— Reschedules work on the line if no more op ends to 
be handled. 

OPERATIONS: 

— If no op ends, gives control to TP scheduler to check 
for Freemain posted. 

— Sets up the check list to only look at BSCA DTFs 
that have operation completed. Looks at all MLTA 
DTFs. 

— For BSCA DTFs that are set up for check, sets up the 
DTF and TP parameter list fields as appropriate for 
the operation. Sets up the TUB status, record length 
and line ownership fields. Checks for Data Mode 
Escape request on input operations. 

— Calls the common TP check routine with the address 
of check list in XR2. 

— For BSCA, if 56 completion code, adjusts op end 
count in appropriate BSCA DTF. Traces the operation. 
Note: The trace entry will show the current comple- 
tion code of the DTF, not necessarily the 56. 

— If abort operation, handles the abort until it is 
complete. Then reschedules the line. 

— If stop invite request, calls the appropriate transient 
to handle the request. (BSCA-$CC4BQ, 
MLTA-$CC4SQ.) 
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If MLTA operation and swallow the data operation, 
then ignores the incoming data. 
If MLTA OLT op end, calls transient to handle the 
operation. Then goes to schedule the next operation. 

■ Finds the op ended parameter list and sets on the poll 
skip bit. 

Traces the op end after calling check through $CC4TT. 

■ If an error occurred, calls the appropriate ERP 
transient. (BSCA-$CC4BE, MLTA-$CC4MA.) On 
return, either posts the results to the user, reschedules 
the line, or handles the data in the line buffer. 

If write op end, then: 

— If BSCA record was shorted then defined at 
assignment time, calls transient to fill out the 
record to correct length. 

— Sets up the return code for the results of the 
operation. 

— If BSCA is not complete, calls reschedule function 
to complete the operation: 

- EOT must be sent. 

- Operation not complete because CLEAR key is 
being handled. 

— If BSCA operation is complete, then: 

- If DFF PUT, frees the DFF hold buffer. 

- If op end of a user PUT, sets off PRUF 
indicator (TUBSCS) in the TUB. 

- If op end of a PUT-PRUF, sets on PRUF 
indicator (TUBSCS) in the tub. 

— If put-then-get, sets up the get operation in the 
internal op code, then reschedules the line. 

— If operation is completed, sets up to post the 
requester of the results. 

If read op end, then: 

— If BSCA receive initial was last op, checks for any 
conflicting operation in the line queue, and rejects 
them if any found. 

— If BSCA message mode input, sets up to consolidate 
all blocks into one message. Sets up to reschedule 
line and get to EOT before returning to the user. 

— If Data Mode Escape recognized in the input data 
stream, sets up post of the Command Processor. 

— If valid input data, moves, translates, and truncates 
the data as required. 

— If 3270 BSCA input, checks for CLEAR key hit 
and handles it. 

If completed data operation, then: 

— Removes the TP request from the line queue. 

— Frees up put-no-wait hold buffers. 

— Posts the requester of the TP operation that it is 
complete. 

— Queues invite input parameter list onto the TCB. 

— Checks for more op ends and handles if there are 
some, otherwise goes to reschedule line. 



INPUT: 

- CCOECT — Op end pending count. 

- CCLCB1 - Address of list of TP lines in CCP. 

- CCKLST- Address of CCP check list. 

OUTPUT: 

- CCOECT - Adjusted for op ends handled. 

- CMSLCB - Address of DTF handled for last op end. 

- CMSPL - Address to TP parameter list for last op end. 

- TCBINQ - Queue of invites that have completed. 
EXIT, NORMAL: 

- To CMRSCH to reschedule work on the line. 

- To CMOPND if more op ends to be handled. 

- To CMFRMN if no op ends to handle. 
EXTERNAL REFERENCES: 

- $CC4BI - BSCA DM E Transient. 

- $CC4BQ - BSCA Stop 1 1 Queue Analysis Transient. 

- $CC4SQ- MLTA Stop II Queue Analysis Transient. 

- $CC4SK - MLTA Skip Bit Transient. 

- $CC4T2 - MLTA OLT Op End Transient. 

- $CC4TT - CCP Trace Routine. 

- $CC4BE - BSCA ERP Transient. 

- $CC4MA - MLTA ERP Transient. 

- $CC4BB - BSCA Record Blank Transient. 

- $CC4PS - CCP Post Routine. 

- $CC4BR - BSCA Reject Transient. 

- $CC4B A — 3270 Sense/Status Transient. 

- $CC4B5 - 3735 Sense/Status Transient. 

- $CC4B7 - 3741 Sense/Status Transient. 

- $CC4JX - X is appropriate translate transient. 

- $CC4WR — Translate Error Transient. 

- $CC4BO - 3270 Input Format Transient. 

- CMBSKP - BSCA Skip Bit On/Off Routine. 

- CMONSK/CMOFSK - MLTA Skip Bit On/Off Routine. 

- CMGINL— Input Record Length Routine. 

- CPHALT - CCP Halt Routine. 

- CMFMRT— Freemain Routine. 

- CMGMRT- Getmain Routine. 

- CMPSRQ - Post TP Scheduled Routine. 

- $$BMCH — Common TOP Check Routine. 

Accept TP Requests (CMFRMN) 

ENTRY POINTS: 

— CMFRMN — Checks for Freemain posted. 

— CMREQ — Handles new TP request parameter list. 
CHARTS: QAandQE 

FUNCTIONS: 

— Accepts TP parameters from the system and/or user. 

— Performs the function requested if it can be handled 
immediately, otherwise, places the parameter into 
the LCB line queue of work to be done. 
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OPERATIONS: 

— Before handling any new TP parameter list, unless 
the parameter list is a put-no-wait, handles any line 
rescheduling resulting from a Freemain post, which 
indicates the availability of more main storage core. 
If a put-no-wait is received, schedules it before 
checking for Freemain posted. 

— Sets up the internal operation indicators for the TP 
request just received. 

— If this is a disconnect request, insures that the line 
is not connected to the specific terminal. If no 
invite request is involved, posts TP completed to 
the system. If an invite is indicated, treats like an 
invite only request. 

— If a put operation to a terminal in CCP ERP, ignores 
the put operation. Posts the user TP complete if no 
input operation indicated. If a put-then-get, treats 
like a get/invite only operation. 

— If DFF get request, makes internal op code an invite 
input and treats it like an invite input through the 
rest of CM. 

— If MLTA online test (OLT), sets up the execution of 
the MLTA OLT request. 

— If a stop invite or purge I/O, calls in the MLTA 
($CC4PG) or BSCA ($CC4BP) series of transients to 
handle these operations. On return from these 
transients, does windup operations of scheduling TP 
request. If the BSCA transient indicates an abort of 
the line is required, sets up the abort operation. 

— If a regular TP data operation to a BSCA line, checks 
to insure that it does not conflict with what is currently 
being performed on the line. 

— If invite input request, moves the TP parameter list 
into the TUB parameter list field and uses the TUB 
parameter list for any further reference to this 
operation. 

— If put-no-wait to M LTA or put-no-wait message to 
BSCA and space is available for the parameter list and 
data, moves the parameter list and data to a hold 
buffer and use the hold buffer for any further 
reference to this operation. Otherwise, treats the 
request like a put-wait operation. 

Note: A put-no-wait message to a BSCA switched 
line is also treated like a put-wait. 

— If a TP request that requires data transfer, queues 
the request onto the line queue for the appropriate 
LCB. 



- After queueing up a new TP request, checks the 
status of line to: 

- Include a new get/invite if polling is already going 
on. 

- Stop a polling sequence if a put request was just 
received. 

— Continue operation if the request just received is 
the continuation of a previously started BSCA line 
operation. 

- Exits to the reschedule logic to: 

— Post completion of the TP scheduled operation. 

— Perform the next priority action on the line. 

- Check for other work within CM that can be done 
at this time. 

INPUT: 

- CC@PRL - Address of TP request parameter list. 

- CMLLCB - Address of last LCB handled for Freemain 
posted check. 

OUTPUT: 

- CMSPL — Address of the TP request last placed into 
the line queue. 

- CMSDTF/CMSLCB - Address of the line DTF for 
the last TP request scheduled. 

EXIT: To the line rescheduling function for the reasons 

specified in the last point under operations. 
EXTERNAL REFERENCES: 

- $$CLOZ - Closes BSCA switched line for disconnect 
operation. 

- $$OPEN - Re-opens the BSCA switched line after a 
disconnect operation. 

- $CC4MP — Transient to ignore a put to a terminal in 
CCP ERP. 

- $CC4T1 - Transient to handle MLTA OLT request. 

- $CC4BP - Transient to handle BSCA stop I l/purge 
I/O. 

- $CC4PG - Transient to handle MLTA stop I l/purge 
I/O. 

- $CC4BR - Transient to reject a TP request that 
conflicts with a current line operation. 

- CMIVGM — Handles a new invite input request. 

- CMSTOR — Determines storage requirements for 
no-wait operations. 

- CMGMRT - Gets hold buffer space for no-wait 
operations. 

- CMSET — Formats hold buffer space for put-no-wait 
operations. 
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Invite Buffer Analysis Routine (CMIVGM) 

ENTRY POINT: CMIVGM 

CHART: QK 

FUNCTIONS: Analyzes and obtains Getmain buffer for 

invite input operations in the line queue. 
OPERATIONS: 

- If BSCA poll for status is in the queue, sets all 
polling skip bits on. 

- If LCB currently has a hold area, Freemains it. 

- If get operation to be scheduled, sets up to handle it. 

- If system invite to BSCA switched line owned by a 
user program, ignores the system request for now. 

- Determines storage requirements to schedule each 
invite operation. 

- If storage not available, ignores the request. 

- If storage is available, sets up to handle it. 

- If BSCA poll for status, schedules it by itself. 

- Getmains the space needed to schedule operations 
on the line. 

- Sets up the LCB hold area to reflect the space acquired. 

- Sets up Getmain parameter list in the acquired area. 
INPUT: At least one parm list in the line queue. 
OUTPUT: 

- XR1 - Address of the last TP parameter list in the 
queue. 

- XR2- Address of the DTF. 

- CMSPL - Address of last get/invite parameter list 
not in CCPERP. 

EXIT, NORMAL: To NSI of caller. 

EXIT, ERROR: To CPHALT with a 4 halt if the Getmain 

fails. 
EXTERNAL REFERENCES: 

- CMFMR2 - Frees LCB hold buffer before starting 
analysis. 

- CMSTOR - Determines storage need for invites. 

- CMBSKP - Sets BSCA poll skip bits on/off. 

- CMONSK/CMOFSK - Sets MLTA poll skip bits on/off. 

- CMGMRT - Getmains hold buffer to schedule invites 
on the line. • 



Getmain Size Determination Routine (CMSTOR) 

ENTRY POINT: CMSTOR 
CHART: QL 

FUNCTION: This routine calculates the amount of main 
storage needed for a particular type of TP request. 
OPERATIONS: 

- Always adds four bytes for the Getmain parm list. 

— If a put operation, adds PLOUTL. 

- If a put then get operation, adds 16 for the TP 
parameter list. 

— If a poll for status operation, adds 20. 

- If system invite only, adds CC#MCL and moves 
CC#MCLintoPLINL. 

— If user invite only, add PLINL. 



INPUT: 

— XR1 - Address of the TP parameter list. 

— XR2 - Address of the DTF for the TP parameter 
list. 

OUTPUT: 

— XR1 - Not altered. 

— XR2- Not altered. 

— #BUFND — Total amount of storage need for the TP 
request. 

EXIT: To NSI of caller. 

Format Put-No-Wait Area Routine (CMSET) 

ENTRY POINT: CMSET 

CHART: QM 

FUNCTION: This routine formats a storage area for a 

put-no-wait operation. 
OPERATIONS: 

— If a system put-no-wait then get operation, moves 
the TP parameter list into the TUB. 

— If any other put-no-wait, moves the TP parameter 
list into the first part of the Getmained area. 

— Moves the Getmain parameter list into the acquired 
area. 

— Finally, moves the data into the acquired area. 
INPUT: 

— XR1 — Address of the TP parameter list. 

— XR2 — Saved and restored. 

— GMLIST — Getmain parameter list. 
OUTPUT: 

— XR1 — Address of the TP parameter list. 

— XR2 — Restored to entry value. 

— Getmain area-formatted as defined above. 
EXIT: To NSI of caller. 

EXTERNAL REFERENCES: $CC4MV - Moves data into 
Getmain area from user TP parameter list. 

Post TP Scheduled (CMPSRQ) 

ENTRY POINT: CMPSRQ 

CHART: QS 

FUNCTION: Posts requester that his TP operation has 

been scheduled. 
OPERATIONS: 

— Posts the requester of the TP operation that it has 
been scheduled for execution unless the operation to 
be posted is to a terminal in command interrupt mode. 

— Posts the Command Processor ($CC4CP) if the terminal 
' is in command interrupt mode. 

INPUT: 

— XR1 - Address of the TP parameter list. 

— XR2 — Saved and restored. 
OUTPUT: 

— XR1 — Address of the TP parameter list. 

— XR2 — Restored to entry value. 
EXIT: To NSI of caller. 

EXTERNAL REFERENCES: $CC4PS - Posts the 

requester that the TP operation has been scheduled. 
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Operation Input Length Determination Routine (CMGINL) 

ENTRY POINT: CMGINL 
CHART: QU 
FUNCTION: 

— Determines the input record length. 

— Sets truncated indicator if input length is less than 
actual data length. 

OPERATIONS: 

— Sets the input length for the operation. 

— Polls for status, (uses 20). 

— Record mode input — Uses PLINL if PLINL less 

than TUBRCL. 
- Uses TUBRCL if PLINL 
greater than TUBRCL. 

— If not MLMP variable length record support, adjusts 
the input length if less data is available in the actual 
line buffer than is requested. 

— If more data is available in line buffer than requested, 
then sets the truncated data indicator. 

— If pure get request or a message mode input at other 
than receive initial time, returns to user after 
performing the above functions. 

— Otherwise, adds four bytes for Getmain parameter 
list. 

— Frees the current LCB hold buffer if it is larger than 
needed and Getmains the exact hold area needed. 

— If Getmain area not available, waits for it to be 
available. 

— Otherwise, sets up the acquired area for the invite 
input operation. 

INPUT: XR2 - Address of the DTF. 
OUTPUT: 

— XR1 - Not restored. 

— XR2 - Address of the DTF. 

— $BDREL — Sets up for input length of the next record. 
EXIT, NORMAL: To NSI of caller. 

EXIT, ERROR: If space is not available, exit to CMPAII 

and wait until the required space is available. 
EXTERNAL REFERENCES: 

— CMFMRT — Freemains current hold buffer if larger 
than is needed. 

— CMGMRT — Getmains exact buffer needed. 



BSCA Trace Interface <$CC4BT) 

ENTRY POINTS: $CC4BT - Initial and only entry to the 
routine. 

CHART: QZ 

FUNCTION: The function of this module is to provide the 
interface between the CCP MLMP routines and the 
BSCA trace routine. The entry point specified as an 
EXTRN in the MLMP routines is now an entry to 
$CC4BT and the BSCA trace routine is an 0— module 
loaded by CCP Startup. $CC4BT tests for the BSCA 



Trace routine being in main storage by testing 
@BTRAC field in $CCCOM. If the field is non-zero, 
the field contains the entry address of the actual 
BSCA Trace Routine, and it is called. The Trace 
Routine returns control through $CC4BT and back to 
the user via ARR. 

INPUT: None 

OUTPUT: None 

EXIT: To $$BSMT (BSCA trace) if the Trace is present 
in the system. When control returns, exit is to the 
caller via the ARR. 

EXTERNAL REFERENCES: CC@BTR - Entry name of 
@BTRAC in $CCCOM which contains the address 
of the BSCA Trace Routine. 



BSCA Set Polling Skip Bit Routine (CMBSKP) 

ENTRY POINTS: 

— CMBSKP - All functions below. 

— CMASCH — Only find the entry in the addressing 
list. 

— CMPSCH — Only find the entry in the polling/switched 
ID list. 

CHART: RF 

FUNCTION: Sets the skip entry indicator on/off in the 

BSCA polling list or the BSCA switched line ID 

verification list. 
OPERATIONS: 

— If this DTF or this particular operation does not 
involve one of the BSCA list, returns without setting 
skip bit. 

— Otherwise, finds the entry in the appropriate list. 

— Sets the skip bit as specified for all entries for the 
same terminal. 

INPUT: 

— XR1 — Address of the TP parameter list. 

— XR2 - Saved and restored. 

— CMB#SB - SBN2 (X'BA') Set the skip bit on, or 
SBF2 (X'BB') Set the skip bit off. 

— TUBSID - ID of the entry (s) to perform the 
operation on. 

OUTPUT: 

— XR1 — Address of the TP parameter list. 

— XR2 — Restored to entry value. 

— Polling/switched ID list-skip bit for appropriate 
ID set as specified. 

EXIT, NORMAL: To NSI of caller. 
EXIT, ERROR: CMASCH/CMPSCH will return to NSI+3 
if the entry is not found. 
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CPINIT 

****A1********* 

* * 

* INITIAL ENTRY * 

* * 
*************** 



V (DPF ONLY I 

*****B1* ********* 

* * 

* REPLACE DSM * 

* HALT EPA WITH * 

* CCP HALT EPA * 

* « 
***************** 



****+Cl#*ft ******* 

* * 

* SET ADDR FOR * 

* BSCA OTF ADDR * 

* TO BE SET * 

* * 
***************** 



V 8P.0100 

*****ui ********** 
*$CC3LD * 

* * 

* RETURN TO * 

* STARTUP * 

* * 
***************** 



****El********* 

* * 

* RE-ENTRY * 

* * 
*************** 

FROM STARTUP 
VIA ARR 



(ENTERED FOR 
DPF ONLYI 



.*.SEE NOTE 


Fl *. 


.* *. 


NO .* ANY *. 


— *. BSCA DTF .* 


*. .» 


*. .* 


V *• .* 


**** * YES 


* 




Jl * 




* 




**** 






SEE NOTES 


1 1 ANO 2 

*****G1 ********** 


* * * * 


* *ALLOCATE + * * 


* * OPEN 


BSCA * * 



*****B2********** 

* SET CCP IAR * 

* O-BYTE INTO * 

* RESIDENT * 

* ROUTINES * 

* * 
***************** 



*****C ?*******#** 

* HOVE CCP * 
♦INTERCEPT EPA'S* 

* INTO DSM LOW » 
♦STORAGE ENTRIES* 

* * 
***************** 



*****D2 ********** 

4 * 

* SET ADDR OF * 

* DISK ERP BYTE * 

* INTO CCP * 

* * 
***************** 



*****E 2* ********* 

* * 

* SET CCP * 
♦TRANSIENT lOB'S* 

* O-BYTE * 

* * 
***************** 



*****F2********** 



•SET SY 

♦ PACK 



S t PROG 

8-BYTE 6 

L1BR C/S ADDR ♦ 

* INTO $CC4IG ♦ 

* * 
***************** 



V (DPF ONLY) 

*****G z********** 



SUHCHK 

**** A3 ********* 

* ENTER 

* 
*************** 



***** S3 ********** 

* HALT HAS ♦ 

* OCCURRED, SEE ♦ 

* WHAT RESPONSE * 

* WAS GIVEN * 

* * 
***************** 



2 OR 3 ♦. YES 

RESPONSE .* 



*****03********** 



RESTORE DSM 
HALT EPA 



***************** 



*****£?♦♦♦*♦♦♦♦*♦ 



* RESTORE OTHER ♦ 

* LVL IAR ♦- 



****C4***^***+ 

♦ OSM HALT * 
->* ROUTINE * 

♦ ♦ 
♦♦♦*****«****** 



***************** 



RESTORE DSM 
HALT EPA 



***************** 



*«***HL********** 
♦ SET EPA OF * 
*$CC4I6 INTO DSM* 
*BSCA INTERRUPT * 



***************** 



V (DPF ONLYI 

***** J 1********** 

* * 
♦COMPUTE CCP IAR* 

* 8-BYTE * 



***************** 



***************** 



V IDPF ONLYI 

*****H2********** 

* * 

* RESET IAR OF * 

* NON-CCP PROG * 

* LVL * 

* * 
***************** 



*****J2********** 



*SET CCP ACTIVE * 
♦BITS IN NCCONF * 



***************** 



****K2 ********* 

* * 

* EXIT * 



THIS CODE FOR BSCA ONLY - 
NOT PERFORMED ON MODEL 4 

5YSTEMMCONTROL/PROGRAMSLOG1CS 
MANUAL, SY21-0502, FOR ALLOCATE 
ROUTINE DESCRIPTION. 

SEE IBM SYSTEM/3 DISK SYSTENSOATA 
MANAGEMENT AND INPUT/OUTPUT SUPERVISOR 
LOGIC MANUAL, SY21-0512, FOR OPEN ROUTINE 
DESCRIPTION. 



*************** 

TO! $CC4SU VIA 
*CC4CP (CHART PCI 



Chart OA. Resident Startup Initialization Routine (CPINIT) 
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*CCYIC 

****A1*** ****** 

* * 

* ENTER * 

* * 
*************** 



V 0F/01/A1 

*****B1********** 
**CC*IH * 



* COMMON * 

* INTERRUPT * 

* HANDLER * 

***************** 



*****d********** 

* + 

* INDICATE * 

* CONSOLE * 

* INTERRUPT * 

* * 
***************** 



****D1* ******** 

* * 

* RETURN * 

* * 
*************** 



»CC4IB 

****A1********* 

* * 

* ENTER * 

* * 
*************** 



.* ERROR 
*. PENDING 



,* 
■ .* 
* NO 



* DELAY *. NO 

IOB IN USE .* 

*• .* 

*. .* 



C2 
.* FIR 
* I" 



FIRST *. 
OB IN * 
CHAIN 



Chart OC. Console Interrupt Intercept ($CC4IC) 



♦INDICATE OP END* 
->*PFN01NG ON BSCA* 



***************** 



V OF/Ol/Al 

*****D3 ********** 
*«CC4!H * 

* * 

* INTERRUPT * 

* HANDLER * 

* * 
***************** 



****F* ********* 

* * 

* RETURN * 

* * 
*************** 



Chart OD. BSCA Interrupt Intercept ($CC4IB) 



9-100 



StMLDD 

* * 

* ENTER * 

* * 
*************** 



*****B1********** 



♦INDICATE ENTRY »■ 
* POINT 1 * 



***************** 



MLTOP1 

*#** A 2^* ******* 

* * 

* ENTER * 

* * 
*************** 



*****R2********** 



♦INDICATE ENTRY * 
* POINT 2 * 



***************** 



MLT002 

**** A3 ********* 

* * 

* ENTER * 

* * 
*************** 



*****R3 ********** 



♦INDICATE ENTRY 
* POINT 3 



***************** 



*. NT 
.♦--- 



OP END 
COMPLETE 

*» •♦ 
*. .♦ 
♦ YES 



V (lf/Ol/Al 
*****03********** 
♦«CC4IH * 



* HANDLER * 
***************** 



#***#£ 3**** ****** 



*ADD 1 TO PP ENO^ 
* COUNT * 



***************** 



.* 



V 

.♦. 

F3 ♦. 

* *. 
MLTA *. N 
TRACF .*-■ 

*. ACTIVE .* 

♦ . .♦ 

♦ . .♦ 
* YFS 



****Pi********* 

* * 

* RETURN * 

* * 
*************** 



* TO MLTA TRACE * 

*************** , ... T 

MOTE! LOCATION np CNTRY POINT 
IN tCCtNL IS CALCULATED BASFO 
DN EN TOV It ,T THIS MODULE 
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ICCIH 

****A1********* 

* * 

* ENTER * 

* * 
*************** 



Bl *. 

.* *. 

* INTERRUPT * 

PROCESSING 
«. PENDING .» 



*****C 1********** 

* * 

* * 

* SAVE CCP IAR * 

* * 

* * 
***************** 



(MINRES=NO E MODEL 4 



**** 

* * 

* C3 * 

* * 

**** 



*****C3*4****4*«* 
*IF A LOWER LVL * 
•INTRPT PROCESS * 

* WAS INTRPTED * 
♦CONT. IT AFTER * 

* THIS ROUTINE * 
***************** 



01 *„ 
.* *. 
.* CCP AT *. ND 

*. HALT .* 

*• .* 

*. ..* 
*. .* 
* VtS 



*****£ L ********** 



RESET CCP IAR 
BEYOND HALT 



***************** 



* C3 * 

* * 

**** 



D3 *. 
.* HAS *. 
.* LOWER LVL *. 
*. IN 

*. PROCESS .* 



*****E3********** 

* * 
♦RESET LOWER LVL* 

* IAR TO BEYOND * 

* THIS ROUTINE * 

* * 
***************** 



****F3*+******* 

* * 

* EXIT VIA ARR * 

* * 
*************** 



V 
.*. 
Gl *. 
.* *. **** 

.* CCP IAR *. NO * * 

*. IN USER .* >* C3 * 

*. AREA .* * * 
*. .* **** 





* YES 


a 

"• Hi" 
.* 

.* CCP 
*. IN D 
*. 
*. 

■ *. 

■ 


OFF 
ONLY 

». 

*• 

*. **** 
IAR *. YES * * 

F.F. .* >* C3 * 

.* * * 
• » **** 
.* 
1 NO 


\ 





*****J1 *****!***** 

* * 

* SET UP CCP TO * 

* TAKE CONTROL * 

* FRON TASK * 

* * 
******** ********* 



****+« 1********** 

* * 

* RESET CCP IAR * 

i T J c ^gp QF : 

* * 
***************** 
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$CC*DP 

* ENTER * 

* * 
******#***♦*+♦♦ 



*****e i********** 

* * 

* SAVE INPUT ♦ 

* REGISTERS IN * 

* *CCCOM * 

* * 
**********♦♦♦♦♦** 



**** 

* * 

* B2 * 

* * 
**** 



.*. 
B2 *. 



**** 

* * 

* B3 * 

* * 
**** 



I. 



* END OF *. NO 
SYSTEM TCBS .» 



.* 
.* 
VES 



.*. 

83 *. 

.* *. 

ALL 

USER TC6S 

. CHECKEO .' 



. VES 
, * 1 



**** 

* * 

* B4 *— 7 

* * 
**** 1 

V OV/01/B4 

*****e<v ********** 

*$CC*TT * 



THE DISK 
(ID-04) 



♦TRACE 

* WAIT 

* * 
***************** 



* Jl * 

* * 
**** 



* E3 * 

* * 
**** 



MINRES 

-NO 

SYSTEM 

NO .* 
— *. 



V 

***** 

♦ 002* 

* F4* 



**** 

* * 

* B5 * 

* * 
**** 

I 
V 
.*. 

B5 *. 
,* *. 

ANY * 

TASK COME 

, READY .* 

*. •* 

*. .* 

* NO 



*****C1 ********** 



♦INCREMENT FIELD* 
♦LIGHT FOR MODEL* 



***************** 



*****DL ********** 
*$CC4TT___ * 

*"NmAL"iNIRY * 

* TRACE ! ID-Oil * 

* * 
***************** 



♦SAVE STATUS OF * 
♦TASK ADDRESSED * 

* BY SCURTB * 

* ♦ 

♦♦**♦****«****♦♦♦ 



♦ RESET SDPFLH, 

♦ DP INT 



********i>*******+ 

**♦* 

* * 

* Gl ♦-> 

* * 
**** V 

DPACA ...„_ 

.* COMM *. 
.* TASK ♦. 
->*. WAITING FOR .♦ 
| ♦.DISK I/O .* 



*002* 
* K4* 

***** 



*. 



DPAE .* 

.* IS A ♦. 

.* MUST * 

*. COMPLETE IN 

*. EFFECT .♦ 

♦ . •* 

*. .* 

* NO 



**** 



V 
.*. 

D2 *. 
.* IS *. 
.* THERE AN *. NO 

*. INTERRUPTED .* >* G2 

*. TASK .* 
*. .* 

*. .* 
■ NO 



*****C3********** 



GET NEXT TCB 
AODRESS 



♦♦♦♦*♦*******♦♦♦* 

I*** + 
* * 
->* K2 * 

* * 

**** 



V SEE NOTE 
♦♦♦**C4**+******* 



♦GO TO DISK * 
*WAlT NCEIOW* 



***************** 



FILE SHARING I SYSTEM ONLY 



**** 



♦ *«* 
♦ 
E3 *— 7 



E2 



*. 



.* PROC *. YES 

*. WAITING FDR .* 7 

♦.DISK I/O .♦ 

♦ . .♦ I 

*. .* V 

**** 



**** | 

DPNOGO V 

" *****E 3********** 

* SCAN SYSTEM * 

* TCBS FOR DISK * 

* WAIT * 

* . * 
***************** 



*♦♦* 
♦002* 
• A3 



*-> 



NO 



* E3 * 

♦ ♦ 
♦ ♦** 



♦ ♦. 
ANY S8B ♦• NO 
TO FREE .♦ 7 



*♦** 

* A 

* G4 * 

* i 
♦ ♦♦♦ 



MINRES-YES SYSTEM_ 
1 *****C5 ********** 

* APL * 

: s 

*****♦**♦♦♦*♦*♦♦♦ 

I**** 
*, ♦ 

->* Gl * 

* * 
♦ ♦♦* 



* Gl* 

* * 
**** 



***♦ 

DPAEtt V DPAEA 

*****F 2********** 

* PREPARE TO * 

* RESUME THE ♦ 

* INTERRUPTED ♦ 

* TASK * 

* * 
***************** 

*♦♦* 



'->: 81% 



* GO TO NCEIOW 

* WITH A DUMMY 
♦ICOMPLETEI iob 

* 
♦♦♦♦♦*******♦♦*** 



♦ E3 * 

♦ * 
*♦*♦ 



* ) 

*** 



F3 


*. 




♦ . 


YES .♦ 


ANY ♦. 


--♦. WA 
1 ♦ .D 


TING ON . 
SK I/O .♦ 


* 




V 


*. .♦ 


*♦** 


* NO 


* 






J3 * 












**** 








V 


*♦♦♦* 




* 




♦ SCAN 


USER TCBS 


* FOR 


DI 


SK WAIT 



OPFRSQ. V ON/01/A1 
*****£<,********** 
♦RODPFR * 

* * 

* FREE THE * 

♦ENCUMBERED SOB ♦ 

♦ * 
***************** 



*****F4********** 

* * 

* RESET THE IOB * 

* DISK AODRESS * 

* FIELD TO FFFF ♦ 

* ♦ 
♦*♦********♦♦♦*** 

♦ *** I 



* G2 * 

* * 

**** 



DPCKCM jH1 -»- % 

.** COMM "*. YES 

♦. TASK HAVE .* 

♦. WORK •* 
♦ . •* 
♦ . ■♦ 
NO 



**** 

♦ ♦ 

♦ Jl ♦ 

♦ ♦ 

*♦♦ + 



V 

***** 
*002* 
* B3* 



* SCAN SYSTEM ♦ 

* TCBS FOR A * 

* READY TASK * 

* * 
******** ********* 



*****H 2********** 

* * 
♦SCAN USER TCBS * 

* FOR A READY * 

* TASK * 

* * 
***************** 



* J2 S*"* 

.*'last a user'*. no 

♦.exiting must .♦ 7 

♦.complete .* 

*. .* I 
*. .* V 

* YES ♦♦** 
**** * * 

* B3 ♦ 



****♦♦♦«**♦♦♦♦♦♦♦ 



H3 



.♦ ANY 
*. WAITING ON 



.♦ 
.♦ 
YES 



WAITING ON 
•.DISK I/O 
*. 
*. 

***♦ 

* ♦ 

* J3 ♦-> 

* ♦ 
♦♦*♦ 

V 

* * 
♦GET IOB ADDRESS* 

* FROM TCB *- 

* * 

* * 
***************** 



* G* *-> 

* * 
*♦*♦ I 

V 
*****G4********** 

* * 

* CLEAR THE TCB * 

* IOB AODRESS * 

* FIELD * 

* * 
***************** 

I**** 
* * 
->* Gl * 
* * 
*♦** 



***♦ 

* * 

* .14 * 

* ♦ 
♦ ♦** 



DPURCK V OJ/Ol/Al 
" *****J4********** 
*»CC4PS * 



**** 



* POST ANY TASK ♦ >♦ BB * 

♦WAITING ON UNIT. * * 

* RCD DEVC RDY * **** 
***************** 



* K2 

* 
*♦♦♦ 



*-> 



**** 



♦ B4 ♦ 

* ♦ 
«♦♦* 



V 0H/02/A1 

*****K !>>**+**♦**♦ 
♦DPTEST ___ * 

* - sii - jF TCB IS * 

* D1SPATCHABLE * 

* ♦ 
♦♦♦♦♦*******♦♦♦♦* 



V 0H/02/A1 
*****K2********** 
*DPTEST _* 

*~sII~IF TCB IS * 

* DISPATCHABLE * 

* * 
***************** 



E! SEE IBM SYSTEM/3 DISK SYSTEMS 

CONTROL PROGRAM 



LOGIC MANUAL, SY21-0502 
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**** 

* * 

* A? * 

* * 

44** 



DPTEST 

****A1********* 

* * 

* ENTRY * 

* * 
*************** 



DPBAr .*. 

A3 *. 
,*TS THIS*, 
.♦SUSPFNOFD P.*. YCS 

*. TNTFRRUPTPn . * 

*. TASK ,* 

*. .* 

.* 



* WO 





.* MUST 


# 


NO 


* 


COMPLETE III 


*-_ 




*- EFFECT 


* 






*. . * 








*. .* 








* YES 








! 








.*. 








Cl *. 








.* *. 








* 'IS THIS 


4, 


YF 


* 


COMM TCB 




*— 




*. ■ 


* 






*. . * 







**** 
#001* 
* HI * 



npxiT v 

*****R3********** 



****** *********** 



01 *. 
.*!§ THIS*. 
THE MUST *. 

CC1MPLETF 
. TASK .* 

*. , * 

*. . * 
* YES 



V NO .* IS IT *. 
*.OISPATCHABLF .* 

*. .* 



****G1********* 

* * 

* EXIT VIA ARP * 

* * 
*************** 



**** 

*001* 

* F? *-> 



**** 
DPXITA V 

*****(■ 3 ********** 

* * 

* SET iCCroM * 
*5>CURTB CURRENT * 

* TCR * 

* * 
***************** 



*****pq ********** 

* DECPFMFNT TCR * 

* RFG SAVE * 

* ADDRESS IF * 

* NFC«=SSARV * 

* * 
***************** 



*****(= 7**4 ******* 
4 * 

* RELOAD FROM * 
*TCR: XRlt X"?, * 

* PSR * 

* * 
***************** 



****F7 ********* 
EXIT VIA tnar> * 

IAR * 

* 
*************** 



* F?* 



HPF SYSTFMS HNLY 

OPTTA" 

****r,5 ********* 

* * 

* ENTRY * 
4 * 

*************** 



SR .*. 

T C *. 

UAL) .* *. 

MO .* CURRFNT *, 

*. TAP - COP .* 

*. TAR .* 

*• .* 

*. .* 
* YES 
fPSR FOUAL) 



****P5********* 

* * 

* EXIT VTA APR * 

4 * 

*************** 



***** 

*nri* 
* ns* 



MTMRF$-WO|SYSTFM 

*****F4********** 



*TUPN ON HALTTNG* 
* BIT * 



***************** 



.* ANY *. VPC 

. WPRK POP .* , 

*.rnMM T4<:k.* i 



* Njn **** 

J * * 

i * ka * 

* * 

**** 



***** HA ********** 



* iMrPFHPwr * 

* PAMPUNG Hfi ' T * 



***************** 



*****J4*** ******* 



MA(.T' 7 N 



************* **** 

PFSF T 
**** 

* * 

* K4 *-> 

* * 
**** 

l 
***«*K4 ********** 

* * 

* fLFAP THF * 

* HALTING BIT * 

* * 

* * 
***************** 



*r^i * 

* pi* 
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*CC*HT 

****A1*** ****** 

* ENTER * 

* * 
*************** 



V OV/01/A2 

*****B1 ********** 
♦CCPSAV * 



**** 

* * 

* R3 * 

* * 
**** 



V 0V/T1/R3 

*****B3 ********** 
*CfPRST * 



•SAVE REGISTERS * 

* * 

***************** 



*****d********** 



♦GET CURRENT TCB* 

* ADDRESS * 



***************** 



*****D1 ********** 



♦CLEAR ITS POST * 
* MASK * 



***************** 



***#*E=1 ********** 

* * 
♦MOVE WAIT MASK * 

* AND COUNT TO * 

* TC8 * 

* * 
***************** 



.* EVENT 
*. COUNT = 
*, . 



*. NO 



V OV/02/0? 

****G1********* 
♦CPHALT * 

*~~PS SUBHALT * 
*************** 



I 
V 

*****H1* ********* 

* * 
*S6T TCBRCT FROM* 

* TCBECT * 



***************** 



*****J1* ********* 

* * 

* < OR* INTO * 
**DPFLG THE PAR»* 

* FLAG RYTE * 

* * 
***************** 



***************** 



*****C3 ********** 

* * 

* STEP THE ARP * 

* OVER THE PARM * 

* LIST * 

* * 
***************** 



****D3 ********* 

* * 

* EXIT * 

* * 
*************** 

to: *cr<inp 

CHART OH 

VIA 
LOAD IAR 
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«CC4PS 

****A1 ********* 

* * 

* ENTRY * 

* * 
*************** 



*****B1* ********* 

* * 

* POST MASK TCP * 

* ADM OR ODNN * 

* FOR GEN POST * 

* * 
***************** 



MASK 
NONZERO . 

*. .* 



V 

• *. 

Dl *. 

• * *. 

.* TCB *. 

ADDR 

*. NONZERD .* 

*. .* 

*• .* 

* YES 



V OV/01/B+ 

*****E1********** 
*»CC4TT * 

* * 

*TRACE THE ENTRY* 

* (10-071 * 

* * 
***************** 



*****F1********** 

•INITIALIZE TEST* 

* ANO SET * 

* INSTRUCTIONS * 

* * 
***************** 



*****G1 ********** 



♦SET TCB ADDRESS* 
* FROM PARMS * 



***************** 



HI *. 
.* *. **** 

.* GENERAL *. NO * * 

. POST WANTED .* >* B1 * 

*. .* * ' * 

*. .* **** 

*. .* 
* YFS 



*****J1* ********* 



*SET TCB ADDR TO* 
* COMM TASK TCB * 



***************** 



****D2********* 
V *CPHALT * 

* U-, f>5 HALT * 

*************** 



**** 

* * 

* B3 * 

* * 
**** 



EVENT 
POSTEO 



.* 
,* 
NO 



V 
.*. 

C3 *. 

.* IS IT *. 

.♦WAITING FOB*. 



* HI * 

* * 
«*** 



.* 
,* 
YES 



*****03 ********** 

* SET ALL POST * 

* PSRM BITS INTO * 

* POST MASK IN * 

* TCB * 

* * 
***# ************* 



*****£ 3********** 

* * 

* riECREMENT TCB * 

* OFSIOUAL WAIT * 

* COUNT * 

* * 
***************** 





V 




.*. 




F* *, 




.* *. 




RPSIDWL *. 


Mn 


COUMT 


* -, 


ZPPn .* 


1 


*. .* 


1 


*. .* 


V 


* YES 


*#** 












* H? 






* 






**** 



*****G 3 ********** 



* MAKF TCR 

* OISPATCHARLE 



******* ********** 
**** 



#*** v 
osnci? .*, 

H* *. 

.* *. 

.* DOTNG *. NH 

*. GENERAL . * 

+. POST , * 
*. .* 

*. .* 
* VP5 



J"* *, 

.* *. 

,* D^NP a, 

*. YET 

*. .* 

*. .* 

*, .* 

* wn 



****** 3********** 



* OFT NFXT TCR 

* AODPF^S 



***************** 



*****H4 ********** 
* rC D R <; T * 



***************** 



**** * J4*** ******* 



* STFP ARR OVPR * 

* PARM LIST * 



**#*****#*#****** 



**ft*K ^********* 
4 * 

* RETURN * 

* * 
*************** 



Chart OJ. Task Post Routine ($CC4PS) 
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JCC4I0 

****A1* ******** 

* * 

* ENTRY * 

* * 
*************** 



ICCtTW 

**** A3** ******* 

* * 

* FNTRY * 

* * 
*************** 



V 
.*. 

Bl *. 
.* * 

E Kp S ,N 

.PROGRESS 

*. .* 

*. . * 
* ND 



V 0V/01/B4 

*****Cl ********** 
•JCCVTT * 

* _ * 

* TRACE THE * 

* . INTERCEPT * 

* (10-0 21 * 
***************** 



SEE NOTE 

****B2********* 

* * 
—, >* EXIT * 

* * 
*************** 

TO! NCEIOS 



DPF SYSTEMlONLY 



V 0H/02/B5 
*****D1********** 
♦OPTIAR * 

* * 

♦SEE IP THIS IS * 
*CCP ENTERING OR* 
* OTHER LEVEL * 
***************** 



V 
.*. 



.* OTHER *. YES 

*. PROGRAM .* 

*. LEVEL .* 



* NO 
I 



R3 



*. 



.* DISK 
FRP IN 
♦.PROGRESS 
*. .* 

*. .* 
NO 



V 
.*. 
C3 *. 
.* *. 

.* IS I OB 
*. MARKED 

*. COMPLETE . 
*. .* 

*. .* 
* YES 

DPF SYSTEMlONLY 



****R4********* 

* * 

* FXIT * 



*************** 
TO: NCEIOW 



OV/P1/B* 

*****C4********** 
*tCCVTT * 

* * 

>* TRACE THF * 

* INTERCEPT * 

* UD-031 * 
***************** 



V OH/02/B5 
****#D^ *****#**** 
*DPTIAR * 




*SEE IF THIS TS * 
*CCP PROG LEVEL * 

* ENTERING * 

***************** 


V 
.*. 
F^ *. 
.* *. 
.* IS IT *. NP 
*. CCP .* — 
*. .* 
*. .* 
*. .* 
* ye*: 
1 


**** 

* * 

->* R6. * 

* * 
**** 



V OV/01/A2 

#**#*F I ********** 
♦CCPSAV * 

* * 

* SAVE REGS IN * 

* CURRENT TCB * 

* * 
***************** 



V PV/01/A1 
*****F 3 ********** 
*CCPSAV * 

* SAVF REGS IN * 

* CURRENT TCR * 

* * 
***************** 



FILE SHAR!NG_I_SYSTEM ONLY 
- 

V 



.* NEED TO *, 

«. GO TO FILE . 

*. SHARE RTN.* 



PN/Ol/A? 
#****G2********** 
*$CC*DI 



* >* 



* * 



FILE SHARF 
ROUTINE 



***************** 



| ( — _ 



V SEE NOTE 
*****H1********** 

* * * *NON FILE 

* * DSW DISK * *SHR SYS 

* *IOS NCE10S * * 7 



* * 

* * 



* * 

* * 



***************** 



**** 
FILE SHAPING V SYSTFM ONLY 



SHOULD *. NO 

A WAIT BE .* 7 

. FORCED .* I 

*. .* I 

* * V 

"**YES **** 

I ***** * 

* * * G't * 
->* H3 * * * 

* * **** 
**** 



V 




TORPT 








*****G4 ********** 






* * 


,* WAS IOR * 


YFS 


*SFT UP TO FXTT * 






>* TO TASK VTA * 


*.COMPLFTE .* 




A * DISPATCHER * 












| ***************** 


* NO 




ft*** 




**** 
















* G4 * 














* * 






**** 














OWTRCW V 






0H/P1/A1 


**#A*H3 ********** 






* 




*SAVE WAITED ON 


* 


**$CC'rOP * 


*IOB IN CURRENT 


* 






* 








* 


###*********#** 



***************** 



****J^********* 
**CC4WT * 



NOTF: SFF IBM SYSTFM/3 DISK SYSTFMS 

SYSTFM CONTROL PR"GPAM LOGIC MANUAL, SY71-C5C? 



Chart OM. CCP Disk Intercept ($CC4IO, $CC4IW) 



Program Organization 9-107 



RQDPFR 

****A1 ********* 

* * 

* ENTER * 

* * 
*************** 



*****B1********** 

* * 
*SET DISPATCHER * 

* ENTRY SWITCH * 



***************** 
**** 



tCCKO 

**** A 2* ******** 

* * 

* ENTER * 

* * 
*************** 



**** 
RORSOB V 

*****C 1 ********** 

* * 
♦FREE THE INPUT * 

* SOB * 



****** *********** 



* E3 * 

* * 
**** 



*****E1 ********** 

* * 

* RESET * YES 

* DISPATCHER *< --* 

* ENTRY SWITCH * 

* * 
***************** 

**** 

* * 
->* H2 * 

* * 
**** 



E2 
.* 

•DISPATCHER 
ENTRY SWITf 
*. ON 

*. 

*. .* 
* NO 



*. 
H .*<- 

.* 



*CC<>DI 

****A3*#******* 

* * 

* ENTER * 

* * 
*************** 



.* UPDATF 
*. DTF AND 

*. RFAD 00 . 
*. .* 

*. .* 
" YES 



*****C3** ******** 

* * 

* PUT INPUT I OB * 

* ON THE 10R * 

* OUEUF * 

* * 
***************** 



V 

.*. 
D3 *. 

.* *. 

.* DID mn *. 

*. DWN an sob . 

*. .* 

*. .* 

*. .* 
* NO 
**** 

* * 

* F3 *-> 

* * 
**** i 

R0C.KI8 .*. 

F3 *. 
.* ANY * 
NO .* (MOPE) 



*CC4AD 

.*" 



->*. 



P4 *. 

' IS * 

CLOSE 

PURGING 
PUFFFRS 



*. 



V 

.*. 

C4 *. 

.* « 

.* IS THIS 

*. ADO OP 



* H? * 

* * 

**** 



.* 
.* 
YFS 



*. NO 
.* 

■ * 



V 

. *. 



* WAS DTF 

OPFNED FnR 
*. ADD 



**** 

* * 

* CI * 

* * 
**** 



ROWASW 



F2 



i *. 



**** . 

* * NO .* WAIT 

* H2 *< *. SWITCH on 

* * *. 

**** *, . * 

*. .* 

YFS 



V 01/01/41 

*****G 2* ********* 
*«CC4WT * 

* * 

* WAIT FOR * 

* ENOUFUFD OATA * 

* « 
***************** 



-*. OUFJEO 

. iob's . 

*. .* 

*. .* 

■ YES 



POD010 

**+**F^***#****** 

* * 

* CALCULATE T H F * 
*nB'S "FfilN AND* 

* END C/S * 

* * 
***************** 



. * m * 
.MOB'S C/S'5*. Nn 
*. CONFLICT witH.*— 



. ANOTHER DTF 
*. ADDING .* 
*. .* 

*. .* 
' NO 



AOFADR V 

*****F4 ********** 
« * 

* MAKF THIS OTF * 

* THF CURBFNT * 

* A00E1 * 

* * 
***************** 

I**** 
* « 

->* ^2 * 

* * 

**** 



ANY SOB 

"*. 
* 
I 



* YCS 



* H2 *-> 
ft * 

***« 



****H2********* 

* * 

* RETURN * 

* * 
*************** 



.* IS *. 
.* inx'S tcb *. y=s 

•.SAME AS SOB'":.* 

*. TCB .* 



.*. 

<H *. 

.* *. 

ANY *. 

SOP'S 
.AVAILABLE.* 



RODEPI 

*****M4 ********** 

* DEQUEUE THE * 
*Tnn. FN0UF1IF AN* 

* SOB FOR IOB'S * 

* C/S/N * 

* * 
***************** 



PL/01 /A' 

****f 5********* 
•CC4TTJ * 

* TFOMINATF * 

*************** 

TASK COMPLETION CnDES: 
jf-invai in aimifr 
32-INSUFFICIFNT SOB'S 



***** J 3 ********** 

* * 

* * 
*SFT WAIT SWITCH* 

* * 

* * 
***************** 

I 

V 

» * 

* « 



J* *. 

.* T5 *. 

*. T MF TIJPRPWT . * , 

*. ThSK ,* | 

*. .* t 


*• 


.* V 

■ Mn **«* 
* 




* 
**** 


*A*A*K&.««*****#*« 


*on^T THE inRt <; * 

* * 




4)r#tt 
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$CCMG 

****a :,********* 

* * 

* ENTER « 

* * 

*************** 



1GNTRV V 

*****B1 ********** 

* * 

* SAVE ARR IN * 
♦FIELD CCARR OF * 

* SCCOM * 

* * 
*♦♦♦♦***********♦ 







1 


.DPF S' 


§TEM 


I : 


.ONLY 




I •: 




. 


*. 




CI 


*. 


[ 
. NO . 
• — * 


PTIAR 


OH/02/B5 . 


FROK 


CCP .* . 


. | 


*. LI:VEL .* 


. 


*. 


.* 


• V 


*. 


.* 


»**** 




* YES 


* * 




. 


* F3 * 




. 


* * 




. 


******, 







REQUEST *. NO 

FOR PLCS .* 

. ADDRESS .* 



*****E5t ********** 

* * 

* ADVANCE ARR * 
♦VALUE BY 1 FOR * 
♦RETURN ADDRESS * 

* * 
***************** 



*****FL ********** 

* SET XR2 TO * 

* ADDRESS OF * 

* PROGRAM LEVEL * 

* COMMUNICATION * 

* AREA * 
***************** 



****G1********* 

* * 

* RETURN * 

* * 
*************** 



IGNOO OV/01/B4 

*****R2*****+**** 
♦4CC4TT * 

* * 

-->* TRACE THIS * 

* GENERAL ENTRY * 

* (TYPE 05) * 
***************** 



V OV/01/A2 

*****C 2* ********* 
♦CCPSAV * 
* — — * 

♦SAVE INVOKER'S * 

* REGISTERS IN * 

* HIS TCB * 

***************** 



*. HALT/SYSLOG 
*. REOUFST .* 



*****E2********** 

* SET TRANSIENT * 

* ID! SCC4H2 IF * 
*COMM TASK, ELSF* 

* SCC4H1 * 

* * 
***************** 



*****P2********** 

* SET GO-TO * 

* ADDRESS: TO * 

* LOCAL ROUTINE * 

* IGHSLG * 

* * 
***************** 



V 

***** 
WO 2* 
* T3* 



.* *. 

* REQUEST *. NO 

FROM WITHIN .* 

*. DSM .* 
*. .* 

*' *YES 



IGTCPF .*. 

R4 *. 

.*" REOUEST '* 
— >*. FOR TCP 

♦.FUNCTION .* 



.* *. 

.♦ DISK ♦. N3 

*. ERROR LOG . *— 

*. REOUEST .* 

*. .* 

♦ . .* 

YES 



♦****03 ********** 

* SET OISK ERR * 
♦LOG IN PROGRESS* 
*IN FIELD NCMBSV* 

* OF SCA * 

* * 
***************** 



IGNDP V OV/0UC3 

*****E3 ********** 
♦CCPRST * 



♦RESTORE REG AND* 

* SAVE LVL "OM * 

* TCB * 
***************** 



*♦♦♦ 

* * 

* F3 *-> 



**** 
IGSFNT 



**#*F^ ********* 

* * 

* EXIT * 

* * 
*************** 



.* FOR *. YES 

♦ .COMMUNICATION.* ■ 

*. I/O .♦ 
♦ . .* 
*. .* 
* NO 



*****04********** 

* SET FOR * 

* REGISTER SAVE * 

* LEVEL RESTORE * 
*ON TRANSFER CTL* 

* * 
***************** 



,* IS DSM *. NO 


>*. SUPFR VISOR .* . 


'*. BUSY .* J 


ft. ,* | 


*. ,* V 


* VFS ***** 




*nn2* 




* Rl* 




ft ft 




* 


V 01VH/A1 


****(-(>********* 


**CC4HT * 





IGNRST V 

*****F&********** 

* ADVANCE SAVFD * 
*ARR VALUF BY 1 * 

* FOR RETURN * 
4 ADORFSS ' * 

* * 
***************** 



*****C4****#**#ft* 



*SFT FOR SEARCH * 
• OF SUPIRIR TARLF* 



******* ********** 



TO! GFNFRAL 
EWTDV 
VIA LOAD 



SEE 

IPM SYSTfM/3 
DISK SVS T E«S 
SYSTFM rONTRTL 
LOGIC MANUAL 



V 

***** 

♦ 00 2* 

* R - ** 



OPOGPAM 
SY2t-P"in2 
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***** 
♦001* 
* 85* 



IGENTR V 

*****B 1********** 
♦MOVE JNVOKER'S * 

* RIB AND * 
♦POSSIBLE C/S/N * 

* TO LOCAL * 

* CALLING SEO * 
***************** 



*****C 1********** 

* ADVANCE SAVED * 
*ARR VALUE BY 1 * 

* FDR RETURN * 



***************** 



V 

.*. 

Dl *. 

.* FETCH *. 

NO .* TRANSIENT *. 

*. BY C/S/N .* 

*. REQUEST .* 

*. .* 

*. .* 

YES 



*****E1********** 

* * 

* ADVANCE SAVED * 

* ARR BY 3 FOR * 
♦RETURN ADDRESS * 

* * 
***************** 



**** 

* * 

* B2 * 

* * 
**** 



YES .* INVOKES A *. 

*. SYSTFM .» 

*. TASK .* 



***ft*C2* ******* ft* 

* SET FIELDS * 
*NPCYL AND NPRLF* 

* IN PLCA FOR * 

* USER PROGRAM * 

* BASE * 
***************** 



V 

.*. 

02 *. 

.♦PROGRAM*. 

.♦LOADED FROM*. NO 

*. SYSTEM .* 

*. PACK .* 

*. .* 

*. .* 
YES 



*****F2****ft***** 

* SET FI ELD NPO * 

* TN PLCA TO * 

* O-BYTE OF * 

* SYSTEM PACK * 

* * 
***************** 



***** 


*001* 


* F4* 


* 


* 


IGLOOP V 


***#*P3 ********** 


* SET GO-TO * 


* ADDRFSS * 


* ACCORDING TO * 


* RIB OR SUBRIB * 


* * 


***************** 


**** 




*001* 




* F2 *-> 




* * 




**** 




IGSET3 \ 


*****C^ ********** 


* RESTORE * 


* INVOKER'S * 
•REGISTERS FROM * 


* HIS 


TCB * 



IF PPG II. 
SUPPORTED. 



IGRPGH 

*****R4 ********* 



SFT TRANSIENT 
ID FOR JCCAHF 



***************** 



IGHSLG V 0T/O1/A1 

*****C4 ********** 
**CC4PI * 



IGXNCE V 

***«*F2ft********ft 

* SET GO-TO * 

* ADDRESS: TO * 

* LOCAL CALLING * 

* SEOUENCE * 

* * 
***************** 



IGNFCS V 

*****G1 ********** 

* MOVE NOP * 

* INSTRUCTION * 
•AFTER BRANCH IN* 

* LOCAL CALLING * 

* SEOUENCE * 
***************** 



*****H1********** 



*SET FOR SEARCH * 
* OF RIB TABLE * 



***************** 



V 

.*. 

Jl *. 

.* FETCH *. 

.* TPANSIENT *. N 

*. BY RIB .*- 

*. REOUFST .* 

*. .* 



***# 




* * 




>* C3 * 




* * 


Fnp RJR 


*#** 


*2 - 




93 - 




B4 - 




85 - 



***************** 



igcpst v ov/oi/r* 

*****D3 ********** 
*CCPRST * 

* « 

* RESTORE TCB * 

* SAVE LEVEL IF * 

* SET TO DO SO * 
***************** 



*****p^ ******** ** 

* SET FOR NO * 
♦RESTORE OF SAVE* 

* LEVFl ON NFXT ft 

* ENTRY * 

* * 
***************** 



RIR / 
SUB-RIR 



«CC40C (CHART PI ) 
*CC40C (CHART PI) 
CC4TI1 (CHART PL) 
MGHSLG (C4I 
»B - *CC40C (CHART PI) 
PF - IGPPGH (R4) 
ELSF - IGtNCF <") 

FOR SUB-RIP: 

00 - <CC4JI (CHART PP| 

01 - CC4TI2 (CHART PL) 

02 - <CC4MX (CHART OX) 
ELSE - IGCERP (F4| 



* FETCH * 

* HALT/SYSLOG * 

* TRANSIENT * 
***************** 



• * * . NO 

*. ABNORMAL .*--- 
*. RFTURN .* 



IGCERR 

V PL/ri/Al 
****F4********* 
♦CC4TI2 * 



.* * 
.* OfFRESH 
*. PEOUEST 



*. .* 

YFS 



****G4 ********* 



OSM TRANSIENT 
AREA SCHEDULER. SFF 
IBM SVSTFM/1 
DISK SYSTEMS 
SYSTFM CONTROL 
PROGRAM LOGIC 
MANUAL, SY21-01"?. 



IGSNCE 

*****PS*********« 

* SFT DSM SUPVR * 
•BtlSV, MARK THIS* 

* TASK AS BEING * 

* IN SUPERVISOR * 

* * 
***************** 



****C5********* 
♦BRANCH TO TPUF * 
* GENERAL ENTRY * 



*************** 



I 
V 

ft* ***0 5 ********** 

* SET DS« SUPVR ♦ 
♦FREE, MARK THIS* 
♦TASK AS NOT IN * 

* SUPFRVISOR * 

* * 
***************** 



V 0J/01/A1 

ft* ***E5 ********** 

**cr4Ps * 

« » 

* GENERAL POST: * 

* DSM SUPVR IS * 

ft NOW FREE * 

***************** . 



V 

**ft**FS** ******** 
*RFSET FIFLO NPO* 

* IN PICA TO * 

* O-BYTF OF * 

* PROGRAM PACK * 

* * 
***************** 



IGOFTN V 

ft* #**r,i ********** 

* SFT FOR * 
*MON-TRACED TASK* 

* EXIT THRU * 

* ntSPATCHFR * 

* * 
***************** 



V OH/01/41 
****H«i ********* 
**CC4DP * 

•RETURN VIA DISP* 

*************** 



* YFS 
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IGENTR 

***** ft x******* ♦♦♦ 
♦MOVE INVOKER'S * 

* RIB AND * 
•POSSIBLE C/S/N * 

* TO LOCAL * 

* CALLING SES * 
***************** 



*****B1 ********** 

* ADVANCE SAVED * 
*ARR VALUE BY 1 * 

* FOR RETURN * 

* ADDRESS * 

* * 
***************** 



V 

.♦. 

CI *. 

.* FETCH *. 

.« TRANSIENT *. 

-*• C/S/N .* 

*. REQUEST .* 



*****D !♦♦♦♦♦♦♦*** 

* * 

* ADVANCE SAVED * 

* ARR BY 3 FOR * 

♦RETURN ADDRESS • 

* * 
***************** 



V 

.♦. 

A2 ♦. 



.♦ PROGRAM ♦ . YES 

M S 

PAC 



*. FROM SYSTEM .* 
"ACK 



♦ . .♦ 

♦ . .* 
* NO 



***** A3 ********** 

» MOVE SYSTEM * 

♦PACK bYTE TO ♦ 

>* PROG PACK Q ♦- 

* BYTE LOCATION ♦ 

* * 
***************** 



*****A4********** 

* REPLACE PROG ♦ 

* PACK DIR C/S * 
->*ADDR KITH THAT * 

* OF SYS PACK • 

* * 
***************** 



IGRbFN 
.♦* 



FIND 
RIB 



♦ . YES 
.* . 



OVERLAY 
LOAD RIB 



*****C3 ********** 

• SET FIELDS • 
♦NPCYL AND NPRLF^ 

>• IN PLCA FOR ♦- 

• USER PROGRAM * 

• BASE ♦ 
***************** 



IGNFCS 

*****E 1********** 

* MOVE NOP • 

* INSTRUCTION ♦ 
— >»AFTER BRANCH IN^ 

♦ LOCAL CALLING * 

♦ SEQUENCE ♦ 
***************** 



*****F 1********** 

* * 
♦SET FOR SEARCH ♦ 

♦ OF RIB TABLE ♦ 



***************** 



1 

V 

.♦. 




! 


Gl ♦. 




*****G2^***^***^ 


.♦ FETCH ♦. 




* * 


YES .* TRANS BY ♦. 
— *.RIB REO WITH .♦ 
♦.> 82 RIB .♦ 




♦ SET UP FOR A * 




♦USER PARM LIST ♦ 




♦ LOAD ♦ 


♦ . .♦ 




* * 


V ♦. .* 




***************** 


***** 


■ NO 








♦ 002^ 










♦ BX^ 










♦ ♦ 

* 










V 
.♦. 






1 


HI ♦. 




*****H2********** 


.♦ IS ♦. 
.♦ INVOKER A ♦. YES 




* ♦ 

♦ CHANGE FETCH • 


*■*. S ttti" .♦•*-"| < 


* RIB TO LOAD ♦ 

♦ * 


*. .* 


* * 


*. .* V 


****♦♦♦*♦♦♦**«*** 




» NO **** 








* * 








* K2 * 








* * 








**** 








V 


*****J1********** 


*****J2********** 


* * 


♦ SET TO INSURE ♦ 


♦LOCATE PLCA AMD* 


♦RETURN TO USER ♦ 


*THIS TASK'S CDE* 


♦ AFTER * 


* 


* 




* FETCH 


LOAD • 



.* FETCH ♦. NO 




♦ . TYPE RIB .♦ 7 




♦ . .♦ 




♦ . .♦ 1 




*. .♦ V 




♦ YES ♦♦♦♦ 






* * 






* K2 * 






* * 






**** 




1 




.♦. 




E2 ♦. 




.♦ ♦. 


****E 3** ******* 


.♦ FETCH ♦. NO 


♦CPHALT * 


♦ . KITH .♦— 

♦. ADDRESS .♦ 




* 1234, CD 1345 * 
*************** 


♦ ■ •♦ 


♦ . .♦ 




* YES 




1 




*****F2********** 




* LOCATE USERS * 
*FETCH PARM LIST* 





ANO MOVE INTO 

* * 

***************** 



***************** 



***************** 



* K2 ♦-> 



**** 
IGXNCE V 

*****K2********** 

* SET GO-TO ♦ 
ADDRESS: TO 
OCAL C 

SEQUE 

* * 
***************** 



***** 
*002* 
* CI* 
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***** 

♦ 001* 

* Gl* 



IGL00P V 


*****B1 ********** 


* SET GO-TO * 


* ADDRESS * 


* ACCORDING TO * 


• RIB OR SUBRIB * 


* * 


***************** 


**** 




*001* 




* K2 *-> 




* * 




**** 




IGSETS 


*****C I ********** 


* RESTORE * 


* INVOKER'S * 


*REGISTE IS FROM * 


* HIS 


TCb * 



***************** 



IGCRST V 0V/01/C3 
****** l* ********* 
♦CCPRST * 



* RESTORE TCB * 

* SAVE LEVEL IF * 

* SET TO DO SO * 

***************** 



*#***E1 ********** 

* SET FOR NO * 
♦RESTORE OF SAVE* 

* LEVEL ON NEXT * 

* ENTRY * 

* * 
***************** 



RIB / 
SUB -RIB 



FOR RIB: 

82 - SCC40C (CHART PI I 

63 - *CC40C (CHART PI I 

84 - CC4TI1 (CHART PL) 
AS - $IGHSLG (C4> 

$CC40C (CHART PI) 

IGRPGH (841 



8F - _ 

ELSE - IG$NCE (B5I 

FOR SUB-RIB: 

00 - $CC4II (CHART PPI 

01 - CC4TI2 (CHART PL I 

02 - $CC4MX (CHART OX] 
ELSE - IGCERR (E4I 

OTHER RIBS: 

40 - OVERLAY LOAD 

58 - FETCH PGM FIND 

59 - FETCH PGM NO FIND 
7B - FETCH SYS FIND 

79 - FETCH SYS NOF IND 
4B - LOAD PGM NO FIND 
49 - LOAD PGM FIND 

68 - LOAD SYS NO FIND 

69 - LOAD SYS FIND 
81 - FIND 



IF RPG II- 
SUPPORTED. 



* SET TRANSIENT 

* ID FOR $CC4HF 



***************** 



IGHSLG V 0T/01/A1 

*****C3**********' 
**CC4PI * 

* * 

* FETCH * 

* HALT/SYSLOG * 

* TRANSIENT * 

***************** 



. ABNORMAL 
*. RETURN 



IGCERR 

V PL/01/A3 
****E3********* 
•CC4T1Z * 



.* REFRESH 
*. REQUEST 
*. 



****G3********* 

* * 
« RETURN * 

* * 
*******+**+++** 

TO: 

DSM TRANSIENT 
AREA SCHEDULER. SEE 
IBM SYSTEM/3 
DISK SYSTEMS 
SYSTEM CONTROL 
PROGRAM LOGIC 
MANUAL. SY21-0502. 



IG$NCE 

*****A 5 ********** 

* SET DSM SUPVR * 
*BUSY, MARK THIS* 

* TASK AS BEING * 

* IN SUPERVISOR * 

* * 
***************** 



****B5 ********* 
♦BRANCH TO TRUE * 

* GENERAL ENTRY * 

* * 
*************** 



*****C5********** 

* SET DSM SUPVR * 
•FREE. MARK THIS* 
•TASK AS NOT IN * 

* SUPERVISOR * 

* * 
***************** 



V OJ/01/A1 

*****D5 ********** 
*$CC4PS * 



*****E5 ********** 
♦RESET FIELO NPQ* 
* IN PLCA TO * 
O-BYTE OF 
RAG"" 



* PROGRAM PACK * 



***************** 



*****F 5 ********** 
•RESET DIRECTORY* 

• C/S ADDRESS TO * 
♦THAT OF PROGRAMS 

♦ PACK * 

* * 
♦**♦♦****♦♦♦♦**** 



.*. 
G5 *. 
.* *■ 
.* HAS *■ NO 

*. OPERATION A .* 

*. FETCH .* 



*****H5**** ****** 

• SET UP RETURN * 

* TO USER * 
*SPECIFIEO ENTRY* 

• IN SAVE AREA * 

* * 
***************** 



IGRETN V 

*****J 5 ********** 

* SET FOR * 
*NON-TRACED TASK* 

* EXIT THRU * 

* DISPATCHER * 

* * 
***************** 



V 0H/01/A1 
****K 5 ********* 
*$CC4DP * 
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$CC4PI 

****A1*******^ 

* * 

* ENTER * 

* * 



$CC4TX 

**#*A3*^«****** 

* ENTER * 

* * 



****A4********* 
*CPHALT * 

* "u-77o"halt » 



**** 

* A5 * . 

* * I 
##** V 

TANOXL .*. 

A5 *. 
.« DOES *. 
NO .* ROUTINE 
HAVE GOOD 



*. 



ID 



****+Bl ********** 

*i:cpsv2 * 

*$ave input regs* 
*after stepping * 
*arr over input * 

***************** 



CI *. 
■ * *. 

* INPUT *. YES 

PARAMETER .* 

*.IN LIMITS.* 
*■ . * 

*• ■* 
* NO 



*************** 



*IST LEVEL LIST * 
* * 



**** 
*CC4TA V 

*****F 1********** 

* * 
*SAVE XR1 WHICH « 

* ADDRESS'S 1ST * 

* LEVEL LIST * 

* * 
4>k «*****««*#*#«** 



V OV01/G<i 

*****G1 ********** 
*TAIOCK * 



♦SO FIND ADDR OF* 
♦REOUESTED TRAN * 
* AREA * 



IS TRAN ♦ . YES 


AREA .* — -7 


.AVAILABLE,* 


*. ,* | 


*. .* V 


w NO **** 




* 




* F3 




* 




♦ *♦♦ 



*w*#wj i#*****w**w 



*#*)K*#4**ft*ft##*** 



V OI/Ol/Al 



OV/02/A1 



V OT/01/G4 

*****83********** 
*TAIOCK * 

* „.. — _* 

♦DETERMINE WHICH* 
•TRAN AREA CAME * 



♦COMPUTE AODft OF* 
* DISK C/S OF * 
♦ROUTINE TO XCTL* 



****** ft ********** 



*#***[)3 ********** 

* * 

* MOVE XCTL * 
♦PARAMETER FROM * 

* XCTLOR * 

* * 
* * * * ** * «*** # * ** ** 



*****£ 3 ****** **** 

* * 

* INDlCATEt IN * 
♦TACB, THAT XCTL* 

* IN PROCFSS * 

* * 
***************** 

**** 

* * 

* F3 * 

* * 

**** 



♦MARK TRAN AREA * 

* NOT AVAILABLE * 

* IN TACB * 

* * 
***************** 



* ROUTINE 

ALREADY IN 
*.TRAN AREA. 



*w***H3#********* 

* SET UP IOB £ * 

* TACE TO FETCH * 

* THE TRANSIENT * 

* * 
***************** 



V SEE NOTE 

*****j 3 ********** 

* * READ THE * * 

* * TRANSIENT * * 

* * NCEIOS * * 

* * NC E tow * * 



*#***C<t ********** 
ft * 

* MOVE XCTL * 
♦PARAMETER INTO *<- 

* TRANSIENT * 

* * 
***************** 



TAIDC* 

****G4* ******** 

* * 

* ENTRY * 

* * 
*************** 



.♦CURRENT TCB*. 
. THE COHM 

*. TASK .* 



*****j4********** 



********** 



TASJMP V 

#****B5********** 

* A INITIALIZE * 

* JUMP * 
♦INSTRUCTION IN * 

* TRANSIENT * 

* * 
***************** 



TAGOBB 

*****D 5**** ****** 



***************** 



****£ 5********* 

♦ EXIT VIA LOAD ♦ 

♦ IAR * 

♦ * 
*************** 



** * **H 5 ********** 

* LOAD XR1 WITH ♦ 
>* ADDRESS OF * 

* TACG#2 * 

* * 
***************** 



****J5********* 

* RETURN ♦ 

* * 
*************** 



MANUAL, SY21-0502 



WAIT FOR TRAN * 

AREA TO BE ♦ 

AVAILABLE ♦ 

j* *************** 



->* Fl * 
a * 

«*** 



**** 

* * 

* A5 * 
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1CC4TR 

*+**R 3 ********* 

* * 

* ENTRY * 

* * 
*************** 



v cit/oi/g« 

*****C3 ********** 

*T4iDrk * 



******+*+******++ 



03 *. 

. * *. 

« 15 TAfR *. YF? 

FOR COMM .* 

*. TASK .* 



V DJ/fH/Al 
**+**F '******+*** 
*«CC4PS * 

* GENFRAL POST *— 
♦THAT TBAN APFA * 

* AVAIL * 
***************** 



****F4****«**e* 
*rcp»FT * 

* PFTUPN * 

*************** 

TO! RESIDENT 
TMVHKFq 
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SCC4PQ 

****A?* ******** 

* * 

* ENTRY * 

* * 
*************** 



V OV/01/A2 

*****£ 2********** 

*CCPSAV * 

*—»»—__.._.. ——•41 

* SAVE INPUT * 

* REGISTERS * 

* * 

***************** 



*****C2********** 
•GET ADDR OF 1ST* 

* TUB ON * 

* ALLOCATION * 

* INPUT QUEUE * 
+ * 
***************** 



**** 




* * 




* D2 *-> 




* * 




**** V 


POLPB .*. 


D2 *. 


.* *. **** 


.* END OF *. YES * 


*. ALLOC INPUT .* >* C5 


** .* * 


*. .* **** 


*. .* 


■ 


NO 



«****Q4 ********** 

* * 

*TURN ON PSR BIN* 

* OFLO— LINE * 

* NEEDED * 

* * 

***************** 



*****C4********** 

* * 

* TURN OFF PSR * 

* FALSE—TUB * 

* NEEDED * 



***************** 



**** 
* * 

, a j 

*****(> 5********** 



TURN ON PSP. 

ALSE — TUB NOT 

NE60CD 



***************** 



****D********** 
*CCPRET * 



*****E2********** 

* * 
♦GET ADDRESS OF * 

* PCT IN TUB * 

* BUFFER * 

* * 

***************** 



• *. 




.*. 




1 F2 *. 




F3 *. 




1 .* *. 




,*ARE ANY*. 




.* THIS *. YES 




,*OF THEM THE*. 


YES 


*. PCT HAVE .* 


- — >* 


.TUB INPUT TO . 


* , 


*.ANY TUB'S.* 




*. HERE .* 


1 


*. , * 




*. •* 


1 


*. .* 




*. .* 


V 


* NO 




■ NO 


**** 


**** 










* * 


* * 










* c * 


* G2 *-> 










* * 


* * 










**** 


**** 






V 




V 




.*. 




*****G2********** 




G3 *. 




*GET ADDRESS OF * 




.*ARE AMY*. 


**** 


* NEXT TUB ON * 




.*ON THE SAME*. 


YES * 


* ALLOC INPUT * 


* 


SWITCHED 


* >* B4 


* OUEUE * 




*. LINE .* 


* 


* * 




*. .* 


**** 


***************** 
| 




*• .* 
* NO 




**** 








1 * * 








->* D2 * 




I 




* * 








**** 




V 

.*. 

H3 *. 

.* *. 








* ANY *. 


YFS 




* 


MORE TUBS . 
*.THIS PCT .* 

*. • .* 


* , 

1 






*. .* 


V 






* NO 


**** 






1 **** 


* * 






1 * 


* * F2 * 






->* G2 


* * * 






* 


* **** 










**** 
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CCPSV2 

****Al********* 

* ENTER » 

* * 

*************** 



*****81********** 

* SET SWITCH TO * 
*NOT RELOAD REGS* 

* AT RETURN * 

* * 
***************** 



*****C1 ********** 

* * 

* GET ADDR OF * 
•NEXT SAVE AREA *<- 
•IN CURRENT TCB * 

* * 
***************** 



Dl *. 

.*" SAVE '*. NO 

*. AREA ADOR .• 

*.IN LIMITS.* 

*. .* 



CCPSAV 

****A2********* 

* * 

* ENTER * 

* * 

*************** 



*****B2********«* 



***************** 



*****C2********** 

* INDICATE TO * 
-•RESTORE REGS ON* 

* EXIT * 



CCPRET 

••••A3********* 
+ * 

* ENTER * 

* * 
*************** 



*****B3 ********** 

* * 

* INDICATE TO * 

* RETURN VIA * 

* RELOADED ARR * 

* * 
***************** 



CCPRST 

****A4********* 

* * 

* ENTER * 

* * 
*************** 



***************** 



****D2********* 
•CPHALT • 

* U-, SL HALT ♦ 
*************** 



*****C3********** 

* * 

* DECREMENT * 

* CURRENT TCB * 
♦SAVE AREA ADDR * 

* * 
***************** 



*****D3** ******** 



$CCATT 

****B4********* 

* * 

* ENTER * 

* * 
*************** 



.••CODE MODIFIED PY/Ol/A 

C4 BY STARTUP ACTIONS 
.* *. ****C5********* 

.* IS *. YES **CC*TR * 

*. TRACE -* >* * 

*. ACTIVE .* * TO READ TRACE * 

*. .* *************** 



* YES 



1CCCOM TO 

* CURRENT SAVE 

* AREA 

* * 
***************** 



V 

.*. 

Fl *. 

.* *. 

* REGS TO *. YES 

BE RESTORED .* 



•LOAD ARR 
»E XR2 FRI 
♦USED SAV 



***************** 



, XR1, * 
DM LAST* 
E AREA • 



PIQUET .*. 


E3 *. 


.* *. 


.* TO *. YES 


*. RETURN TO .« 


•.INPUT ARR.* 


*. .* 


*• .* 


* NO 



*. 



*. 



*. .* 

* NO 



*****f2********** 



* RELOAD XR1 C * 
->*XR2 FROM $CCCOM* 



******* ********** 



*****P3 ********** 



* STORE THE 

* RESTORED ARR 



***************** 



*****04********** 



STEP ARR OVER 
TRACE ID 



***************** 



* RETURN TO * 
♦INVOKER VIA ARR* 



***************** 



****F4********* 

* * 

* RETURN * 

* * 
*************** 



****G1********* 

* * 

* RETURN * 

* * 
*************** 



♦RETURN VIA LOAD* 

* 1AR OF SAVED * 

* ARR * 

* * 
***************** 



****H3********* 
*< * 

* RETURN * 

* * 
*************** 
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*****F !♦*♦♦♦♦♦♦♦♦ 



* SET 
•HALT 



UP 1234 « 
INSTEAD 0F*<- 
U- * 



***************** 



CPHALT 

♦♦♦♦A2 ********* 

* * 

* ENTER * 

* * 
*************** 



*****B2 ********** 
*SAVE ARR, XRlt * 

* £ XR2 AFTER * 

* EYECATCH * 

* CONSTANT * 

* * 
***************** 



MVHALT V 

*****C 2********** 

* MOVE THE TWO * 
♦BYTES ADDRESSED* 
*BY THE ARR TO A* 

* HPL INST * 

* * 
***************** 



*****D2 ♦♦*♦*♦**** 

* RESTORE OSH * 

* LOCATIONS — * 

* SNCEIOS, * 

* SNCEIOH, £ » 

* 3NCENTR * 
***************** 



V 

.*. 

E2 *. 

•*IS THE *. 

.* CCP PROG *. NO 

♦.LEVEL MY PROG.* 

*. LEVEL .* 



* YES 



YES .* *. 

*. MODEL * 

*, .* 



♦ NO 



*****E<>********** 

* FORCE A * 

->*PROCESSOR CHECK* 

* INV OP « 

* * 
***************** 



****F4********* 

* * 

* PROC CHECK * 

* * 
*************** 



«***G2********* 

* * 

* HALT U- * 



FROM ARR) 



*****J2********** 

* * 
♦SET PROG LVL 1 * 
•IAR TO 3 OF DSM* 

* DUMP ROUTINE ♦ 

* * 
***************** 



****K2********* 
♦EXIT THIS PROG * 

* LVL * 

* * 
*************** 
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JCC4MX 

****A1********* 

* * 

* ENTER * 

* * 

*************** 



*****B1*** ******* 

* SET EFFECTIVE * 
•LENGTH IN BYTES* 

* 0-1 HF * 
•PARAMETER LIST * 

* * 
***************** 



*****C1*** ******* 
♦SAVE REGISTERS * 

* * 

************ ** *** 



*****m ********** 

* ESTABLISH * 

* RIGHT-END + I * 

* ADDRESSES IN * 

* MVC INSTRUCTION* 

* * 
***************** 



* El *-> 



**** 
MVLOOP V 

*****E\*** ******* 

* DECREMENT * 

* ADDRESSES AND * 
•LENGTH CODE BY * 

* 1 * 

* * 
***************** 



MVMVC V 

*****?. i*** ******* 

* * 
♦MOVE AS MANY AS* 

* 256 BYTES * 

* * 
***************** 



*****G1 ********** 

* DECREMENT * 

* ADDRESSES BY * 

* LENGTH CnOE. * 

* ZERO LENGTH 4 

* CODE * 
***************** 



HI «. 

■ * *• 

NO .* ALL OF *. 

--*. DATE MDVED .* 
*.. •* 



* El * 

**** 



.* *. 

.* ENTERED *. YFS 

■ AT *CC4MV .* 

*. . * 

*. . * 

*. . * 
* NO 



•CC4HV 

****A2********* 

■+ * 

* ENTER * 

*************** 



* 



*****C4********** 

* ESTABLISH * 

* RIGHT-END * 1 * 

* ADDRESS OF * 

* TARGET IN MVC * 

* INSTRUCTION * 
***************** 



.*. 
D4 *. 
.•TARGET *. 
.* LENGTH > 

SOURCE 
*. LENGTH . 



*****E4********** 

* ESTABLISH * 

* RIGHT-END * 

* ADDRESS OF * 

* TARGET IN MVC * 

* INSTRUCTION * 
***************** 



*****P4 ********** 



************ 



V 



< 



.*. 

G4 *. 
,*TARGFT *„ 
YES .* LENGTH = *. 

*.SnURCF LENG T H.* 

*. +1 »* 



*****H4 ********** 

* SET LENGTH * 

* Cnl5E. SFT UP * 
*SURSTITUTF MPVE* 
•PARAMETER LtsT * 

* * 
***************** 

I**** 
* * 
->* Fl * 
* w 
**** 



Kl *. 

.* JUST * 
.* CLFAREtl 
*. EXCESS 

*. TARGFT 
*. • * 

*. . * 



MVPETN 

*****K 2** ******** 



RESTORE 
REGISTERS 



***************** 



MVEXIT 

****K 3********* 
* 

>* RETURN 

* 
*************** 



* C4 * 

* * 
**** 
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****A1 ********* 



*************** 



NOTE! IN A SINGLE-TASK CCP IN WHICH THE 

DISPLAY FORMAT FACILITY IS NOT INCLUDFD 
tCC4 CONTAINS JCC4MM INSTEAD OF $CC4MS. 
. IN *CC4MM, THE ENTRY POINT $CC4RM IS 
/////////////////////////////////////E0UIVALENT/T0/*CC4GM. H II I II II 1 1 III III I 



*****B1.********+* 



SAVE RETURN 
ADDRESS 



****** *********** 



V 

■ *. 

CI *. 

.* IS *. 

.•SEGMENT AT *• NO 

*. ■ LOW BOUND .*— > 

*. FREE .* 



V 

• *. 

Dl *. 

.♦SEGMENT*. 

.* SIZE - * 

. REQUESTED 

*. SIZE .« 

*. .* 

+. .* 

* >- 



*****E1********** 
* * 

♦SET SAVE FIELDS* 

1St e 



MSNOLD 

*****B2********** 

* * 

* CHAIN TO LAST * 
>* FREE SEGMENT * 

* (IF ANY I * 

***************** 



C2 *. 
.* IS *. 
NO .*SEGMENT AT 

*. HIGH 

*. BOUND . 

*. .* 

*. .* 

YES 



< .* SEGMENT *. 

<— *. SIZE - REO . 

*. SIZF .* 

*. .* 



*for aLl6cate"6f* 
SEGM6N- 



***************** 



MSHIGT 

*****D3*** ******* 
♦SHORTEN LENGTH * 

* OF FIRST PART * 
>* OF FREF ♦ 

♦SEGMENT, ALLOC * 

♦ LAST "ART * 
***************** 



*****p 2********** 

* * 

* MAKE CHAIN OF * 
♦PRECEDING FREE *- 

* SEGMENT NULL * 

* * 
***************** 



MSRMFX V 

*****F 3 ********** 

* SET INVOKER'S * 
•PARM LIST WITH * 
♦AODRFSS/LENGTH * 

* OF ALLOCATED * 

* SEGMENT * 
***************** 

I**** 
* * 
->* Jl * 

* * 

**** 



iiiiiininnuniiiiinniinitiHiiiinttininniinniiinninniiiiin 



«rr4GM 

****A ********** 

* * 

* FWTFR * 

* * 
*************** 



*****p c; ********** 



SAVE RETURN 
ADDRESS 



***************** 



*****cs ********** 

*SET DUMMY SIZF * 

♦ OF FR.EE SEGMFNT* 
* FOUND * 

♦ (IMPOSSIBLY ♦ 

♦ LARGEI * 
***************** 



MSGLUP .*. 

D5 *. 

.* *. 

< .* SEGMENT *. 

*. SUF « REO . 

*. SIZE .* 

*. .* 

*. .* 
* >- 



V NO .♦ SMALLEST "♦. 
♦.AVAIL SSG SO .♦ 



*****F *********** 

* * 

* SET FOP THIS * 
•SEGMENT AS REST* 

* FIT AVAILABLE * 

* * 
***************** 



MSFAIL V 

*****G1* ********* 

* SET LOGICAL * 

* OVERFLOW * 
♦INDICATOR ON AS* 

* SIGNAL OF ♦ 

* FAILURE * 
***************** 



*****H1********** 

* SET INVOKER'S * 
♦PARM LIST WITH * 

* ZERO ADDRESS * 

* * 
***************** 



**** 

* * 

* Jl ♦-> 



**** 
MSRETJ V 

*****J1 ********** 

* * 
♦SAVE ADDRESS OF* 

♦ PARM LIST ♦ 



***************** 



V 

***** 

♦ 002* 

* B4* 



MSSURD 

*****H?********** 
♦ALLOCATE FIRST * 

* PART OF FREF * 

* SEGMENT USING *<- 

* REQUESTED * 

* LENGTH * 
***************** 



*ft***J2********** 
*FSTABL!SH LAST * 

* PART AS FREE * 

* SEGMENT OF * 

* PFDUrEO SIZF * 

* * 
***************** 



MSBINO V 

*****r,3 ********** 

* SFT INVOKPR'S * 
*PARM LIST WITH * 

* ADORFSS OF * 

* ALLOCATFP * 

* SFGMENT * 
***************** 



H3 *. 
.* IS *. 
YES .* SFGMENT 4 4 

*. BYTES > 

«. RFO .* 
*. .* 
*. .* 
* NO 



MSRFTS V 

****** 2 ********** 
♦ASSURE LOGICAL ♦ 

* OFLO OFF AS * 
♦ SIGNAL OF * 

* SUCCESS * 

* * 
***************** 



#****J3 ********** 

* MAKE CHAIN OF 4 
♦PRECEDING FPFF * 

* SFGMFNT POINT * 
♦TO NEXT ONE (IF* 

* ANV1 * 
***************** 



****** 3** ******** 

* ADJUST * 
♦INVOKFR'S PARM * 

-* LIST WITH ANY * 

* EXCFSS LENGTH * 

* (1-3 BYTES) * 
***************** 



* CHAIN TO NFXT * 

* FRFF SFGMFNT * 

* r IF ANY) * 

* * 
***************** 



H"5 *, 

.♦ WAS *. 
.* THERE A ♦. YES 

NEXT FREF .* 

*. SEGMFNT .* 
♦ . .♦ 

♦. .♦ 
♦ Nn 



I 

V 

■ * ■ 

J* *. 

.♦ WAS ♦. 

YFS .♦ AVAIL ABLF ♦. 

♦.FRFF SFGMFNT .♦ 

*. FOUND .* 

*. .* 

*. .* 

* NO 

I 

I 
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JCC4FM 

****A1 ********* 

* * 

* ENTER * 

* * 
*************** 



*+***Bl ********** 

* SAVE RETURN * 

* AOORESS AND * 
♦ADDRESS OF PARM* 

* LIST * 

* * 
***************** 



v ov/oi/e* 
*#***ci*+*++*+*** 

**CC4TT * 



***** 
*001* 

* Jl* 



* TRACE THIS * 
♦FREEMAIN ENTRY * 
» (TYPE 091 * 

***************** 



* SEGMENT *. 

ADDR < LOW .• 
*. BOUND .* 



El *. 

.* *. 

VYES .* SEGMENT * 

-*. ADDR > HIGH 

*. BOUNO .* 

*. . * 



* NO 



Fl *. 
.♦SEGMENT*. 
.* ADDR + *. NO 

♦.LENGTH > HIGH.* 

*. BOUND .* 



****G1 ********* 
♦CPHALT * 



I 
MSFLUP V 

*****R 2* ********* 

* FIND FRFE * 

* SEGMENT (IF * 
*ANY) PRECEDING * 

* THIS SEGMENT * 

* * 
***************** 



*****C 2+ ********* 

* * 
*CH»IN PRECEDING* 
♦FREE SEGMENT TO* 

* THIS SEGMENT * 

* * 
***************** 



D2 *. 
.* IS *. 
* PRECEDING *. NO 
CONTIGUOUS .* — 
•■•*" "HIS.* 



.WITH THI 
*. .* 
.* 
YE5 



*. 



*****F2* ********* 
♦JOIN PRECEDING * 

* WITH THIS TO * 

* FORM COMBINED * 

* FREE SEGMENT * 

* * 
***************** 



*****F 2 ********** 

* CHAIN THIS * 

* SEGMENT TO * 

* FOLLOWING FREE * 

* SEGUFNT (IF * 

* ANY I * 
***************** 



G? *. 

.* IS *. 
* F(1LL OWING *. wo 

CONTIGUOUS .* — 
w.WTTH THIS.* 



*, 



*****H?* ********* 
♦JOIN FOLLOWING * 

* WITH THIS T" * 

* FORM COMBINED * 

* FRFF SEGMENT * 



*** 



************** 



♦POINT TO FIRST ♦ 

* FRFE SEGMFNT * 

* (IF ANY) * 

* * 
***************** 



*****c&********** 

* ZFRO LARGEST * 

* FREF SEGMENT * 

* SI7E FIELO * 

* * 
***************** 



**** V 


MSTRLP .*. 


04 *. 


.♦LARGEST*. 


.* FREE 


•.SEGMENT THUS 


*. FAR 


*. .* 


*. .* 


* YES 



***** Pit ****** **** 

* SET LARGEST * 

* FREE SEGMENT * 

* MZF FIELD Tp * 
*THIR SEGMENT'S * 



* CHftTN TO WFXT * 

* FREE SFGMFNT * 

* <TF ANY) * 

* ft 
***************** 



G4 *, 

.* WAS *. 

.* THFRF A *. YFS 

*♦ WFXT FRPF .* , 

*. SFGMENT ,* J 

*. . * V 

n **** 



* r\tt * 



.* TS THIS *, YFS 

, & FPEFMATM .* -, 

*. ENTRY . * 



*****j4 ********** 

tttCOTT * 



* to afp TMT<: * 

* RFTMAIN CMTOV * 

* (TVDP OP) * 
***** ************ 



MSNO T R 

V 

* A 

A OFTU&M * 

* * 
****** ********* 
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$CC4CP 

****A2*«* ****** 

* ENTER * 

* * 

*************** 

*#** 

* * 

* B2 *-> 

* « 
«*** V 



* IS R4 

HOLD QUEUE 

*. ACTIVE . 

*. .* 



OT/Ol/AI 
*****C1 ********** 
*$CC4PI * 



* CALL $CC*R4 * 

* * 

***************** 



C2 *. 

.* IS AN *. 

NO .* NEP IN *. 

*. ALLOCATION .* 

*• •* 

*. .* 

*. .* 



D2 *. 

.* ANV *. 

.♦TUB'S ON CP*. 

INPUT 

*. OUEUE .* 



V 

. *. 

E2 *. 

.* *. 

.* IS THIS * 

*. CCP STARTUP 

*. CALL .* 



V OT/Ol/Al 

*****F 2* ********* 
•SCC4PI * 

* . * 

* CALL SCC4PC * 

* * 
***************** 



* WAIT FOR WORK » 

* * 
***************** 

I*** + 
• * 

->* B2 * 
* * 

**#* 



V OT/Ol/Al 
*#*#*G2** ******** 
•SCC4PI * 

* — — - — -* 

# * 

* CALL $CC*PR * 
A * 
a**************** 

I**** 
* * 

->* B2 * 

* * 

**** 
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*CC«AH 

****A1********* 

* * 

* ENTER * 

*************** 

**** 

* * 

* Bl *-> 

* * 
**** 

V OT/Ol/Al 
*****B 1 ********** 
**CC4P! * 



* INVOKE * 

* TRANSIENT * 

* JCC4A1 * 

***************** 



V 

.*. 



tAMWMK 
ALL ZERO 



*****D1* ********* 

* * 

* GET ADDR OF * 

* CURRENT TCB'S * 

* COE * 

* * 
4**************** 



*****E1* ********* 

* * 

* ARR<-- CDEFNT * 
♦SET EPA OF USER* 

* PROC- * 

* * 
***************** 



*****C 2+ ********* 

* * 

* MOVE tAMHMK • 
->* INTO A WATT * 

* PARM LIST * 

* * 
***************** 



V OI/Ol/M 
*****02********** 
*$CC*WT * 

* « 

* WAIT FOR ALL * 
♦RESOURCES TO RE* 

* AVAILABLE * 



*****E2********** 



*GET CURRFNT TCB* 

* ADDRESS * 



***************** 



*****F2********** 

* * 

* MflVE THF TCP * 
*PPST MASK I NTH * 

* tAMPMK * 

* * 
***************** 
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$CC40C 

****A3******##* 

* ENTRY * 

* * 

*************** 



V OT/01/A1 

*****B3*** ******* 

*$CC4PI * 



* CALL SCC40P * 

* * 
******** ******** 



RETURN FROM OPEN/CLOSE/ALLOCATE TRANSIENTS 



LIMITS REQUEST 



SUCCESSFUL ALLOCATE 
BAM OPEN REQUEST 



SUCCESSFUL OPEN/CLOSE 



UNSUCCESSFUL 
OPEN/CLOSE/ALLOCATE 



****D1 ********* 

* * 

* OCRETL # 

* * 
*************** 



V SEE NOTE 1 
*****EX********** 



* * *$OPLM OR 

* * iiOOLT * * 

* * * * 

***************** 



****D2********* 

* * 

* OCRET2 * 

* * 
*************** 



****D3********* 


* * 


* CCRET4 * 


* * 


*************** 


**** 




* * 




» E3 *-> 




* * 




**** ' i 


.*. 


E3 *. 


.* *. 


NO .* ANY *. 


— *. BUFFERS TO .* 
«. PRISE .* 


*. .* 


*. .* 


» YES 



* * NCEIOS 



***************** 



***************** 



H3 *. 
■ * *• 

.* LAST *. NO 

*. OTF .* • 

*. .* I 

*. .* 

*. .* V 

* YES **** 



V 
.*. 

J3 *. 
.* *. 
.* ANY I/O *. YES 
ERRORS .* 



* E3 * 

* * 



****D5 ********* 

* * 

* 0CRET3 * 

* * 
*************** 



****E5********* 
*CC4U2 * 



TASK COMPLETION CODES 
82-UNSyCCESSFUL OPEN 
83-UNSUCCESSFUL CLOSE 
84-QPEN/CLOSE I/O ERROR 
SB-UNSUCCESSFUL ALLOCATE 



li SEE IBM SYSTEM/3 
SYSTEMS DATA 



NOTE 

DISK . 

MANAGEMENT AND INPUT/ 
OUTPUT SUPERVISOR 
PROGRAM LOGIC MANUAL, 
SY21^0512 



NOTE 2: SEE IBM SYSTEM/3 
DISK SYSTEMS SYSTEM 
CONTROL PROGRAM LOGIC 
MANUAL, SY21-0502 
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*CC4TI 

****Al********* 

* * 

* ENTER * 

* * 
*************** 



*****B1* ********* 

* ENTRY IS FROM * 

* ANOTHER TASK. * 

* SET CONTROL * 

* BYTE * 

* * 
***************** 



TIGO V 

*****C1 ********** 

* * 

* DETERMINE * 
♦ADDRESS OF TASK* 

* TO .TERMINATE * 

* * 
***************** 



TIGOB V 

*****U1********** 

♦DETERMINE HHERE* 

* TO EXIT WHEN * 

* THROUGH * 

* * 
***************** 



*****E1*** ******* 



♦MARK TCB BEING 
* TERMINATED 



*♦♦♦*♦*********** 



TIGOCC V OV/01/A2 

*+***Fl ********** 
♦CCPSAV * 



SAVE INPUT 
REGISTERS 



***************** 



TICODD V 

*****G1 ********** 



* SET TASK * 

♦completion cnoe* 



CC4TI1 

***♦*?********* 

* * 

* ENTER * 

* * 
♦♦***♦*♦******* 



*****R2********** 

* ENTRY FROM * 
**CCMG ON USER * 

* EOJ. SET « 

* CONTROL BYTE * 

* * 
******♦*♦*♦*♦**** 



COT 1 2 

**** A3 ********* 

* * 

* ENTER * 

* * 
*************** 



*****B3 ********** 
♦ENTRY FROM CCP ♦ 
♦ ROUTINE UNDER * 
CURRENT * 



♦ TASK.SFT ♦ 

* CONTROL BYTE * 

♦*♦♦♦♦*♦*♦******* 



TtOK V 

*****03********** 



♦TURN OFF TASKS 
* ACTIVE BIT 



***************** 



V 
■ *■ 

F3 *. 
.* *. 

YFS .♦ IS *. 

*. TERMINATION .* 

*. BUSY .* 
*. .* 



NO 



*****F3 ********** 

* * 
*SFT TF'MINATION* 

* TASK BUSY AND * 

* OTSPATCHABLF * 
+ * 
***************** 



*CC4TM 

****A 5 ********* 

* * 

* ENTER ♦ 

* * 
*♦♦*♦♦♦♦♦♦♦♦♦♦♦ 



V OT/Ol/Al 

*****B5********M 
*»CC*PI ♦ 

* * 

* INVOKE FIRST * 
♦TERM. TRANSIENT* 

* SCC4TD ♦ 

***************** 



V OI/Ol/Al 

*****C5********** 
*»CC4WT * 

-* r5~5»it~f"or"~* 

♦MORp WORK TO Dr» 

♦ ♦ 

***************** 



***************** 



V 

■ *. 



IS THIS 
A SYSTFW 
. TASK 



*. YFS 

.* 



****H 2* ******** 
♦CPHALT * 

->* * 

* U-.PS HALT * 

*************** 
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(CC4I I 

****M********* 

* ENTER * 

* * 
*************** 



,* 



V 
.*. 

Bl *. 
* *. 

VALID *. NO 
OP CODE? .* 



*. .* 
» YES 



V 
.*. 

CI *. 



PL/Ol/Al 

****B2*******4* 
*$CC4TI * 

* codeT'oi" * 

4************** 



*****CZ********** 



*. SHUTDOWN .*- 
•.INQUIRY? .* 



APPROPRIATE 
RETURN CODE 



***************** 



V 

***** 
*006* 
* F3* 

* * 



ACCEPT 
INPUT? 



V 
***** 
•007* 
• Bl* 

* * 



IITNTN V 

*****E !********** 

* SCAN TNT FOR * 
» SYMBOLIC *- 

* TERMINAL NAME * 

* * 
***************** 



.*. 

E2 *. 

.* *. 

• NAME *. N 

FOUND IN .*- 

•. TNT? .* 

*. .* 

*■ .* 



IIFOND .*. 
F2 



BLANK 
NAME? 



****03********* 
*$CC4TI * 



************ 



.* GET *. Y 
->*. ATTRIBUTES .*- 
*. OP? .* 



F3 *. 
.* IS OP *. 
.* VALID FOR *. NO 

->*. BLANK .* 

*. NAME? .* 
*. .* 
*. .* 
* YES 



*****£*********** 

* ZERO THE TUB * 
->* POINTER IN ♦- 

•PARAMETER LIST * 

* * 
***************** 



****Fb********* 
*»CC«TI * 

• " COoI •08' * 
*************** 



V 

***** 

*<J02* 
• 01* 







V 


IICKiK 


.*. 






G3 *. 






* * 


YES 


.* 


CONSOLE 


* 


"* 


REQUESTER 
TASK? 

*. .* 
*. .* 
• NO 



IINKRQ .*. 

H3 *. 

.* *. 
.* MRTS *. YES 
■ PROGRAM? .* 



*. 



*. 



IISR .*. 

J3 *. 

.* *• 
.* *. YES 

*. REOUESTER .* 

*. RELEASED?.* 



PL/Ol/Al 

****H4********* 
*tCC4TI * 

* COOE '06" • 

*************** 



****jt********** 
*tCC*TI * 

* CODe"o7~ » 

*************** 



IIKRO V 

*****K3*« ******** 



***************** 



:°8i: 
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01-F2 
***** 
*001* 
4 K3* 



.* *. 
.* DOES *. NO 

. TNT POtNT .* 

*.T0 A TUB?.* 



****82********* 
*$CCATI * 

* code"oa~ * 

*************** 



iiiiiiiiiiiiiiini 1 1 t*\j\kim\-v 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



*****C2 ********** 



I 

L .*. 

CI *. 

-•IS THIS*. 
.* A *. YES *GET MASTER TNT • 

.SUB-TERMINAL .* >* ENTRY * 

*. NAME? .* * * 

*. .* * * 

*. .* ***************** 



ii ii ii 111 1 ii 1 1 mi iiiiiiii nun in 



iiiiiiii 



* HOVE TUB * 

* ADDRESS TO * 
♦PARAMETER LIST * 

* * 
***************** 



**** 

*001* 

* EA *-> 



**** 
IIGTA V 

*****E 2 ********** 

* * 

* STEP RECORD * 

* AREA POINTER * 

* PAST NAHE * 

* * 
***************** 



.* STATUS *. YES 

*. OPERATION? .* 

*. .* 



9P.6100 

*****F3********** 
♦JCCAGA * 

->*proc"rIl!e7~aco*- 

*OR GET ATTftbTES* 
* * 

***************** 



.*• 

FA *. 
.* *. 
.* GOOO *. NO 

->*. TCB COHP. .* 

*. CODE? .* 
*■ •* 
*. .* 
* YES 



PL/Ol/Al 

****F5********* 
*»CC*TI * 

*C00l REt"?N TCB* 
*************** 



G2 *. 
.* IS *. 

.* TERHINAL *. YES 

THE .* . 

♦.CONSOLE? .* V 

•• .* ***** 

*. .* *O03* 

* NO * 05* 

r * * 



1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 VDFF /SYSTEM/ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



V 

.*. 

GA *. 
.* *. 

* RELEASE 
OPERATION? 

*. 
*. 



PP/09/A4 
*****G5 ********** 
*IIMAPP * 



* DFF INTERFACE * 

* * 
***************** 



.* TERMINAL *. NO 

♦.ALLOCATED TO .* 

*. PROG? .* 



****H3********* 
**.CCAT I * 

* COol >04~ " * 

*************** 



*. ■* 

* NO 

nil iiiiiiii i illinium ii mi iiiiiiii 
v v 

***** ***** 

*006* *006* 

* B3* * B3* 

* * * * 



iiiii mi 



CIPHVS 


.*. 




J2 


*. 


.* 


* 


.* 






*. 


TERM 


UAL 


*. ONI IN£? 




*. 


.* 




*. 


.+ 




* YES 



***** J 3** ******** 



***************** 



V 

***** 
*006* 
* B3* 



IITCBK .*. 

X2 *. 

.* TERM. *. 

YES .* CALLED BY *. NO 

*. ALLOCATED .* 

V *. NAME? ..* 

***** *. 4 * 

•003* *. .*' 

* Bl* * ' 

* * 



++**K3********* 

*iCC*TI * 

-> * * 

* CODE '05' * 

*************** 
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«**** 

:°i&* 



81 *._ 

.♦"iMPLI 
INVL 
• . out 
*. •* 

*. .* 
* NO 



IW •: 

UT .« 



*»*»B2»*»****** 
♦*CC«TI * 

->* * 

• CODE «10' * 

*************** 



uckis •*. 

Cl *» 

.* ». 

.* COMMAND ». NO 

». INTERRUPT .*■ 

«. MODE? .* 



•ft 



IVITE 
NPUT 



->♦. SCHEDULED? 



.* STOP 
->». INV 
*.INPU 



?P *. YES 
TE .» 

OP?.* 



PL/Ol/Al 

****C4********* 

♦ *CC*T I * 

* cooi'uv * 

*************** 



01 *. 

.* *. 

.* STOP *. 

"♦.INPUT fiP?.*" 

**. .*" 
» NO 



•***£!*** 
**CC4TI 



:°m 



PL/01/A1 

****Qi,********* 

♦ KC4TI » 

* co5i"oi~ « 

*************** 



NO .* OP ». 

*. VALIO FOR .* 

••CONSOLE? .* 



* TERM. ». NO 

HAVE PROPER .* 

*. I/O ? .* 



****EU********* 
•(CC4TI 

* CODE 'OC' 

*************** 



V 

.*. 

E5 ». 



— * 



NO .* OUTPUT *. 
*. OPERATION? .* 



IIROTY .*. 

G3 *. 
.* *. 
.* OP *. NO 

*. MODIFIER .* 

*. VALID? .* 

*. .» 

*. .» 

* res 



(MLTA ONLY) 
IIVLNO V PP/09/A1 

*****H3********** 
•IIMCT * 



****£<,********* 
**CC«TI * 

* "cool'01' * 

*************** 



F5 *. 

.* *. 
NO .* OUTPUT *. 

*. LENGTH > .» 

*. 80? .* 
*. .* 
*. .* 
* YES 



****£$********* 
*»CMTI * 



***************** 



V 
***** 
*004* 
* Bl* 

* * 
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***** 

• 003* 

* H3* 



.* OUTPUT 
->*. LENGTH-O? 
*. 



IIFUTH .*. 

C2 *. 
.* *. 
NO .* PUT EOT *. 

*. OR EOB AND . 

•.NOT OFF? .* 
*. •• 

*. .* 

• YES 



NO .* OUTPUT ». 

*. LENGTH > TP . 

*. BUFFER? .* 
*. .* 



.*.(ML1A ONLY) 
B3 •. 

.* *. 
.* MLTA *. YES 

. PUT EOT OR .* . 

♦ .PUT EOB? .* V 
*. . * ***** 
♦ . .4 *006* 

* NO • B3» 



.*.(BSCA ONLY) 



C3 •. 

.*pu _ 



. PUT EOT*. 

YES .*0R EOB AND *. 

». OWNS A BSCA .* 

*. LINE .« 
». .» 
*. .» 
NO 



(BSCA ONLY) 
PL/01/A1 



.». IBSCA AND OFF ONLY) 
D3 *. 

.* •. ****D4*'t'+****** 

.* 3270 ». NO **CC4TI * 

. ERASE OP? .♦ >• • 

». •• * COOE '00' • 

*. .* *************** 

*. •* 
• YES 



IIVLNI .». 

Fl •• 

.» «. 
.* GET ». YES 
». OPERATION? .* 



*. 



.*.(BSCA ONLYI 
F2 ». 

.* *. 
• BSCA 
GET BLOCK? 



YES 



.* 



*. 



.* 



.••(BSCA ONLYI 
F3 ». 
.* *. 
.* RECORD ». NO 

->». AREA LARGE .* 

*. ENOUGH? .« 



****?$********* 
*$CC*TI 

* " CODE '15' 

***♦*+*+******* 



-* 



***** 
*005* 
* A2* 

* * 



■ • *. 
.» INPUT ». YES 
*. LENGTH-O? .* 



.* BSCA *. YES 
*. ITB GET? .* 



PL/01/A1 

****G4********* 
♦1CC4TI * 

* COdI 'OE' * 

*************** 



.*. IBSCA ONLYI 



.* RECORO *. N 
->*. AREA LARGE .*- 
*. ENOUGH? .* 



(BSCA ONLY) 
PL/Ol/Al 



+***H5********* 
*$CC*TI * 



IIINRT .*. 

J3 *. 



V 

***** 
*005* 
« A2* 



*****J4*+******* 

* ADD ONE TO 

* INVITE INPUT 
->* COUNT IN TCB 

* ITCBIICI 
* 
**************** 



.* INPUT *. YES 

*• LENGTH > TP .* 

*. BUFFER .* 
*. .* 
*> .* 
♦ NO 

V 
***** 
*005* 
* A2* 

* * 



****K5********* 
•JCC4TI * 

->» * 

* CODE 'OF' * 
*************** 
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***** 
0<i-F 1*004* 
04-J3* K4* 



IS THIS 
4 CONSOLE 



///////////////////////////DFF/SYSTEM/ONLY/////////////////////////////////// 



CO? 9 



->** copy 

*. COMMAND? 



*****B2********** 

* * 

* MOVE CURRENT * 
-* TCB TO ♦ 

•PARAMETER LIST * 



PL/Ol/Al 

****C2 ********* 
*$CC4TI * YES 

* code"" 19" * 
*************** 



PL/Ol/Al 

****Q2********* 
**CC4TI * 

* cooi"iA' " * 

*************** 



V 
CPY .*. 

B3 *. 
.* *. 
.* MAPPING *. YES 

*. TERMINAL? .* 

*. .* 

*. .* 
*. .* 
* NO 



3270 
ERASE? 



.*. PL/Ol/Al 
A4 *. 

.* *. ****A5+******** 

.♦ TO A *. NO **CC4TI * 

->*. MAPPING .* >* * 

♦.TERMINAL?.* * CODE '16' * 

*. .* *************** 
*. .* 
* YES 



IICKTN 

*****$4********** 



.* 
.* 
NO 



* 


PUT 




OVERRIDES 


*. OP? 




*. .* 




*. .* 




* NO 




i 




**** 




* * 




* HA * 




* * 




**** 



♦SEARCH TNT FOR 
* COPY NAME 



***************** 



C4 *. 
.* *. 

.* NAME *. 

*. FOUNO IN .* 

*. TNT? .* 



V 
NT .*. 

04 *. 
.* *. 
.* COPY *. YES 

*. INVOLVE .* 

*. 3275? .* 



*»CC4t_ 

*" CODE 'l?" * 
*************** 



****D5********* 
*«CC4TI * 

->* * 

* CODE '18' * 

*************** 



IICMAP .*. 

E« *. 

.* *. 

.* IS OP A *. 

*. PUT BUT NOT . 

*. EOT? .* 



IICLMP V PP/09/A4 

*****F4********** 
•IIMAPP * 



****E5********* 
*$CC<iTI * 

* COtii 'IB' * 

*************** 



* DFF INTERFACE * 

* * 
***************** 



YES 



G* *. 
.* 
.* MAPPING 
*. ERRORS? 

*. .* V 

*. .* ***** 

*. .* *006* 

* NO * 03* 

////////////////////////////////////////////////////////////////////////////////////////////////////// 

* * I 

**** I 
IIUPST V 0J/01/A1 

*****H4********** 
*»CC4PS 



**************** 



V 0I/01/A1 

*****J4********** 
♦1CC4WT * 



***************** 



V PP/09/A4 
*****K4 ********** 
•IIMAPP * 
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* * 
***************** 



V 

***** 
*006* 
* B3* 

* * 
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0*-B3 
02-G5 
»005« 
» K4* 

* * 



IIREND V 

*****B3*** ******* 



* TERMINAL NAME • 

* * 
4***************4 



.*. 

C3 *. 

-*1S THIS*. 

.* A GET • 

*. ATTRIBUTE 



OTES? . 



*. .* 
* NO 
05-G4**** 
07-65*008* 
07-H4* J4 *-> 
08-H5* * 

*•** V 
IISEND .* 
03 

**** .4 

• * NO .* 

: " :<—•„. (mm 

4*44 4. 



?.* 

* 

*"*es 



V OT/01/A1 
*4444E3*4****4**4 
**CC<iPI * 



•CALL IN $CMNC * 

* * 

4444444********** 



4001* 

* C2 «-> 



4*44 

IITENO V 0V/01/B4 

4****F 3*44*4* 4*4* 
*»CC4TT * 



•TRACE 'OE' TYPE* 

* 4 

4****4**44 4***4*4 



4444G3444444444 
*$CC40P * 
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*****. 
*001» 
* 01* 



11 AC! V OT/01/Al 

*****B 1********** 
*$CC4PJ 4 

* * 

* INVOKE * 

* TRANSIENT * 

* »CC4AB * 
***************** 



*. 

ANY *. YES 

ERHINAL .* 

ERRORS? .* 
■ .* 
*. .* 
* NO 


****C2********* 
*$CC4TI _ * 

*CODE FROM TRANS* 
*************** 





Dl *. 
.*ACCEPT *. 
* INPUT *. NO 
SATISFIED? .* 



*. .* 

*. .* 
YES 



11GGSF V 

*****E1 ********** 

:.nv°It1 e Wt : 

* COUNT IN TCB * 

* ITCOIICI * 

* * 
***************** 



*****f: i#********* 



* RESET INVITE 

* STATUS IN TUB 



***************** 



.*. IIAIWT 0I/01/A1 

D2 *. *#***D3********** 

.* CCP *. *»CC4WT * 

.* SHUTDOWN *. NO »■ * 

->*. REOUESTED? .* >*WA1T ESRlNyiTE*-- 

*. .* * TO COMPLETE * 

*. .* * * 

*. .* ***************** 

* YES 



*****E2 ********** 

* * 

* SET SHUTDOWN * 

* REQUESTED BIT *- 
*IN TCB (TCBSHOI* 

* * 
***************** 



YES 



D4 *. 
.* WAS *- 
.* POST FOR *. 
->*. COMPLETE 

*. INVITE? .* 
*. .* 



IIPGSH 

*****D5 ********** 

* PLUG RETURN * 

* CODE FOR * 
— >* SHUTDOWN IN * 

* PARM LIST * 

* * 
***************** 



V 

***** 
*006* 
* D3* 



.*. 
Gl *. 

* *. 

PROGRAM *. NO 

REQUEST .* 

.* 
*. .* 

*. ■* 
* YES 



V 
.*. 

HI *. 
.* *. 
.* BSCA *. NO 
*. LINE .* 

*. .* 



*****F 2********** 

* * 

* DEQUEUE TUB * 

>* FROM INVITE * 

* INPUT QUEUE * 

* * 
***************** 

**** 

* * 

* G2 •— ■ 

* * I 
**** V 

IIRUF .*. 

G2 *. 

.*" BSCA **. NO 

— >*. LINE AND .* 7 

*.PRUF TERM.* 
*. .* 

*. .* V 

**** 



*****F3********** 

: "aw : 

->*PARAMETER LIST * 

* FROM TUB * 

* * 
***************** 



V 

.*. 

Jl *. 

.* *. 

.* PRUF *. YES 

. TERMINAL .* 

*. .* 

*. .* 

*. .* 
NO 



* RE 

SUCC 

*. Id 



.* REQUEST *. NO 

-'CCESSFUL .* 

1DATAI? .* 



■ *■ 

G4 *. 

.♦"TERMINAL '*. NO 
->*. UNAVAILABLE? .* 



IINAV 

*****Gg ********** 



SET EFFECTIVE * 

T LENGTH TO* 

ZERO 



->*INPUT LENGTH 



YES 



*****H2 ********** 

* MOVE GETMAIN * 

* PARM LIST BY * 

* PROGRAM NAME * 

* * 
***************** 



*****J2********** 

* * 
*SET RECORD AREA* 

* ADDRESS AHEAD * 
*0F PROGRAM NAME* 

* * 
***************** 



* F2 * 

* * 
**** 



V 

***** 

*008* 

* Bl* 

* * 



*****H4********** 

* * 

* MOVE DATA * 

* LENGTH TO * 
•PARAMETER LIST * 

* * 
***************** 



V 

***** 
*006* 
* D3* 



***************** 



V 

***** 

*008* 

* Bl* 

* * 



Kl *. 
.* *. 
.* PRUF *. YES 

TASK .* 

*. .* 

*. .* 
*. .* 
• NO 



*****K2********** 



*SET RETURN CODE* 
>* FOR RCV EOT * 



***************** 



* G2 * 

* * 
**** 



V 

***** 
*008* 
* Bl* 
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07-G3 
07-K2 

•007* 
* G5* 



IIBGPG V 

*****B1********** 

* MOVE INPUT ♦ 
♦LENGTH FROM TUB* 

* TO PARAMETER * 

* LIST * 

* * 
***************** 



*T0 RECORO AREA • 

* * 

***************** 



C2 
* 

IS TH 
■ MAPP 



A'MAP'PING 
.TERMINAL?.* 



(OFF ONLY) 
*. 

*. 

YES 



.*.IOFF ONLV) 



V 

.*• 

03 *. 

.*INVITE * 

LENGTH > 

ACCEPT 

. LENGTH? 



(OFF ONLY) 
PP/Q9/A4 

*****rtt********** 
♦IIMAPP * 



* DFF INTERFACE * 

* * 
***************** 

I**** 
* * 

->* H<V * 

* * 

**** 



* RETURN CODE * 

* (Oil * 

***************** 



INPUT 
LENGTH-O? 



*****F4 ********** 

* SET MOVE * 

* PARAMETERS TO * 
>* BLANK THE • 

* RECORO AREA • 

* + 
***************** 



*****G3********** 
SET MOVE 



* RECORD AREA * 

* * 
***************** 



IIDOMV V CX/01/A1 

*****H3** ******** 
»*CC4MX * 



***************** 



* H<i * 

* * 
**** 



H5 *. 
.* *. 

.* ANY *. YES 

->*. PREVIOUS .* . 

*. ERRORS? .* 

*. .* 1 
*. .* V 

* NO ***** 

I : oi: 



* * 



. C0/01/A3 
•****J4********** 
♦CMFMRT * 

* * 

• FREEMAIN THE • 

• INVITE INPUT * 

• HOLD dUFFER • 
***************** 



V 

***** 
*006* 
* 03* 
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IIMCT IHLTA SYSTEM ONLY) 

****A1********* 

* ENTER • 

» * 

*************** 



IIMAPP IDFF SYSTEM ONLY I 

****A4********* 

* * 

* ENTER * 

* * 
*************** 



mi 

ERMIN 



♦.TERMINAL .* 



*****C !***«****** 



* HI • 

* • 
**** 



* PI 

• INO 
*PARAi 



.MEfER LI 



NTO 
■ - ST 



***************** 



W?5Mf 



.* IS IT A *. 

MAPPING .« 
•.TERMINAL?.* 



MAPPING 
TASK? 



Hill V PV/01/A3 
*****04****«**«* 
•tCCADF J 

• PASs'rIwIst TO* 

* * 
***************** 



PL/01/A1 

****C5********* 
**CCATI _J 

* CODE '35' * 
*************** 



IIRTRN 

****05********* 

* * 

* ENTER * 

* * 
*************** 



MCT *. NO 

OUTPUT .* 

•CAPABLE? .* 



.* 
YES 



****L2********* 
*$CCATI * 

->* * 

* CODE 'OC * 
*************** 



****£4********* 

* * 

* RETURN * 

* * 
*************** 



.* 


*. 


NO .* OP *. 


.— •*. nW ..•* 


«. .* 


y *. .* 


•*•* • YES 


• j 


HI • 


* 


**** 1 


V 


.*. 


Gl *. 


.* *. 


.* MCT *. NO 
*. INPUT .*— 


*. CAPABLE? .* 


«. .* 


*. .* 


* YES 


**** 




* * 




* HI *-> 




* * 




**** 




IIMCTR 




****H1**«****** 


* * 


* RETURN * 


• • 


******* 


CO****** 



PL701/A1 

****G2********* 
**CC*TI * 

* CODE 'OC * 

*************** 
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SCC4IS 

****A1********* 

* * 

* ENTER • 

* * 
*************** 



•****q i********** 
♦CCPSAV * 

•SAVE RiGTsTERs"* 

* IN TCB * 

* * 
***************** 



V 0V/01/B* 

*****Cl********** 
*»CC4TT * 



***************** 



.* IS THIS *. 

*. A CONSOLE . 

•.REQUEST? .* 

*. .* 

*. .* 

• NO 



*****D2********** 
» • 

• MOVE CURRENT * 
->*TCB ADDRESS TO * 

♦PARAMETER LIST * 

* * 
***************** 



ISREQ 

•IIMCf 



CHECK HCT 
VALIDITY 



***************** 



V 
.*. 

Fl *. 
.* *. 
.* INPUT *. NO 

*. OPERATION? .* 

*. .* 
♦ . .* 
*. •* 
* TES 



*****G1 ********** 

* * 

* INDICATE READ • 

* OPERATION IN * 

* TUB * 

* * 
***************** 



ISMVPS .*. 

F2 *. 

.* 'S' *. 
.•MESSAGE TO *. NO 

— >». BE PUT TO .* 

*. CPU? .* 



*. .* 

* VES 



ISPOST DJ/Ol/Al 
*****F3*** ******* 
*$CC4PS * 



***************** 



.*. 

ft *. 

••INVITE ». 

.♦OR NO-WAIT * 

. OPERATION? 

♦ . .* 

*. .* 



*****F5 ********** 

* * 

* SET THIS TASK * 

->*NQNDISPATCH TIL* 

* POSTED * 

* * 

***************** 



. OI/Ol/Al 
**+**GA********** 
*$CC4NT ♦ 

* * 



*♦**♦♦♦♦********* 



. OV/01/B4 

+*+**H4 ********** 
*$CC4TT * 



***************** 
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OFAOOO 

****»3********* 

* * 

* ENTER * 
» * 

*************** 



4****03********** 

* GET BEGIN • 
♦ADDRESS OF PAS * 

* FROM TCB AND * 

* SAVE IT * 

* » 
***************** 



V 
.*. 

.." '•.. 

.* 2ND *. 

. CALL FOR AN . 

♦.OPERATION.* 

*. .* 

*. .* 

* NO 



*****C4********** 



***************** 



*****D2 ********** 

* * 
♦ADD 6 TO PLRECA* 

* TO POINT TO ♦< 



***************** 



.* 



*. 



ACCEPT 

INPUT .♦ 
.OPERATION. ♦ 
*. .* 

*. .« 
■ NO 



UT .♦— 
.♦ 


V 




***** 


.* 


• 010* 


NO 


♦ Fl* 



*****E3********** 



♦NAME IN PASCTN * 



***************** 



V 
050 .*. 

F3 ♦. 

.* VALIO *. 
.* OP CODE *. NO 

*. (FROM TABLE .* 

*. OPTBL) .♦ 

♦ . .* 

*. .♦ 

VES 



****E4******^^ 

* * 

* EXIT ♦ 

* * 
*************** 



****F4********* 
♦DFTO30 ♦ 

->♦- 



*****G3********** 
♦DETERMINE WHICH* 
'--CTION OF CODE+ 
GIVE CONTROL* 



:?§ c « 



***************** 



* SAVE ENTIRE ♦ 

* PARAMETER LIST *- 

* IN PASUPL * 

* * 
***************** 



->*. OP CODE .* 
*. .♦ 



OPCODE 


LABEL 


CHART LOCATION 


:: 81 


OFGOOO 
DFGOOO 


PV/10/A1 
PV/JO/AI 
PV/10/A1 


— 05 


OFGOOO 


— 32 


DFBOOO 
DFCOOO 


PV/02/A1 
PV/04/A3 






DFEOOO 


WAVA\ 


— OA 


DFROOO 
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**** 

* * 

* A3 ♦ 

* * 
**** 



OFBOOO 

•***A1****#***# 
» » 

* ENTER * 

* * 

*************** 



*****£ 1 ********** 

* INITIALIZE * 

* FIRST TIME * 

* SWITCH AND • 

* FORCE TO * 

* 'PUT-WAIT* * 
***************** 



**** 

* * 

* B2 * . 

* » | 
**** V 

.*. 
B2 *. 
.* *« 
.* ANY *. NO 

*. EXECUTION .* , 

*. OATA ,* I 
*. .* 

*. .* V 

V6S *** 



ANY *• 
MORE FIELDS . 


NO 


* » 


• IN FDT .* 


I 


*. .* 


1 


*• .* 


V 


* YES 


**** 




* 


j 


• 03 




* 


1 


**** 



**** 

* * 

* C2 *-> 



BO .*. 0FB260 

83 *. *****b«********+* 

.» *. * * 

.* DATA *. NO * * 

-FROM RECORD •* >*GET NEXT FIELD * 

*. AREA .* * * 

*. .* * * 

***************** 
ES A 



* F2 * 

* * 
**** 



V PV/12/B2 

*****E1 ********** 
•DFHOOO * 



•RESERVE THE OHA* 

* * 

***************** 



„. V PV/13/B1 
*****F1 ********** 
•DFJOOO * 

* * 

* READ FDT INTO * 

* PAS * 

* * 

***************** 



DFB030 V PV/14/B5 

*****G1 ********** 
♦OFVOOO • 



C2 *. 

* OATA * 



. PV/03/A4 
*****02 ********** 
*DFB900 * 

* * 

•PREPARE 

• THE D 

* 

***************** 



0FB290 .♦ 

C3 ». 

.* TEXT 

.* FOR THIS 

*. FIELD IN 

*. OHA 

*. .* 



*. YES 
.*" ~ '""' 



**** 

* * 

* 03 *-> 



NO 



♦****C4* 
•DF8900 



***************** 



• READ TEXT OR * 
♦PART OF IT INTO* 

* PAS • 

***************** 



*****H1********** 

* * 

* IF BLOCKING, * 

* PUT DUMMY WCC * 

* INTO TEXT * 

* * 
***************** 



* POINTERS IF * 

* BLOCKING IS * 

* NECESSARY * 

* * 
***************** 



DFBO<tO .*. 

Kl *. 
.* *. 
.* IS *. NO 

*. BLOCKING .* 

•.NECESSARY.* 



.* ANY *. VES 

*. MORE FIELDS .* . 

*. IN FOT .* I 

*. ... | 



**** 
* 
• F2 



»-> 



**** V 
DFttOBO .*. 

F2 *. 
.♦PROPER *• 
.* LENGTH * 
*. GIVEN BY 
*. USER .* 
*.. .* 
*. .4 
* NO 
**** 
•003* 

* B4 * 

* • 
**** 

PV/14/B3 
*****G2 ********** 
•DFT030 * 

• * 

* TERMINATION * 

* CODE 'F2' * 

* * 
***************** 



+***H2 ********* 



*************** 
TO! DFT030 

PV/14/B3 



**** 

* * 

* C2 * 

* * 
**** 



****J2********* 

• * 

• EXIT • 

• * 
*************** 

TO! DFDOOO 
PV/05/A1 



D3 *. 

LAST 

BLOCK OF 

TEXT 
*. 

*. .* 



•****E3********** 

* * 

• FIND END OF « 
•THIS TEXT BLOCK* 



***************** 



V PV/03/A2 

»****F3**+******* 
•0FB800 * 

* . * 

♦PUT OUT A TEXT * 

* BLOCK THROUGH * 

* J.CC4CM • 
***************** 



DFB355 V 

*****G3********** 

* MOVE LAST • 
•SECTOR OF TEXT * 

* OOWN TO FIRST • 

* SECTOR IN OHA • 

* * 
***************** 



. PV/14/B5 

*****H3********** 
•DFVOOO * 



****K2+******** 

* * 

* EXIT * 

* * 
*************** 

TO! DFOOOO 
PV/13/B3 



•READ MORE TEXT 
• INTO OHA 



***************** 



***** J3+* ******** 

* MOVE IN ESC, * 

* CMO, WCC IN * 

* FRONT OF • 

* BEGINNIMG OF * 
•NEXT TEXT BLOCK* 
***************** 



*****K3********** 

* * 
•ADJUST AOCRESS * 

* OF THIS BLCCK * 



***************** 



* B2 * 

* * 
**** 



THIS • 
fficWl *• 



• PREPARE 
->• BLOCK 
•THROUGH 



• ♦** 

• 005* 

• H5 •-> 



**•* 
0FB370 V 

*****E4********** 
•IF BLOCKING HAS* 

• DONE BEFORE 

* RESTORE WCC 

• OPCODE IN " 

* * 
***************** 



RE, * 

CC 6 • 

PL * 



*+**F4********* 

• • 

• EXIT • 

• * 
*************** 

TO! DFOOOO 

PV/13/B3 
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DFBBOO 

****A2********* 
» * 

* ENTER * 

« * 

*************** 



DFB900 

****A4********* 

* ENTER * 

* * 
*************** 



*****az ********** 

* * 

* SAVE CALLER'S * 
♦RETURN AODRESS * 

* IN PAS * 

* * 
***************** 



*****C2 ********** 

* CALCULATE * 
•LENGTH OF THIS * 

* TEXT BLOCK. » 
» MOVE LNG TO * 

* PLOUTL * 
***************** 



*****02********** 

* ADJUST LENGTH * 

* FOR ESC, CMD, * 

* WCC IF NOT * 

* FIRST BLOCK * 

* * 
***************** 



OFB840 V OJ/01/AI 

*****f ?********** 

•*CC4PS_ * 

•POST tCCtCM FOR* 

* I/O • 

* * 
***************** 



0FB850 V 01/01/41 

*****F2 ********** 
*»CC*WT * 



B4 *. 
.* USER *. 
.* PROVIDE *. NO 

.ENOUGH SP FOR.* ' 

*. FLO .* V 

*. .* ***** 

*- .* *002* 

YES * G2* 

* * 



*****C4********** 

* CALC 1ST DATA * 

* POS OF THIS * 

* FIELD IN OHA. * 

* POINT TO 1ST * 



***************** 



*****G2********** 

* * 

* SAVE PAS • 

* ADDRESS FOR * 

* THIS TASK • 

* * 
***************** 



V PV/06/A2 

*****Q4********** 
•DFD900 * 



•MOVE THE FIELD « 
* * 

***************** 



*****£ *********** 

* * 

• RESTORE • 
•POINTERS TO FDT* 

• AND TO PAS * 

* * 
***************** 



****F4********* 

* * 

* RETURN • 

* * 
*************** 



.*. 


H2 «. 


• • •• 


.* NORMAL 


. COMPLETION 


*. CODE 


*. .* 


*. .* 


* NO 


V 


.*. 



****H3********* 

• • 

• RETURN • 

• • 
*************** 



.* PUT *. TES 
*. OVERRIOE .* 



V 

***** 
*013* 
• D3» 

* * 



***** 
*013* 
* J3* 

* * 
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DFCOOO 

****A3******++* 

* ENTER * 

* * 
*************** 



*****B3********** 
•INDICATE IN PAS* 

* THAT THI' ■" 

* THE • 

* TERMI 

* * 
***************** 



IE in rfli* 

rHis is * 

•TO' » 
1INAL » 



V PV/09/A1 

*****C3* ********* 
•DFFOOO * 

* • 

•FIND OR CREATE * 

* TT ENTRY * 

* * 
+*+***♦+********* 



**4**U3** ******** 

* SAVE THIS TT * 

• ADDRESS IN * 

* PASTOO. IND * 

• NEXT FIND IS • 
♦■FROM 1 TERMINAL* 
***************** 



*****E3***4****** 

* MOVE 'FROM" 

* TERMINAL " 

*TO PAS 

* CCC 

* • 

***************** 



MINAL NAME * 

ASCTR. save* 
IF GIVEN * 



V PV/09/A1 

*****F3********** 
*DFFOCO * 

* * 

♦FIND THE 'FROM 1 * 

* TT ENTRY * 

* * 
***************** 



*****G3****+****+ 

* * 

* SAVE THIS TT * 

* ADDRESS IN * 

* PASFRD * 

* * 
***************** 



•****H3******* 

*$cc*oc • 

* * 

* BUILD "COPY' « 

* TEXT AND * 
•PARAMETER LIST * 
***************** 



V PV/U/C2 

*****, |3********** 
♦OFTOCIO * 

* * 

* CHECK * 

* TERMINATION * 

* CODE * 
***************** 
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DFDOOO 

****A1**0****** 
» * 

» ENTER * 

* * 

********<******* 



V PV/09/A1 

*****B l**>>******* 
♦OFFOOO * 



**** 

* * 

* A2 * 

* * 
**#* 



V 

.*. 
A2 ». 

.* ANY ». 
.« OVERRIDES ». NO 

. OTHER THAN .* 

*. HCC .* 



**** 

* * 

• A3 * 



**** 
» B2 *-> 



.* 



V 
***** 
*002* 
* 64* 



**** V 
DFD200 .*. 

A3 *. 
.» TYPE *. 
.•CURSOR AND ♦. YES 

*. MODIFY NOT .* 7 

*. SPEC .* 



**** 

* * 

* A4 ♦ 

* * 
**** 

I 

V 

♦♦♦**A4********** 



MOVE NULL 

CHARACTERS TO 

OHA 



♦ . 



* FIND TT ENTRY * 

* • 
***************** 



" PV/13/B1 
♦♦♦♦♦CI********** 
•DFJOOO * 



***************** 



DFD020 V 9P.6210 

*****01**«******* 
*»CC*OB » 



.* DOES *. 
.♦NAME IN LRA*. YES 

*. MATCH FIELD .* 

■lAME *■■ 



..ME . 
*. FDT 



NAM 

. F 

*. 



• NO 



*****B3********** 

* * 

* MOVE 'SBA' AND * 
♦TEXT ADDRESS TO* 

* OHA • 

* * 
***************** 



***************** 



* GA * 

* * 
**** 



* G* * 

* * 
**** 



V 

.*. 

C2 *. 



* D2 * 

* * 

**** 



Iff" 



"PUT » 

Ealc Text lng * 

*********«*♦♦♦♦** 



*, 

YES .*" ANY *. NO 

— *. MORE FDT .* 7 

I *. ENTRIES .* 

V "». .*" V 

**** * *♦*♦ 

* ***** * * 

* B2 * * * H5 » 

* * 02 * . * » 

***** * I **** 

**•* V 
.*. 
D2 *. 
.* *. 
.* IS *. NO 

*. BLOCKING .* 7 

♦.NECESSARY.* 

«. .♦ I 
♦ . .♦ V 

YES **' 



C3 ♦ 
.♦ 
* TYPE 
SPECIFI 



DF0230 V 

*****03********** 

* MOVE 'SF' AND * 

* «ATR' TO OHA * 
♦AND 'ATR' TEXT ♦ 

♦ ADORESS ♦ 

♦ ♦ 
***************** 



V PV/14/C2 

♦ ****E1 *****♦♦♦♦♦ 
•DFTOOO ♦ 

* ♦ 

♦ CHECK * 

♦ TERMINATION ♦ 

♦ CODE * 

***************** 



*****F1********** 
♦DFHOOO * 



*GETMAIN THE OHA* 
* * 

***************** 



* A3 * 

* * 
**** 



IS *. NO 

ICK 



*. BLOCKING .♦- 

♦. NECESSARY. ♦ 



.* 

YES 



**#**H I *«<*****♦♦♦ 

♦ MOVE A 'PUT ♦ 
♦BLOCK' OP CODE ♦ 

♦ IN PARAMETER ♦ 

♦ LIST ♦ 

♦ ♦ 
♦♦♦♦♦*******♦♦♦** 



*****E2********** 

* CALCULATE * 
♦LENGTH OF TEXT ♦ 
♦NEEDED FOR THIS* 

* FIELD ♦ 

* * 
***************** 



DFD170 .*. 

F2 ♦. 

.* WILL ♦. 

.♦NEW LENGTH ♦ 

♦. EXCEED SIZE 

♦. OF OHA .♦ 

♦ . .* 

♦ . .* 

' YES 



V PV/03/A2 

*****G2#********* 
*OFB800 * 

* . ♦ 

♦ SEND THE TEXT * 

♦ GENERATED SO * 

♦ FAR * 
***************** 



♦♦♦♦*H2+********^ 

* POINT BACK TO * 

* BEGIN OF OHA. ♦ 

* INSERT ESC, ♦ 

* CMD. HCC ♦ 

* ♦ 
***************** 



V 

.*. 

E3 *. 

.* *. 

.* SPD ♦. NO V 

♦. FIELD TYPE .♦ — 

*. .* 

♦ . .* 



*****F3*********^ 

♦ * 
♦MOVE DESIGNATOR* 

♦ CHARACTER TO ♦ 



***************** 



DFD280 • ♦- 

F4 ♦. 
.* ONLY ♦. 

.•MODIFY DATA*. YES 
->♦. FOR SPD .♦ 

1*. FIELD .♦ 
♦ . .♦ 
♦ . .♦ 
** * NO 



*****F5********** 

•CONVRT • 

* * 

->*CALCULATE ADDR * 

* OF DESIGNATOR * 

* CHARACTER ♦ 
************♦♦♦♦♦ 



► FA 

k 
*♦♦♦* 



***** 
* 
G4 ♦-> 



CURSOR ♦. NO 
SPECIFIED .♦ 



*****H3********** 

* * 

* MOVE 'IC AND * 
♦TWO 'SYN' CHAR ♦ 

♦ TO OHA ♦ 

♦ * 
***************** 



**** 
DFD300 .*. 

G4 ♦. 
.♦ ♦. 
.* MODIFY ♦. YES 

*. DATA WITH .♦ 

*. REOUSST .* 



PV/07/A2 
*+***G5 ********** 

♦DF09C0 * 

* * 

>* MOVE MODIFY * 

♦ DATA TO OHA ♦ 

♦ * 
***************** 

**** 



* ANY *. NO 

MORE MODIFY .♦ 7 

♦. FIELDS .♦ 

♦ . .♦ I 
♦ . .♦ V 

♦ YES ♦♦♦♦♦ 
I ♦*** *002* 
* ** £*♦ 
->♦ B2 ♦ ♦ ♦ 



++** 



DFD050 V 

*****J 1********** 

* MOVE ESC CMD * 
♦INTO TEXT AREA.* 

* CONVERT '00' * 

* WCC TO '6A' ♦ 

* ♦ 
****************** 



**+**K I ********** 

* MOVE REAL WCC * 
♦TO TEXT,, OR IF ♦ 
♦BLOCKING, MOVE * 

* DUMMY WCC * 

* * 
***************** 



ERASE 
SPECIFIED 



K3 



* FA * 

♦ ♦ 

♦ *** 



♦ A2 ♦ 

• * 
♦ *** 



*. 
.*" FIELD ♦. NO 

♦. L1NGTH <_ 2 .* 

♦ . .♦ 

*. .♦ 
*■ ■♦ 
♦ YES 

V 
***♦ 

* * 

* A4 * 



* MOVE 'EUA TO 
>♦ OHA 



PV/06/A1 

*****K !>*********♦ 

* *CONVRT ♦ 

* * * 

* >* CONVERT START * 



***************** 
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CONVRT 

****A1********* 

* ENTER * 

* * 
*************** 



*****B1 ********** 



•MOVE TEXT as TO* 
* THE OHA * 



***************** 



**** 
CONOOO V 

*****C1********** 
* * 

♦DECREMENT TEXT * 
•CONVERT LENGTH * 



***************** 



.* DONE 
*. CORNERING 



****D2********* 

* * 
->* EXIT * 

* * 
*************** 

RETURN! TO 
CALLER'S NSI 



CON005 V 

*****£ 1 ********** 
* * 

♦INCREMENT TEXT * 

— >* AOORESS BV 1 * 



***************** 



CONOIO .*. 

F2 *. 
■ * *. 
.* X'BA' *. VES 

>*. ON IN .* 

*. RESULT .* 
*■ ■* 
*. .* 
• NO 



*****F3********** 



* SET OFF X'BO' 
->* IN RESULT 



***************** 



*****G1 ********** 

* * 
•HAKE RIGHT MOST* 
♦BYTE OF RESULT * 

* X'40' * 

* • 
***************** 



•****H I ********** 

* * 

* SET UP TO ADO * 
— * ONE TO LEFT * 

* MOST BYTE * 

* * 
***************** 



.•RESULT *. 
.* - X'+l'OR *. YES 
*.X'51'. 5'82' .* 



Oft 


X 


70* •* 


*. 




.* 


"■ 


.* 




« NO 






**** 






* 






->* CI 






• 






**** 



* * 
♦SET ON X'SO 1 IN* 

->* RESULT * 

* * 

* * 

***************** 

I**** 
* * 
->* CI * 
* * 

*•** 
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DFD900 

* * 

* ENTER » 

* » 

*♦**♦♦ ********* 



OFEOOO 

**+*A3********* 

* * 
» ENTER * 

* * 
*************** 



*****B2********** 

* SET OP 'HOVE' * 

* INSTRUCTION. * 

* POINT TO NEXT * 

* TO LAST DATA * 

* POS IN TEXT * 
***************** 



V 
0FO930 .*. 

C2 ». 

, ..* ♦ . 
.* NUMERIC *. 
*. FIELO 

»,. .* 



.* 



* .■ 



C3 ♦ . 
• ni *. 

ONE IN «. NO 



>♦. RIGHTMOST .♦-- 
*. CHARACTER. 
*. .* 

*. .* 
' YES 



*****D3**4******* 

* HOVE IN MINUS * 

* SIGN IN * 

* RIGHTMOST * 
♦POSITION IN OHA* 

* * 
***************** 



*****£ 3********** 

* * 

* ADJUST LENGTH * 

* OF MOVE * 

* INSTRUCTION * 

* * 
***************** 



> 



V PV/09/A1 

*****B3********** 
•DFFOOO * 

* * 

* FIND TT ENTRY * 

* IN PAS * 

* * 
***************** 



*****C3********** 

* MODIFY * 
♦PARAMETER LIST * 
*TO USE TEXT IN * 

* PAS * 

* • 
***************** 



4****03********** 

* * 
•MODIFY OP CODE • 

* TO "PUT * 

* MESSAGE' ♦ 

* * 
***************** 



****E3********* 

* » 

* EXIT * 

* * 
*************** 

TO: DFQOOO 

PV/I3/B3 
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» MOVE THE DATA * 
♦TO OHA FROM LRA* 



***************** 



DFD956 

*****G3********** 
» IF NEGATIVE ♦ 
♦NUMERIC. FORCE * 
•RIGHTMOST ZONE • 

♦ TO 'F« ♦ 

♦ ♦ 
***************** 



♦ POINT XR1 TO ♦ 

♦FIRST CHARACTERS 
♦Of NEXT F1-- 

* XR2 TO 6 . . . 
♦AFTER THIS FLO 
***************** 



ARACTE 

F Syte" 



0FD970 

****J3********* 

♦ * 

♦ RETURN ♦ 

♦ * 
*************** 
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DFFOOO 

♦***A1*+******* 

* ♦ 

* ENTER * 

* ♦ 
*************** 



*****Bl**4******* 

* * 
» LOAD FIRST TT * 

* ENTRY FROM * 

* PASITT * 

* * 
***************** 



**** 

* * 

* e2 *-- , 

* * I 
**** V 

DFF040 .*. 

B2 *. 

.* 'PUT *. 

.» MESSAGE' *. 

«. {NOT .* 

•.OVERRIDE).* 

*. .* 



.*. 

CI *. 

.* THIS *. 

.♦ENTRY NAME * 

SAME AS 

*. DESIRED .* 

*. ONE .* 

*. .* 

* NO 



* NO 



.*■ 

C2 *. 

.* * 

.* 'COPY 
*. TO' 
*. TERMINAL 



**** 

* * 

* A3 *— ^ 

**** 1 
V 
***** A3*** ******* 

* * 

* CHAIN THIS * 

* ENTRY TO LAST * 

* ONE * 

* * 
***************** 

**** 

* * 

* B3 *-> 

* * 
**** 

" 
*****83********** 

* MOVE TERMINAL * 

* NAME TO THIS * 

* ENTRY. BLANK * 

* OUT FT PTR * 

* * 
***************** 

**** 

* .* 

* C3 * . 

« * I 

**** V 



**** 

* * 

* A* *— « 

* * | 
**** V 

DFF300 .*. 

A* *. 
.* IS *. 
.♦THERE AN FT*. YES 

*. ENTRY FOR .* . 

•.THIS FMT .* I 
». .* 

*. .* V 



* C3 * 

* * 

**** 



ESV YES .* 



> J3 * 

k * 
**** 



DI *. 
.» *. 

IS THIS ». NO 

'EMPTY' .* 

. ENTRY .» 
*. .* 
*. .* 
• YES 



*****E1********** 

* SAVE THE * 
•ADDRESS OF THIS* 

* ENTRY IN PAS * 

* * 

***************** 



'RtLEASE 
. OPCODE' 



• J3 • 

t * 

**** 



COPY 

•FROM' 

TERMINAL 



V 
20 .*. 

B4 *. 
.♦ENOUGH *. 
.♦SPACE FOR A*. NO 

NEW FT .* . 

«. ENTRY .* I 
♦ .. .* 



* J4 * 

* * 
**** 



**** 

* * 

* A5 * 

* * 
**** 

I 

V 

.*. 

A5 *. 

: ,-*op p c ? o £ *- 

•.OVERRIDE . 
*. .* 

* . .* 

* YES 



****B5********* 
•DFT030 * 



D3 *. 
.♦PROGRAM*. 

.♦ REQUEST ♦. NO V 

♦.UNDER FORMAT .* . 

». (PRUFI .* 

• ■ .* 

*. .* 

YES 



*****E 3**** ****** 



* MOVE IN PRUF 
« NAME 



***************** 



* YES 



***^C4********** 



***************** 



♦♦♦••D4 ********** 

♦ SET UP IOB IN ♦ 

♦ PAS TO READ ♦ 

♦ FORMAT INDEX * 

♦ FROM KCPFILE * 

♦ INTO FOT AREA * 
***************** 



DFF345 V PV/14/B5 

*****E<t ********** 
♦DFVOOO ♦ 



♦ H2 * 

* * 
**** 



**** 

* * 

* C5 ♦- 



l<- 

V 



„* 



C5 *. 
WI IT 



FDT FIT IN 
♦ . PAS 
». .» 
*• .♦ 
" NO 



• H3* 

* • 
♦ ♦•* 

PV/14/B3 



•DFT030 ♦ 



• ♦ 
• I. 
LASf 



. YES 
ENTRY .* . 

..." I 



♦ B2 ♦ 

* * 
*•** 



*****Gl ********** 



***************** 



• *. 

F2 *. 
.* *• 
OLD * 

ENTRY 

. AVAILABLE. ♦ 

*. .* 

*. .* 

♦ NO 



V 
.♦. 

G2 ♦. 

.♦HILL A ♦. 
NEW ENTRY * 
FIT IN 
PAS .♦ 



♦ . 



♦ *** 

* * 

* H2 * 



DFFUO .*. 

F3 *. 
.* 'PUT *. 
ES .*MESSAGE' OP*. 
—7 ♦. (NOT 

•.OVERRIDE).* 
I *. .» 

V *. .* 

**** * YES 



* B3 * 

* * 
**** 



G3 

.♦NAM. . 
.* FORMAT 
*. MATCH NAME 
*.FT ENTRY . 
*. .* 
*. .♦ 
♦ YES 
**** 

* * 

* H3 *-> 

* * 
**** 

DFF140 V 

*****H3********** 

* * 
♦INITIALIZE IMT * 
•AND INPUT TEXT * 

* LENGTH IN TT • 

* * 
***************** 

**** 



* READ FORMAT ♦ 
♦INDEX INTO PAS ♦ 

♦ * 
***************** 



DFF350 .*. 

F4 *. 

.* *. 

.* FORMAT *. 

*. NAME IN 

*. INOEX .* 

♦ . .♦ 

.♦ 



****f:5**4****** 
♦DFT030 * 

♦ tIrm~codI~~fc"% 
*************** 



* YES 



* J3 * 

* * 
**** 



**** 

* ♦ 

* A3 * 

* * 

**** 



0FF356 V 

♦♦***G4********+* 

* SETUP IOB TO ♦ 

* REAO AS MUCH * 
•FDT INTO PAS AS* 

* WILL FIT * 

* * 
♦♦♦♦♦♦♦♦♦«♦♦♦**** 



* A4 * 

♦ * 
**** 



V PV/14/B5 

*****H4****^* + ** 
♦DFVOOO * 

* * 

* READ FDT FROM * — 

* DISK * 

* * 
♦♦♦♦♦♦♦**«**•♦*•* 

**** 

* * 

* J4 



*****H5 *****♦♦♦♦♦ 



BUILO UP FT 
ENTRY 



***************** 



****J3********* 

* * 

* RETURN * 

* * 
*************** 



I < 

**•♦ V 
DFF390 .*. 

J4 *. 
.♦MODEL #*. 
.♦ OF FMT 6 ♦. NO 

♦. TERMINAL .♦ 

*. MATCH .* 



♦***J5********* 
*DFT030 * 

♦ TERM CO0E~"f3~» 

*************** 



V 

.*. 

K4 *. 
.* ♦. •♦** 

.♦ PRINTER ♦.NO * * 

*. GENERATES .* >* C5 * 

*. FORMAT .* * * 
*• .* **** 

*. .* 
♦ YES 
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» A2 * 

« * 
**** 



OFGOOO 

***«Al**M***** 

* * 
» ENTER * 

* + 

*************** 



V PV/09/A1 

*****$! ********** 
♦DFFOOO * 



.* RETURN 
*. CODE > 3 
*. < 
*■ 



*. YES 

OR .* . 

•* 



♦ K4 ♦ 

* * 

♦ ♦♦♦ 



* FINO TT ENTRY * 

* * 
***************** 



CI *. 
.* *. 

.* 'ACCEPT *. YES 
*. INPUT" .* 

♦.OPERATION.* 

*. .* 

♦ ,. .* 

' NO * 



***Q1»********* 

* HOVE EXPECTED * 
♦TEXT LENGTH TO * 
•FARM LIST. INIT* 
♦RETURN ADDRESS * 

* TI) Fl * 

***************** 



62 *. 

.* *. 

ANY *. 

DATA 

.RECEIVED .* 

*. .* 

*. .♦ 

YES 



.._ _ 'AID 
CHARACTER TO 

♦ LRA. POINT TO ♦ 

♦ FDT ♦ 

♦ ♦ 
♦***♦♦♦♦♦**♦*♦*** 



*♦** 

* * 

* A3 * ■ 

* * 
♦*** v 

OFG140 .*. 

A3 *. 
.* THIS *. 
.* FI6L0 *. NO 
*. WANTED IIFT .*--- 
*. SIT ONI .* 
*. .* 
*. 
* 

**** 

* * 

* B3 *-> 

* * 
**•* 

DFG150 V 

*****B3********** 



**4**A4********** 

* FIND BEGIN * 

* LOCATION OF * 

->* NEXT FIELD IN *— 



♦ INCREMENT I 

♦ POINTER. GE 
♦NEXT FDT FIE 



***************** 



***************** 

**** 

* ♦ 

* B4 * 1 

* * I 
**♦♦ V 

DFG180 .*. 

B4 *. 
.* 



*****B5********** 



CARD 

rhd 



♦ K4 ♦ 

* * 
**** 



* I NCR IHA * 
>*POINTER TO NEXT* 

♦SBAS9 SEOUENCE * 

* * 

***************** 



l< 

V 
.*. 

iht"*. 



*****cs********** 



:* ?fIe?8 *:JS ^pointIS «»„„» 

*. WANTED! .* *SBAS3 SEOUENCE • 



**♦♦ 
♦Oil* 
* Dl ♦-> 



♦♦*♦ 
OFGllO .*. 

D2 ♦. 
.♦IS THIS^. 
.♦ FOT FIELD *. YES 
-ytP — 



.* 
.* 
* YES 



V 
D4* '♦. 



.->♦• 



♦*♦♦ 

♦013* 

->♦ 03 ♦ 



.1. 

* * 

* 02 * 

* * 

**** 



*Wlb 



PUT .♦ 7 



♦ . 



,* 
NO 



.♦ WILL 
♦. DATA PIT 
♦ . LRA 
♦ . .* 

*. .* 
YES 



*. NO 

IN .* 



* B3 * 

* * 
♦ ♦♦♦ 



***************** 

I**** 
• * 
->* H4 * 



♦TERM CODE 'FO' * 

*************** 

A 



* K4 • 

* * 

**** 



NO 

' + . 



* TEXT 


uNG TO * 


*E 1 FROM F0TDT3* 
♦AND 3270 OATA a* 




NO .♦ SPO ♦ 




NO .* S 


f *. YES 


.* TH 


s *. 


->* PRESENT PARM * 






-*. FIELD 


'.*< — 






I * LIST * 


* NOW USING * 




| 


*. .* 




*. AID .* 


*. OR SPA .* 


* * 


* ♦ 






*. .* 




*. .* 


*. .* 


1 *******>»********* 


******** 


i******** 




V 


*. .* 




*. .* 


*. .* 


**** 








**** * VES 




* 


" YES 


♦♦♦♦ 








* 




* 












61 *001^ 
♦ 8* *-> 








* 


G3 


* 


















* 




* 












♦♦♦♦♦ ♦ 








**** 












**** 


V 


















0FG060 ,.♦. 


• *• 






V 






0FG220 


Fl ♦. 


F2 *. 






♦••♦♦F3********** 




*****F 5 ********** 


.♦ ♦. 


TEXT > .* ♦. 






* 


* 




* MOVE A ■>• IN ♦ 


YES .♦ 'INVITE «. 
,— ♦. INPUT' .♦ 


FDTS .♦ TEXT *. YES 




♦INCREMENT PAST 
♦ DESIGNATOR 


* 




♦ LEFTMOST * 


.— *. AOORESSES .*■ 






* 




♦ POSITION OF ♦ 


♦ . .♦ 


*. MATCH .* 






♦ CHARACTER 


* 




♦ FIELD IN LRA ♦ 


♦ . .♦ 


*. .♦ 






♦ 


* 




♦ * 


V ♦.. .♦ 


V ♦. .* 


V 




***************** 




***************** 


♦♦♦♦ 


' NO 


**** *TEXT < 


**** 










1 


♦ 




* * 


F0T3 


* 


* 


**** 








**** 


K4 ♦ 




* A3 * 




• B4 


* 


* * 








* * 


♦ 




* * 




* 


* 


* G3 «-> 








->♦ H4 ♦ 


♦♦•• 




**♦* 




*♦♦♦ 


* * 








♦ ♦ 














**** 


1 






♦ ♦♦♦ 




' PV/13/B1 


" 






.4 


>. 








♦••♦♦Gl* 


********* 


*****G2*«* ******* 






G3 *. 




♦****G4 ********** 


♦**«*G5********** 


♦DFJOOO ♦ 


* * 
•FIND NEXT SBA38* 

* SEQUENCE * 






.♦ ♦. 
.* NUMERIC * 
*. CODE 


. YES 


* RIGHT ADJUST * 
>* DATA FROM IHA * 


* * 

♦CONVERT SIGN OF^ 

— >♦ RIGHTMOST ♦ 


♦BRING FOT INTO ♦ 






♦ PAS * 


* * 






♦ . .♦ 




* TO LRA « 


♦ POSITION ♦ 


* * 


* * 






♦ . .♦ 




* * 


* * 


******** 


:******** 


******** 


******** 






♦ • ■♦ 




♦♦♦♦♦♦♦♦********* 


***************** 
















rtU 




+ *** 

* * 

* H4 ♦ . 


| 






V 












**** I 




0FG080 


0X/01/A1 


.*. 












0FG370 V 




*****H1* 


********* 


H2 *. 






*****H3********** 


*****H4********** 




*$CC4MX * 


.* *. 
.* END OF ♦. YES 




* 

* LEFT ADJUST 

* OATA PROP IHA 

* TO LRA 


* 
* 


* INCREMENT TO * 
*FIRST POSITION * 




.re^Id r ar^ u f rJ 
♦expected lengths 


*. TEXT .*- 

♦ . .♦ 






* 


>* OF NEXT FIELD * 

* IN LRA * 




♦ . .♦ 


1 




* 


* 


* * 




***************** 


*. .* 


V 




********♦♦♦♦♦**** 


***************** 








• NO 


**** 
















1 **** 


* 


* 






**** 










* * 


* K4 


* 






* * 










->* 02 * 


* 


* 






* J4 ♦-> 










* * 


**** 






* * 






V 


**** 










*♦♦♦ ' 




.*• 












• *. 




Jl *. 












J* *. 




.* ♦. 












.* ♦. 




.* HAS ♦. YES 












.♦ FINISHED *. NO 

♦ . WITH 3270 .* -. 

*. TEXT .* 




♦.RELEASED .* 


V 












*. .♦ 


*♦♦** 










*. .* 1 




♦. .♦ 


• 014* 










*. .* V 




! 


NO 


* Dl* 
















> YES ***» 







*****KL>f ********* 

* INITIALIZE + 
•AMOUNT OF TEXT * 
•PROCESSED £ TO * 

* PROCESS * 

* 4 
***************** 



* K4 * 

* * 
**** 

****K4*****4*** 

* * 

* EXIT * 

* 4 

*************** 

TO: OFG400 
PV/11/A1 



* 63 * 

* * 
***• 



* A2 4 

4 * 

4444 
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OFG400 

**»*Al******++* 

* * 

* ENTER » 

* * 

*************** 



.*. 
Bl ». 

.* ANY ». 
.* DATA LEFT *. NO 

». TO .* 

*. PROCESS .* 



CI *. 
.» THIS *. 
.♦FORMAT HAVE*. NO 

*. A FIELD IN .* 

*. COL 1. .* 
*.ROH I.* 







B2 *. 










.* *. 








.* 


■ACCEPT 


*. 








INPUT" 
OPERATION. 








* 


* 








*. .* 










*. .* 










* NO 







*****03********** 

♦RESTORE LRA PTR» 

*IN PARM LIST TO* 

->* POINT TO * 

* TERMINAL NAME * 

* • 
***************** 



0FG450 .*. 

C2 *. 
.* IS *. 

.•RETURN CODE*. NO 



u 53 u 



* YES 



*****D1 ********** 

* POINT BACK TO * 
•2ND POSITION IN* 
*LRA £ FIRST FOT* 

* ENTRY * 

* * 
***************** 



V 
***** 
*010* 
* 02* 



DFGT10 V 0Z/02/A1 

*****o? ********** 
♦ SCCFH * 



* FREEMAIN THE 
♦INPUT HOLD ARE 



***************** 



DFG770 V OJ/Ol/Al 

•****E 2 ********** 
**CC4PS « 

*poIt">cc4Ch"6f"* 
♦available space* 

* * 

***************** 



F2 *. 

.* *. 
.* 'GET' * 
*. OPERATION 



*. 



DFG480 

F3 
.* IS 
.* USER'S * 
—>*. EXPECTED LNG 
*.T00 SHCRT.* 



*. 



•OEQUE THIS TUB * 
FROM INVIT' " 
FOR THIS 



♦FROM INVITE QUE*- 
TASK * 



*****F4********** 

* * 

* INOICATE * 
->*TRUNCATED DATA * 

♦IN RETURN CODE * 

* * 
***************** 



****♦♦*****♦♦**** 



DFG500 V 

♦♦♦♦♦^►♦♦♦♦♦***** 
♦RESTORE USER'S * 
♦EXPECTED LENGTH* 

* AND LRA 3 IN • 

* THE PARAMETER • 

* LIST * 
****♦♦♦♦♦♦******* 



V 
.*. 

H4 *. 

■ * *. 
.* MAS • 
*. 'CLEAR' KEY 
♦. PRESSED .♦ 



.♦ 



♦ »*** 

♦ 013^ 

♦ J3* 



V 
***** 

• 013* 

♦ D3^ 
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****g2**44***4* 



♦DFT03. 

*tIrS"odI"<F8"* " 
4**4****4****** 



PV/14/83 

*4**F 1****4**4* 
4DFT030 * 

*t|rm~codI"fb" 



44**444*444*44* 



44444C24444444444 
4 4 

•DETERMINE WHICH* 

* BSCA LINE THE * 
♦TERMINAL IS ON 4 

* * 
44444444444*4*44* 



* TEXT 4. NO 

SIZE > OHA .* 

*. SIZE .* 



*. 

* 
2 

.4 



NO .* IS OHA «. 
*. > OR - 512 



.* 
"**VES 



****** 



44*44**4 



V 
■ *• 

F2 ♦. 

.* 4. 
NO .* IS OHA «. 

*. > OR - LINE .* 

*. BUFFER .* 



4*44 
4 4 

* C3 * 

* 4 
**** 

J— 7 

0FH065 •*. DFH070 I OI/Ol/Al 

C3 *. *****C4*4**4*4444 

.4IS THIS*. *$CC4WT 4 

.* OHA BEING *. YES * * 

4. USED BY .4 >4 WAIT FOR 4 

*. ANOTHER .4 4AVAILABILITY OF4 

*.TASK .* * THIS OHA * 

4, .4 4444***4*44*4+*+* 
NO 



4444*03**+** 444*4 

* SAVE THE OHA * 
•ADDRESS IN PAS * 
*AND ALLOCATE TO* 
4 THIS TASK * 

* * 
***4****4****4444 



4****E 3**4*444*** 



* DETERMINE END 
♦ADDRESS OF OHA 



4**444444444*4**4 



444*F3**+*+**4* 
4 4 

4 RETURN * 

* 4 

*************** 



4*44*G2 444 444**44 
4INDICATE IN PAS* 
♦THE SIZE OF OHA* 
*6 WHETHER THERE* 
•IS BLOCKING OR 4 
* NOT * 
444444***4 4444444 



• C3 4 

* 4 
4*** 
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DFJOOO 

****B1********* 

* * 

* ENTER * 

* * 

*************** 



DFQOOO 

****b3********* 

* * 

* ENTER * 

* * 
*************** 



-*IS THE *. 
.♦DESIRED FDT*. YES 

+ . NOW IN .* 

*. PAS .« 



OFJ030 V 

*****Dl ********** 



***************** 



V PV/14/B5 

*****£ J********** 

*DFVOOO * 



READ FDT FROM 
DISK 



***************** 



****F1 ********* 

* RETURN * 

* * 

*************** 



DFQQ30 

****F2********* 

* * 

* ENTER * 

* * 
*************** 



*****C3********** 

r ov § F « E f§ 0F : 

•RETURN POINT IN» 
* PAS » 



**+* 

•Oil* 

* H* *-> 



***4******** 



**** 
OFGOIO V 

***+*0 3**+*****+* 

•RESTORE ICC4II • 
• REGISTERS • 



***************** 



****+F3**+******* 
•RESTORE USER'S • 
•INFORMATION IN • 
->* PARM LIST. ♦ 
• CLEAR RETURN • 
•AODRESS IN PAS * 
******••••••*•••• 



.» *. 
.* *. YES 

*. SUCCESSFUL .* 

•-OPERATION.* A 



K3 *. 
.*OP PUT *. 
.* HSG INCT *. NO 

••OVERRIOESI OR.* 



03-J2 

**** 

*010» 

* HI •-> 



*••• 
DF0O5O V 

*****J3********** 

* * 

* BLANK OUT * 

* TERMINAL NAME * 

* IN TT ENTRY * 

* * 
***************** 



Chart PV (Part 13 of 14). Display Format Control Routine ($CC4DF) 



9-146 



DFROOO 

****A1 ********* 

* * 

* ENTER * 

* * 
*************** 



V PV/09/A1 

*****&]********** 

*DFF00Q * 



***************** 



CI 



**** 
♦009* 
* Jl *-> 



+ *** 

V 
*****01 ********** 

* * 

* BLANK OUT THE * 

* TERMINAL NAME * 
♦IN THE TT ENTRY* 

* * 
***************** 



DFTOOO 

****C2 ********* 

* * 

* ENTER * 

* * 
*************** 



***«E1 ********* 



*************** 



TO: DFG030 
PV/13/F2 



DFT030 

****B3*«4****** 

* * 

* ENTER * 

* * 

*************** 

«*** 

* * 

* C3 *-> 

* * 
**** 

V 
*****C3********** 



* TERMINATION 

* CODE TO PASTC 



***************** 



DFVOOO 

****BS ********* 

* ENTER * 

* * 
*************** 



V SEE NOTE 
4****05********** 



^Ss 01 



D3 ». 

.» IS *. 

.♦TERMINATION*. 

■CODE IN PAS -■ 

*. .» 

*. «* 

*. .* 



DFTOIO V 0T/01/A1 

*****E3********** 

**CC4Pl * 

* * 

♦CALL »CC4D0 TO * 
*CHK IF MSG 528 * 
♦SHOULD BE GIVEN* 
***************** 



4**»*F 3*** ******* 

* * 

* POINT ARR TO * 

* TERMINATION * 

* CODE * 

* * 
***************** 



****04********* 

->* RETURN * 

* 4 

*************** 



****E4********** 

TERMINATION 
CODE «F9> 



*<- 



**************** 

I**** 
» * 
->* C3 * 

* * 
**** 



***************** 



\ SEE NOTE 
*****D5 ********** 



♦NCEIOH DISK* * 
* NAIT * * 



***************** 



NORMAL 
COMPLETION 

"*. .*" 
*. .* 

YES 



****F 5 ********* 

* RETURN * 

* * 
*************** 



NOTE: SEE IBM SYSTEM/3 DISK SYSTEMS 
SYSTEM CONTROL PROGRAM 
LOGIC MANUAL, SY21-0502 
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*Cf»TR 

****A2********* 

* * 

* ENTER * 

* * 
*************** 



V 
BRTIAR .*. 

B2 *. 

.* *. 

IS THIS 



NO 



-*. 



CCP LEVEL 

"*. .*" 

*. .« 

YFS 



TTOS" 

NO . 



B4 



V 



* K2 * 

* * 
**** 



NO .* IS *. 
— *. TRACE ENTRY . 
*. WANTFO .* 
*. .* 
*. .* 
YES 



*****D2** ******** 

* * 

* BUILD TRACE * 
♦ENTRY ACCORDING* 

* TO TRACE ID * 

* * 
***************** 



E2 *. 

.* * . 

.* IS *. 

. TRACE OFF . 

*. PENDING .* 



*. 



*****F^** ******** 

* * 

* SET TRACE OFF * 
->*RECEIVEO BIT IN* 

* TRACF ENTRY * 

* * 
***************** 



.* *. **** 

.* IS *. YFS * * 

*. TRACE TABLE .* >* B4 * 

*. FULL .* * * 



* G? *-> 



**** 
TTPUTB V 

*****H2******+**+ 

* MOVE TRACF * 

* ENTRY TD NFXT * 
♦AVAILABLE SLOT.* 

* BUMP NEXT * 

* ADDRESS * 
***************** 



V 
TTRFTC .*. 

M2 *„ 
.* *. 

NO .* IS *. 

— *. SERVICE sin .* 
*. ACTIVE .* 
*. .* 



**** 

* * 

* K2 * 



* YFS 



,* 
* IS DISK 

TRACE ON 

+ . . 

*. .* 

*. .* 

* YES 



V 


TT?EFF .*. 


C4 *. 


.* HAS *. 


.*DISK TRACE 


*. AREA 
*. WRAPPED . 


*. .* 


*. .* 


* NO 



*****f>4 ********** 

* SET TABLE END * 
*B!T IN TRACE 10* 

* FIPLO HP LAST * 

* TRACE ENTRY * 

* * 
***************** 



***a ************* 



4ft*************** 



• *4 

G* *. 

.*IS DISK*, 

.*TDAfP ARFA *. 

NOW 

*. filled .* 
* . .* 

*. . * 



* MP 



*****H/* ********** 
*PUMO DISK TRACE* 

* C/S BY NIJMPPR * 

* pF TRACF * 

* SFCTPRS * 

* * 
***************** 



V PZ/91/A? 

*****J2********** 
**CC*SA * 

*_- _ ____* 

* TRACE SFPVKE * 

* AID * 

* * 
***************** 

**** 

* * 

* K2 *-> 

* * 
**** 

****K ?*#******* 

* * 

* RETURN * 

* * 
*************** 



*****fS********** 

* SFT DISK WRAP * 

* INDICATOR TM * 
->*TRACE TO FIELO * 

*PF FIRST TRACF * 

* ENTRY * 
***************** 



*****£ 5 ********** 

* PFSFT DISK * 

* tracf c/s td * 
->* start pf disk * 

* tracf area * 

* * 
***************** 



*****H^********** 

* * 

* SFT PICK WRAP * 

* IMniTATpR IN * 
*TRACE FL Ar- BYTF* 

* * 
***************** 



*RESET NEXT SLOT* 

* AODRFSS Tp * 
*START OF TAPLE * 

* * 
***«* ************ 



_•>* r-2 * 

tt * 

**** 

NPTF! SFF TRM SYSTFM/? 

DISK SV<:TF M S «VTF«, 

fflMTOPL PROGRAM 
IHGTC MANUAL* 
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SCCtSA 

****A2 ********* 

* * 

* ENTER * 

* * 
*************** 



*****B2 ********** 

* SENSE DATA * 

* SWITCHES * 



***************** 



*. NO 

.* 



* K2 * 

* * 
**** 



.*. 



02 

.* *. 
NO .* WAS A *. 
--*, TRACE ENTRY .*<- 
I *. BUILT .* 



.* *. YES 

->*. SWITCHES .* ; 

*. FFFF .* 



SADISA 
YES .*' 



.*. 

03 *. 
* *. 

IS HALT *. 
SWITCH CN .* 

.* 
*. .* 



****C *********** 

• * 
->* HALT * 

* * 
*************** 



HALT 'CU' 
NOTE 2 



*****D4********** 



s 12,f 



DATA 
CHES 



***************** 



* K2 * 

* * 
**** 



V 
.*. 



.* *. 

YES .* IS HALT *. 

-*. ID 00 .* 

*. .* 

*. .* 

*. .* 

* NO 



.* HALT 10 *. NO 

*. EOUAL TRACE .* 

*. ID .* 



E4 



*. 



-*. SWITCHES 
*. 0000 .* 
*. .* 

*• .* 
* NO 



SAHALT 

v 
****G2 ********* 

* * 

* HALT * 

* * 
*************** 

HALT 'D 
NOTE 1 



*+***H2* ********* 



SENSE DATA 
SWITCHES 



***************** 



V 
.*. 
J2 *. 
**** •* *. 

* * YES .* 

* C4 *< *. SWITCHES 

* * *. FFFF 
**** *. .* 

*• .* 
* NO 
**** 



* K2 

* 
**** 



*-> 



TURN HALT 
SWITCH OFF 



***************** 



SAINIT .*. 

F4 *. 

.* *. 
.* *. NO 

*. SWITCHES .* 

♦.XX00-XX1F.* 
*. .* 
*. .* 
* YES 



*****Q4********** 



TURN HALT 
SWITCH ON 



***************** 



*****H4* ********* 

♦STORE HALT 10 -* 
♦RIGHT TWO DATA * 

• SWITCHES * 

* * 
***************** 



****K2********* 

* * 

* RETURN * 

* * 
*************** 



NOTE l: ABC 2345 ON 
MODEL 4 

NOTE 2: ABC 12 ON 
MODEL 4 
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$CC4CM 

**** a i ********* 

* * 

* ENTER » 

* * 
*************** 



.* CONSOLE *. YES 
*. PARAMETER 



9P.2000 

*****B2********** 
*$CC4K1 * 

* * 

->* SCHEDULE AN * 
•OPERATION (SEE * 
* NOTE) * 
***************** 



*010* 

* 6i *-> 



KMINTR* V 
KMOPC1 .*. 

CI *. 
.* *. 
.* CONSOLE *. YES 

*. INTERRUPT .* 

*. .* 

*. .* 
*. .» 
* NO 



.* OF OUTPUT 
->*. MESSAGE 
♦.COMPLETE 



*****C3 ********** 



♦START PRINTING * 
->*OF MESSAGE TEXT*- 



***************** 



***** 

• 002* 

* Al* 



KMTSRO .*. 

D2 *. 

.*" REOUEST '*. YES 

*. KEY .* 

*. .* 
*. .* 

*. .* 
* NO 


9P.2040 
*****03 ********** 
*$CC4K5 * 




* KEY INTERRUPT * 

* * 

********** 4** 4#*# 


V 
***** 
*002* 
* Al* 



.* PRINTER 
*. OP END 
*. 



V 9P.2050 
*****E2 ********** 
*$CC*K4 * 

* * 

* HANDLE INPUT * 

* OPERATION END * 

* * 
***************** 



9P.2020 
*****E3********** 
*$CC4K3 * 

* * 

->* HANDLE OUTPUT *- 

* OPERATION END * 

* * 
***************** 



G2 *. 

.* *. 

ANY 

REPLY TO 

GET 
*. .* 
*. .* 
* NO 



9P.2060 

*****G3********** 
*$CC4K6 * 

* * 

->*HANDLE REPLY TO* 

* GET * 

* * 
***************** 



HI *. 

.♦CONSOLE*. 

.* AVAILABLE *. 

*.AND OUTPUT ON. 

*. .* 

*. .* 

*. .* 

* NO 



9P.2010 

*****H2********** 
**CC4K2 * 



***************** 



V 

***** 
*002* 
* Al* 



V 

***** 
*002* 
* Al* 



FOR MODEL 4 

CONSOLE AND 
CONSOLE KEYBOARD 
LOGIC, SEE 
DIAGRAM 9M0095 
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**** 

* * 

* Al * 

* * 
**** 



V 



OPEND 

INTERRUPT 

•TO HANDLE. 



***** 


***** 


04- E3 


♦ 006* 


03-C'k 


* Al* 


01-H2 


* * 



*****A3 ********** 
- PUT REPLYING 



.* SSCA *. * PUT REPLYING * 

.* DTF WITH *. FOUND * TERMINAL'S * 

>*. OPENO £ RCV .* >* ATTRIBUTES IN * 

*. fMTT nw -* * n-re * 



NOTE 
*****B2* ********* 

* * SSBMCH * * 

* * MLMP/HLTA * * 

* * I/O * * 

* * COMPLETE * * 

* * CHECK * * 
***************** 



***************** 



83 *. 

.* CLEAR *• 

.♦KEY ON 3270*. YES 

. OR COMMAND •* 

*.FROM CPU ,* 



**** 
NONE * * 

* >* A1 * 



9P.2320 
*****B4********** 
*$CC4BI • 

* + 

->* TRANSLATE AND * 

* CHECK FOR DMF. * 

* REQUEST * 

***************** 



**** 

* * 

* A2 * 

* * 

**** 



Da * 

* 

BSCA 



MLTA I 

OPENDI 



***** 
*004* 
* Al* 



9P.2270 

*****E3********** 
*SCC4SQ * 



***************** 



PARAMETER 
LIST LOST 
WHEN MODULE 
TERMINATED 
& DEQUEUED 



F2 *• 
.•SYSTEM *. 
.* PURGE OR 
.STOP PARAME- 
*.TER LIST • 
♦-LOST .* 
*• .* 
* NO 



9P«2280 

*****F 3*** ******* 
**CC4SK * 



***************** 



***** 
•007* 
* CI* 



***** 
♦0 3* 
* Al* 



SEE IBM SYSTEM/3 DISK SYSTEMS 
BINARY SYNCHRONOUS COMMUNICATIONS 
PROGRAMMING SUPPORT 
INPUT/OUTPUT CONTROL SYSTEM 
LOGIC MANUAL* SY2I-0526 
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IMLTA OPENO 
--UONTINUED 



*0O2* 

* G?« 

***** 



V 

• *. 

Bl *. 



.UNSUCCESSFUL 
*• OPEND .» 



CI *. 

.* *. 
.* WRITE *. YES 
*. OPERATION .* 

*. .* 

*. . * 



GETS AND 
INVITES 



NO 



*. 



C MR END 

CMTDHE 

.* DAT* 
.♦ MUDE AND *. YES 

*. REQUESTED .* 

*. PROGRAM . * 
*. .* 

*. .* 
* NO 



V 

.*. 

El *. 



.* TRANSLATE *. YES 
UPPER OR .* 



9P.2290 

*****A2********** 
**CC4T2 * 

* * 

->* OPENO ONLINE *- 

* TEST * 

* * 
***************** 



9P.2200 
*****r 2* ********* 
*$CC4MA * 

* * 

>* OPEND ERROR *- 

* HANDLER * 

* * 
***************** 



.* LINF *. YES 




>*. ACTIVE .* 




*. .* 


V 


*. .* 


***** 


*. .* 


♦ 007* 


* NO 


* Al* 


| *#** 


* * 


*007* 


* 


->* CI * 





CHWENO .*. 

C2 *. 
.* PUT *. 
.4THEN GET OR*. YES 

>*. PUT .* 

*. INVITE .* 
*• •* 



* NO 
I **** 
I *005* 
->* J2 * 

* * 
**** 
9P.2600 
*****D2********** 
**CC4JX * 

* * 

->*TRANSLATE FIRST*- 
*6 CHARACTERS OF* 
* DATA * 
***************** 



**** 
*****C3 ********** 



* SET UP GET 
->*PAPAMETER LIST 



***************** 



.*. 
D3 *. 



.* DME *. YES 
->*. BEQUEST .* 



.* LINE *, YES 




>*. ACTIVE .* 




*, .* 


V 


*. .* 


***** 


*. .* 


•002* 
* At* 


* NO 

**** 


* * 


*nr»7* 
->* tl * 


* 




* * 




**** 




*****Q4********** 




•PUT TUR TN DATA* 




* MODE ESCAPE * 




* IN TUBDML1 * 


V 



*. LOWER 

*.c ,- — 



ASE 
*. .* 

* NO 



V OX/01/A1 

*****p\ ********** 

♦*cc4mx * 

* * 

♦MOVE DATA FROM * 
♦LINE BUFFER TO * 
* RECORD AREA * 

***************** 



9P.2300 

*****F2********** 
**CC4JX * 

* — * 

->*TRANSLATE FROM *- 
♦LINE BUFFER TO * 
* RECORD AREA * 
***************** 



.*. 

F3 *. 

.* *. 

* * 

ERROR 

*. .* 

*. .* 

*. .* 

* NO 



V 

***** 
*005* 
' J2* 



* * 



***************** 



9P.231 1 * 

*****E4********** 
*SC<"4WR * 

->*TRA«iiLATi"FR»OR* 

* HANDLER * 

* * 
***************** 



V 

♦ ***♦ 
*005* 

* J2* 

* * 



***** 
♦ On^ 
J2* 



V 

**♦** 

*005* 

* J2* 

* * 
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IBSCA 
— loPEND 



CMABRT .*. 

Al *. 
.* *. 
.* STOP *. YES 

,->*. INVITE .* 

*. .* 



.♦.9P.2330 
A2 *. 
*CC4BO 



STOP INVITE .*- 
*. OPENO .* 



thh 



* NO 
< 



V 

***** 
*007* 
* CI* 

* * 



NGN 3270/3735 SYSTEM ERROR 



CMC MP .*. 

.." *•♦. 
.* DATA *. YES 
*. TRANSFER .* 

*. BAD .* 
*. .* 
*. .* 
* NO 



9P.2330 
**#4*g2********** 
**CC4BE * 

* _ __. — * 

->*ERROR RECOVERY *- 

* TRANSIENT * 

* * 
***************** 



USER ERROR DATA TRUNCATEO 
-BUT-AVAILABLE 





V 9P.2340 






*****B4********** 






**CC4BL 1 










< 


* LOG ERROR TO * 




1 


* CONSOLE * 


V 




* * 


***** 


V 


***************** 


*007* 


***** 




* CI* 


*007* 




* * 


* CI* 




* 


* * 







CMSCCS 



READ *. YES 
OPERATION .*- 



BSCA 
WRITE 



.* 


***** 




*005* 





* A2* 




* * 



NOTE 

9P.2321 

*****D2* ********* 
*»CC4BB 



PERMANENT ERROR 

ON 3270/3275, OR 3741 POLL 

FOR STATUS MESSAGES 



* PUT OF *. YES 




.*„ 
E3 *. 
• * *■ 
.* LINE *- YES 




*. RECORD .* 
*. .* 
♦ . .* 
* NO 


* OF RECORO * 

* * 

***************** 

1 




!< 

.*. 

61 *. 
.* PUT *. 

♦then get or*. yes 
*. invVte .*'* 

*• •* 
*. .* 
* NO 

A 

***** 

*005* 

• K2* 

* * 


****«£2 ********** 

* * 

* SET UP GET * 




* * 

* * 

***************** 


*. .* 

*. .* 

*. .* 

* NO 

V 

***** 

• 007* 

* CI* 
* • 


V 
***** 
*002* 
* Al* 

* * 

* 



N0IE! cMe e s%e1n, 

ImO0°95 AGR * M 
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•SEE NOTE 



»* PARAMETER +. 
->*.LIST CONFLICT. 
*• WITH .* 
*.OPENO.* 



9P.2360 
***4*A3*« ******** 
•SCC4BR * 

* -____-.-___-_ + 

>* OPERATION * 
♦REJECT - REMOVE* 
♦PARAMETER LIST ♦ 
***************** 



* DATA *« YES 

MODE ESCAPE . * 

♦.REQUESTED.* 



*****33********** 
♦PUT TUB IN DATA* 

* MODE ESCAPE * 
->*QUEUE FOR CP ( »* -» 

* IN TUBOML) * 

* * | 
***************** v 



STATUS MESSAGEl 
REQUESTED AT 1 
CMCMP - ERROR | 



3741 
STATUS 

MESSAGE 



3735 
STATUS 

MESSAGE 



9P.2385 
*****C3*** ******* 
**CC4B7 * 



***************** 



9P.2380 

*****D3 ********** 
**CC4B9 * 



***************** 



STATUS MESSAGE 
REQUESTED AT 
CMCMP - ERROR 



.* 3270 + . 

• STATUS ■ 

*. MESSAGE . * 



9P.2370 

*****E3********** 
*»CC4BA * 



***************** 



9P.234 

*****E4 ********** 
*SCC4BL * 



***************** 



V 

***** 
♦ 008* 
+ C2* 



***** 

*ooe* 

* C2* 



9P.2300 

4**4 *G3********** 
♦SCC4JE * 

* * 

->*TRANSLATE ASCII* 

* TO EBCDIC * 

* * 
4*******4******** 



BLANK 
REST OF 
BUFFER 



OX/01/A1 
*****H3*** ******* 
**CC4MX * 



***************** 



•*• 9P.2330 

J2 *. *****J3********** 

• w *. *SCC4B6 * 

• * SYSTEM *• YES * — * 

*. GET FOR •* >* FORMAT 3270 * 

*. 3270 .* * INPUT STREAM * 

*• •* * * 

*• -* ***************** 

03-C2 * NO 

03-04**** I 

03-E3*004* | 

03-E4* El *->! 

03-F1 * * j < 

**** I 
CMDEQ V 

*****K2* ********* 

* * 

* REMOVE * 
♦PARAMETER LIST * 

* FROM QUEUE * 

* * 
****** 4**44****** 



H4 *. **4**H5********** 

■* *. 4 * 

.* INVITE *. YES *Q INPUT TO TCB * 

INPUT .* >* INPUT QUEUE FOR* 

*. .* * ACCEPTS * 

*• .* * * 

*i •* ******* ********** 

* NO 

| < 

V 

•*• OJ/01/A1 

J4 *. *****j5********** 

.* POST *. *SCC4PS + 

.♦NEEDED (NOT*. YES * — - — * 

• PUT NO .* >*POST REQUESTER * 

*. WAIT) •* *l SYSTEM OR USER* 

*- .♦ * TASK» ♦ 

*• ■* ***************** 

♦ NO j 



***** 
*007* 
* C1 + 



***** 

♦ 007* 

* CI* 



IF MlNflES-Y AND BSCA-1 ARE SPECIFIED* 
THIS CODE IS REPLACED WITH A CALL TO SCC4B 
WHICH PERFORMS THE CHECK FQft A CONFLICT 
WITH OPENO. 
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Al 



*. 



*. 



FPEEMAIN "*. YFS 

rui™ ..■—-- 

*. .* 
*. .» 

* NO 



• *. 
S2 *. 
.*REO ON *. 
.* LCB OUEUE *. VES 

->*. WAITING FOR .* 

*. STORAGE .* 



M *, I 

.* MLTA *. | 

.*LINE ACTIVE*. YFS I 

->*. WITH . * 

*. WRITE .* 
*. .* 

*. .* 
* MO 



***** 

02-A1 
CMREO 



.* 



V 

i.*. 
Bl *. 

■ TP *. 
RFOUEST » 
PARAMETER 



*.LIST RCVO,* 



*010* 
* El* 

***** 



*010* 
* CI* 



V 

.*. 

R3 *. 

* * 

LINE 

ACTIVE 



CMLTUB .*. 

C2 *. 
.* BSCA *. 
.*PUT DISCON-*. YFS 

*. NECT OR PUT .* 

*.DISC IN- .* 
*.VITE .* 
*. .* 
* NO 



* NO 

I**#* 
*007* 
->* CI * 



.*. 



V 

***** 

*0O7* 
* Al* 



CMPTG 

*****D1 ********** 

* SET INVITE AS * 
♦ONLY Of - MLTA * 

* IOCS *<- 

* DISCONNECTS * 

* PRIOR TO READ * 
***************** 



CMOMLT .*. 

02 *. 
.* HLTA *. 
YES .* PUT DISC *. 

*. THFN .4 

*. INVITE .* 
*. .* 
*. .* 
* NO 



V 

.*. 

E2 *. 

• * *• 

.* MLTA * 
. PUT DISC TO 
••DISC LINE.* 



C3 

.* PUT *. 
.♦DISCONNECT *. YES 

->*.ONLY TO DIS- .* . 

*.CONNECTEO.* V 

*.L!NE .* ***** 

*, .* *010* 

■ NO * Bl* 

* * 



V 

.*. 
D3 *. 



*. 

.*' LINE *. YES 
. CONNECTED .* 

*. .* 

*. ,* 

*. .* 
* NO 



* * $$CLOZ 
->* *CLOSE LINE 



***************** 



V 

***** 
*O10* 
* HI* 



NOTE 

*****D5 ********** 



* ***OPEN nPEN* * 
->* * LINE * * 



***************** 



DISCONNECT 
*. ONLY 



V 

***** 

* ci* 

* * 



F2 *, 
•*PUT FOR*. 
••TERMINAL IN*. YES 

ERROR .* 

♦.RECOVERY .* 
*. .* 

*. .* 
* NO 



9P.2A0P 

*****FB ********** 
*$CC4MP * 

• . -.- ... * 

->*IGNORE PUT FOR *- 
♦TERMINAL IN ERP* 
* * 

***************** 



9P.2080 
*****F4** ******** 
*«CC4K9 * 

* * p UT 0NL v 

->* WRITE TO * ■ 

* CONSOLE * V 

* * ***** 
***************** *nio* 

* Bl* 
PUT THEN GET * * 
PUT THFN INVITE 



V 
.*. 



* MLTA *. 
ONLINE TEST . 
*. REQUEST .* 
*. .* 



PL/01/A1 

*****G3 ********** 
**CC*T! * 

* * 

>* START MLTA * 

* ONLINE TEST * 

* * 
***************** 



NOTF! SFF IBM SYSTEM/3 DISK 

SYSTEMS DATA MANAGEMENT AND 
INPUT/OUTPUT SUPERVISOR LOGIC 



| < 

V 
CMSTPP .*. 

H2 *. 
.* *. 
.* PURGE *. YES 

*.■ OR STOP .* 

*. INVITE .* 
*. .* 
*• •♦ 
* NO 



CMQUE V 

*****J2********** 



* ADO PARAMETER * 

* LIST TO OUEUE * 



***************** 



.* 
*, .* 
* NO 



V 9P.2420 
*****j 3**** ****** 
*tCC<fPG * 

* * 

♦MLTA PURGE PLUS* 
* STOP INVITE * 

***************** 



V 9P.250P 
*****J4********** 
•tCCABP * 



***************** 



***** 

• Old* 

* CI* 
* * 



***** 
*010* 
* CI* 

* * 



LINE 
ACTIVE 



V 

***** 
*007* 
* CI* 

* * 



V 

***** 

*007* 

* Al* 

* * 



Chart QA (Part 6 of 10). Overview Chart of Communications Management ($CC4CM) 



Program Organization 9-155 



.*. (LINE ACTIVE) 
Al *. 



* * 
*006* 
» K2* 
***** 
06-B3 
03-B3 
02-F3 



.* 



LINE *. YES 

IV 



*. ACTIVE WITH .*• 
*. READ .* 

*. .* 

*. .* 
* NO 
j **** 



*****B ?*****«**** 



— >*MLTA IOCS ABORT* 



->* 



f0 e?% 



**** 

.SEE NOTE 



.* MLTA *. YES 
. ONLINE TEST .* 

*. PENDING .* 
*. .* 



***************** 



1 *01O* 
->* Bl * 

* * 

**** 

9P.2600 

*****C2********** 
*$CC4MT * 

* , _ * 

>* START HLTA *- 

* ONLINE TEST * 

* * 
***************** 



.* LINE *. NO 

*. QUEUE EMPTY .* 

*. .* 

*. .* 



B3 



.* 

*ACTl 

'. R 

*. 



LINE 

TIVE U 
*. READ 



*. 



ITH .*- 
.* 

.* 
.* 

NO 

• **• 

->:°r. 

* * 
**** 



C3 *. 
.* *. 
.* TEST *. YES 

*• * HI NOT .* 

*. START .* 
*. .* 



PENO 



9P.2510 

*****B5********** 

*$CC4t)C * 

* * 

->*CANCEL RECEIVE * 



* NO 
i **** 
I *010* 
->* Bl * 

* * 
**** 
9P.2080 
*****C4********** 
*»CC4K9 * 



*010* 



OPERATOR 



***************** 



V 

***** 
*010* 
* Bl* 



1 *010* 
->* 61 * 



V 
***** 
*010* 
* Bl* 



CMNOBY .*. 

D2 *. 
.* PUT *. 
.♦REQUEST ON *. YES 

>*. QUEUE TO .* 

*. START .* 



V 

***** 
•008* 
* CI* 



CMWRIT 

.*" 



03 • 
BSCA 



*. 



*. YES 
.* 

.* 



V 

***** 

*009* 

• Al* 

* * 



mlta start 

Sp r e^tI8n s 
.*• •*** 
E3 *. NO PUT OISC 
.* *. INVITE HERE. 
.* PUT *. YES BECAME GET 
». DISCONNECT .* . 



note: chrsch is entered from: 

02-62, 03-83, 03-C*, 

0<i-A2, 04-B3, 04-64, 

04-E3, 05-K3, 05-K4, 

06-63, 06-E5, 06-K2 



•008* 
* C2* 



*****F3«* ******** 

• * 

• ADD LINE * 

* CHARACTERS * 

* * 
***************** 



V 
***** 
•008* 
* A2* 
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***** 

*007* 
* F3* 

* * 



.* *. ves 

->*. TRANSLATF .* 



OP. 2300 

*#***A* ********* 4 
*«CC4JX * 

* * 

->*TRANSL«TE FPOM * 
•RECORD ARFA TO * 
* LINE BUFFER * 
***************** 



***** 
*007* 
* 02* 



V OX/01/41 

*****B2********** 
**CC4MX * 

♦MOVE DATA FROM * 

•RECORD AREA TO * 
* LINE BUFFER * 

***************** 



V 



TRANSLATE 
ERROR 



9P.231C 

*****R4 ********** 

**CC4WR 



TRANSLATION 
ERROR HANDLER 



SYSTEM 

"input" 



9P.2240 

*****R5********** 
•fCfAMD * 



* >*P1)T TERMINAL IN* 

. *FRROR RECOVERY * 



V 
.*. 



.•SeouiIt on'*, yes 



**** 
05-0**010* 
05-E2* Fl *-> 
07-E3* * 
**** 
CMREAD/CMFOPM 

C2 



***************** 



V 

***** 

*010* 

* CI* 

* * 



***************** 



***** 
*010* 

* ri* 



u IVa, 



TO 
,RT 



V 

***** 
•009* 
* Dl* 

* * 



V 

***** 
*0I0* 
* Bl* 



02 



V 

.*. 



MLTA READ 
WRITE """ 



_ ._ AND S 

iocs start! 



*. 



.* USER 

.* PEO TO *. 

•SWITCHED LINE.' 

*.NOT CONN-.* 

*.ECTiD.» 

*. .* 

' NO 



9P.2630 

*****D3 ********** 
**CC4WC * 

->*"si"iJp"pHo!ii"*- 

***************** 



9P.2640 

*****D4********** 
**CC4W0 * 

* * 

>* ISSUE PHONE *- 

* MESSAGE. TO * 

* OPERATOR * 

***************** 



9P.2080 

*****05********** 
*»CC4K9 * 



***************** 



*****E2********** 

♦FORM MLTA IOCS * 
•OPERATION COOE * 



***************** 



*****F2********** 



♦MLTA IOCS START* 



***************** 



•.'unsuccessful 

*. START .* 



9P.2M0 

*****G3 ********** 
•SCC4SC * 

* * 

->* HANDLE START * 

* FAILURE * 

* * 

***************** 



V 

***** 
•010* 

* PI* 

* ♦ 



V 

***** 
•010* 
* Bl* 
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(BSCA PUT 
IOCS OP 
CMW327 .*. START) 
Al *. 
.* *. 
.* SYSTEM *. YES 

->*. REQUEST FOR .* 

*. 3270 .* 



* * 
*007* 
* D3* 

***** 



9P.23O0 

+****A2********** 
*tCC4B0 * 

* * 

->» FORMAT SYSTEM * 

* OUTPUT STREAM * 

* FOR 3270 * 
***************** 



.* *. YES 

*. TRANSLATE .* 

*. .* 
*. .* 
*. .* 
* NO 



9P. 2300 

*****B2********** 
*$CC<*JD * 
* * 

->* TRANSLATE * 
•EBCDIC TO ASCII* 

* * 

***************** 



V 

.*• 

C2 *. 



BSCA PUT 

— -0R-6ET 

IOCS START 



.* LINE *. YFS 

->*. NOT ACTIVE .* 

t *. ,* 



ERROR .*- 
.* 



**e**02********** 

* SET UP LINE * 

* CONTROL BLOCK * 
->* BUFFERS, * 

* ADDRESSING * 

* * 
***************** 



9P.5310 

***+*C 3 ********** 
*tCC«WR * 

* * 

->* TRANSLATION *- 

* ERROR HANDLFR * 

* * 
***************** 



***** 
♦010* 
* CI* 



*008* 
* C2* 

***** 



E2 



*. 



.* *. YES 

*. . SWITCHED .* 

*. LINF .* 
*. .* 

*. .* 
* NO 



*****f I ********** 



* FORM IOCS 
•OPERATION CODE 



************ ***** 



CMFVFY V NOTE 

*+***Gl********** 
+ * * + 

* **$BSMS MLNP* * 

* *IOCS START * * 

* * * * 

* * # * 
***************** 



***** 
*010* 
* Bl* 



9P.263P 

*****E3**+******* 
**CC«WC * 

* —a 

->* SET UP PHnNE * 

: "meIs;^ : 
***************** 



V PP. 26*0 

*****F3 ********** 
*«cr.4no * 

* * 

* ISSUE PHONE * 

* CONNECTION * 

* MESSAGE * 

***************** 



V 9P.2O80 

+****G3+*** ****** 
*tCC4K9 * 



♦WRITE OPERATOR * 

* * 

***************** 



SEE IBM SYSTEM/3 DISK SYSTEMS 
BINARY SYNCHRONOUS COMMUNICATIONS 
PROGRAMMING SUPPORT 
INPUT/OUTPUT CONTROL SYSTEM 
LOGIC MANUAL, SY21-CS26 
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8«f: e *" E? 



08-G2, 



07-B2, 
Q7-B5, 
07-01 i 

***** 
♦000* 
* Gl* 



8tK: 
8tH: 



V 



REQUEST 
♦.SCHEDULEO.* 



06-J3*009* I 
06-JA* C3 *->) 

OB-BJ* * (<- 

oe-65**** v 

CMROBF/ .*. 
CMSTOE CI * 



NON *. V 

WAIT .*- 

.OPERATION.* 



0J/01/A1 

*****R3 ********** 

*iCC4PS * 

* * 

->* * 

♦POST RFOUFSTER * 

* * 

***************** 



INTERRUPT . 
• TO HANDLE.* 
*. .* 



V 

.*. 



V 

***** 



FREEMAIN *. 
HAS BEEN 

. DONE .* 



V 

***** 

*ro6* 

* Al* 
* * 



REOUEST *. YE 
PARAMETER .* — 
.LIST RCVD.* 

*. .* 

*. .* 
~ NO 



El *. 

.* BSCA *. 

.* INTERRUPT * 

♦.FOR PUT, GET 

*. RECORD, .* 

*. MSG .* 

*. .* 

* NO 



V 

***** . 

• 006* 

* Bl* 
* * 



V 

***** 
*008* 
* C2* 

* * 



* CONSOLE 
WORK TO BE 



. .* 
* NO 



****H1********* 

* * 

* EXIT * 

* * 
*************** 



V 

***** 

wis 



T0« *CC4DP VIA 
*CC*WT 
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CHOPNO 

****A 1********* 

* * 

* ENTER * 

* * 
*************** 



**** 
*0Q8* 
* J4 *-> 



.» OP END 
.->*. COUNT - 
*.(CCO — 



CMC HE K 

****A2********* 

* * 

* ENTER * 

* * 
*************** 



**** 

* * 

* Bl * 



COECT) 

.* 
.* 

YES 



****C I********* 
*CMFRMN * 



LCB FOR 
BSCA 



**** 

* * 

* C2 »-> 

* * 
**** V 

CMEANR .*. 
C2 



B3 *. 
.* *. 
.* ANY OP •. YES 

. ENDS FOR .* 

*. LINE •• 

*. .* 
*■ .+ 
* NO 



B4 4 
.* PARM 
.« LIST 
->*. REMOVED 

*. o 



*. YES 
FROM .* 



*****A5 ********** 

* • * 

* DECREMENT OP * 
>* END COUNT »- 



***************** 



* Bl* 

* * 
*** + 



*. 

.# 

.4 



« RECV 

INITIAL 



*. .* 
*. .* 
NO 



CMECHK . . 
*****D2**«* 

* * * * 

* * PASS WAIT * * 

* « LIST TO * * 

* * »*BMCH * * 

* * * * 
***************** 



*****E2********** 



♦SUBTRACT 1 FROM* 
* OP END COUNT * 



**** 

* * 
->* C2 * 

* * 
**** 



.* *. 

->*. OATA IN 

*. .* 



V 
.*. 

C5 *. 

.* NEG .*. 

.♦RESPONSE OR*. 

CANCEL .* 

*. PENDING .* 

*. .* 

*. .* 

* NO 



* C2 * 

* * 
**** 



CMEOWY V 

♦++**D5 ********** 
*PUT RESPONDING * 
♦TERMINAL ATTR S* 

* ACDR IN LINE * 

* CONTROL BLOCK * 

* * 
***************** 



65 *. 
.*CPJ OR *. 
* CLEAR KEY *. NO 
CMD CAPABLE .* 



***************** 



.*. 

F2 «. 

.* *. 

.* IS DTF 

*. FOR OP END 

*. OF BSCA . 



*****F3********** 

* DECREMENT OP * 

* END COUNT IN * 
->* BSCA OTF FOR * 



***************** 



9P.2320 
*****F 5 ********** 
**CC4bI * 

* * 

* BSCA DME * 

* INQUIRY * 

* * 
***************** 



* 56 * 
RETURN CODE 



. * 
.* 

NO 



V 

***** 

♦ 002* 

• Bl* 



* Bl * 

* * 
**** 



+****G5 ********** 

* * 

* SET INPUT * 

* RECORD LENGTH ♦ 

* * 

* * 
***************** 

I**** 
* * 
->* C2 * 

* * 
**** 



: SEE IBM SYSTEM/3 DISK SYSTEMS 
BINARY SYNCHRONOUS COMMUNICATIONS 
PROGRAMMING SUPPORT INPUT/OUTPUT 
CONTROL SYSTEM 
LOGIC MANUAL, SY21-0526 



IF MINRES-Y AND BSC. . .... , ... 

THIS CODE IS REPLACEO KITH A CAL- 
TO $CC«B2 HHICH PERFORMS THE CHECK 



1 ARE SPECIFIED, 

IS REPLACEO KITH A CALL 



WITH OPENO. 
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***** 

*001* 

* G2* 

* * 



V 
ABRT .*. 

CI *. 

.* *. 
.» ABORT *. NO 

*. TO STOP .« 

*. READ .* 



V 9P.2270 

*****Ql********** 

»$CC4SG * 

* * 

♦STOP INVITE OP * 
•END Q ANALYSIS * 

* * 

***************** 



.* DATA *. NO 
*. GOOD .« 

*. -* 



CMTABT .*. 

Fl *. 
.* *. 
.* ABORT ». NO 

*. OP CODE .* 

*. .* 
*. .* 
*. •* 
* YES 



B2 *. 
• «. 
LINE *• 
ABORT .» 
,* 
». .* 
*. .• 
* NO 



V 

.*. 
C2 *. 

.*' STOP 
«. INVITE 

*. SCHED 



V 9P.2330 

***** 02 ********** 

• tCMBQ * 

* * 

♦STOP INVITE OP *- 
•END Q ANALYSIS • 

• • 
***************** 



*****C2********** 
•*CC4SK J 

->*"iiT"ALL"pOLL"'* 

• SKIP BITS ON • 

• * 
***************** 



ABORT 
OF PUT 



V 

*•*•• 

♦ 007* 

• Al* 



.* ». 
.» GET *. YES 
->*. PURGED .» ■ 



V 

***** 

• 004* 

• F2» 
• • 



• Jl • 

* * 
**** 



• 003* 

• D3* 



.*. 

03 *. 

.* •• 
• STOP *. NO 

SUCCESSFUL .* 

«. .* 



*l*. 



->* Jl • 

• * 

*•♦* 



.* 
. .* 
• YES 



V 0E/02/G5 

••**E4********* 
•CMBSTP * 



V 

• •••* 

:°bb 



***** 

♦003* 
* til* 



*****H1 ********** 



***************** 
**** 



* J I *-> 

* * 

**** 



****JL********* 

*CMRSCH * 



V 

***** 
*003* 

* ei* 
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02 


-Fl 


***** 


*002* 


* Gl* 


* * 
1 


1 

V 


CHDFSV .*. 


Bl *. 


.* * 


.* 


*. OLT 


*. 


*. .* 


*. .* 


* YES 



CMTBOP 

*****A3********** 

* FINO OP ENCED * 
>* PARH LIST IN * 



************++*** 



.* WRITE *. NO 

->*. DISCONNECT .* > 

• ■ .* 



*****C2********** 



OLT OP END 

TRANSIENT 



***************** 



*+**Dl********* 
♦CMTSBY * 



* INDICATE LINE 

* DISCONNECTED 



* PARH *. NO 

LIST FOUND .* 

*. .* 

*. .* 



***************** 



02-6* '•'yes 

•*** 

*007* 

* 01 *-> 



****B4********* 
*CPHALT * 

* * 

*************** 



ao/oi/Ai 

*****C* ********** 
*CMONSK * 

* . * 

->*SET ON THE TERM* 

• SKIP BIT * 

• 4 
***************** 



**** 

CHCMP V CV/01/B* 
***4*Q3********** 
*»CC4TT * 



***************** 



. 


'. C 


HSVPL .*. 








E3 *. 


E* «. 






.* *. 


• * *. 






.* *. NO 


.* *. 


YES 






->*. SUCCESSFUL . 
*. OP END .* 






+ . .* 




V 


*• .* 


*. .* 




***** 


*. .* 


*. .* 




«004* 

« ei» 


* YES 


• NO 










* * 

* 


V 


V 






.*. 


.*. 




CHHERR 9P.2200 


F3 *. 


F4 *. 




*****F5 ********** 


.* *. 


.* *. 




*$CC4MA « 


-•SUCCESSFUL *. YES 
*. DATA .* . 




NO 

* 




*'. 2741 '. 


>* * 


♦.TRANSFER .* | 


*. .* 


I * MLTA ERM * 


*. .* 


*. .* 




* * 


*. .* V 


*. •* 




***************** 


< 


* NO ***** 


* YES 










*004* 












* Bl* 












* * 

* 


[ 








V 


V 




V 


.*. 


.*. 




• *• 


G3 *. 


G'. *. 




G5 *. 


.* *. 


.* *. 




.* *. 


.* EOT TO *. YES 


.* TERN *. 


NO 


.* RETURN *. YES 
*. CODE TO .* . 


*. CANCEL OR .*— -- 1 


*. INTERRUPT . 


* 


*. OATA .* | 


*.0N OUTPUT.* 




*. USER .* 1 


*. .* 


*. .* 




*. .* 


*. .* V 


*. .* 




*. .* v 


* NO ***** 


* YES 




* NO ***** 




*0<H* 


| 




1 **** *008* 

1 * •• el* 
->* 01 * * * 




* Bl* 


1 






* * 


V 






* 


***** 
*004* 




* * * 
**** 


CMBERR V 9P.2330 

*****H3*** ******* 


* Bl* 






* * 






*»CC4BE * 


* 









• CALL 8SCA ERP * 

* * 
***************** 



J3 *. 

• * *. 
.* OATA *. YES 

*. AVAILABLE .* . 

*. .* V 

*. .* ***** 
*. .* *004* 

• NO • Bl* 

* * 



***** 

• 008* 

* Bl* 

* * 



RETURN 

CODE FOR .* 

. USER 



*. NO 
.*" 



QG/01/A1 

****K4********* 
•CHRSCH • 

♦RESCHEDULE LINE* 
*************** 
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03-E4 

mi 

03-G4 

***** 
*003* 

* J3* 



CMSCSS .*. 

61 *. 
.* *. 
YES .* BSCA *. 

*. ERP IN .* 

*. PROCESS .* 



.* *• 
• WRITE *. YES 

Of .* 

*. .* 

*. .* 

*. .* 



CHRGOM .*. 

B2 *. 

.* *. 

.* CLEAR *. 

«. KEY HIT 

*• .* 

*. •* 



V 

***** 
*006* 
* 62* 

* * 



V 
***** 

• 007* 

* Al* 
* * 



*0Q8* 
* CI* 



Dl *. 

* * 

HLTA 



*. YES 
.* 7 



* H3 * 

* * 
**** 



*'. SEARCHING 
*. FOR EOT . 



EOT 
FOUNO 



+****E3********** 

♦CLEAR ATTRIBUTE* 
->* BYTES *- 



E5 *. 

• * ... __ *-. 



**** 
4002* 
* 6* *-> 



V 
V .*. 

Fl *. 

.* OATA *. 

• RECEIVED *. 

FOR RECEIVE . 

*. INITIAL .* 

*. .* 

*• •* 

NO 



.* 
.* 
NO 



**** 
CHPBKL V 

*****F2********** 



GL *. 
• * *. 
.* EOT *. NO 

*. RECEIVED .* 7 

*. .* 

<i. .* I 
*. .* 
YES 



* UPDATE BLOCI 
•POINTER TO Gl 



ET * 



NEXT BLOCK 

* * 

***************** 



.* PARK LIST *. YES 
*. IN CONFLICT. ,*- 



***************** 



QG/05/A2 

****F3********* 
♦CMFORH * 

*"form"op cool * 
*************** 



.* DEO 


*. YES 




.* 




)ME OR •• YES 


>*. REOUIRFD 








• 




ERP .* 7 














•* 














•* .1 
















* NO 












* NO ***** 

j **** *008* 

* ** ci* 


V 












->* Kl * * * 
















*008* 












**** 


* J3* 














* * 















V 

*****. 
*005*. 
* Bl*. 



- WITH OP . 
*. END .* 



NO 



**** 

* * 
->* H3 * 

• * 
**** 



*. PRIORITY 
*. CANCEL 



0G/01/A1 

****H2********* 
. YES *CMRSCH * 

' •reschIdulI UNE* 
*************** 



.CHRCAN 9P.2360 
*****G3********** 
**CC«BR J 

>* REMOVE PARM * 
* LIST THAT 



**** 
.CMRDME 



.* DME 
*. ENTERED 
*• 

*. .* 
*. .* 
* NO 



*****H4********** 

* * 
♦SET UP FOR ONE * 

->* TO COMMAND *- 

* PROCESSOR * 

* * 
***************** 



V 

***** 

♦ 008* 

* CI* 



CMREXT .*. 






Jl *. 




.* *. 




.* PRUF *. 


YES * „ 


*. OATA ON 


* >* 62 


*. SCREEN .* 


:, * 


«. .* 




**** 


*. .* 






* NO 






**•* 1 






* * | 






* Kl *-> 






* * 1 






**** V 






.*. 






Kl *. 






.* *. 






NO .* USER * 






— *. RES t GET 


* 




*.MSC MODE .* 






*. .* 






V *■ •* 






***** • YES 






*008* 1 

* CI* 







V 

***** 
*005* 
* Bl* 



NOTE! IF HINRES-Y AND BSCA 



THIS CODE IS REPLACED WITH A C 
*CC46l WHICH PERFORMS THE CHEC: 
FOR A CONFLICT WITH OPEND 



1 ARE SPECIFIED, 
...... . _ AU T0 

K 
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04-G1 

***** 

• 004* 

* H3* 



CHRECA .». 



■ 4 




*. 


NO 


BSCA 




* . 


*. 


• 


| 


*- .* 






*. .* 




* 




' VES 




**** 

* * 

* F4 * 

* * 
**** 


V 






.*. 






CI *. 






.* DUE * 






.* ATTEMPT 


*. 


NO 


THRU 




* 


*. *CC 


■ Bl 


* 





.* 
*. 
*. 



01 * 

OHE 
FAIL 



*****F1 ********** 

* * 

* SET CLEAR KEY * 
•HIT RETURN CODE* 



***************** 



V 

.*. 

D2 *. 

.* *. 

.* 37*1 *. NO 

*. STATUS HSG .* 

*■ •* 

*. .* 
*. .* 
* VES 



*****E2********** 
4*CC4B7 * 

* * 

* 3741 STATUS * 

* TRANSIENT * 

* * 
***************** 



T §7i 5 



CMREOT V 

*****F1********** 



•SET SEARCH FOR 
• EOT AND DEO 



***************** 

**** 

* * 

* Gl *-> 

* * 
**** 



*. 

*. 
A 

.*" 
.♦ 
VES 



.* 3735 
*. STATUS HSG 

"*. .4* 
*■ .* 

VES 



V 9P.2380 
•*4**E3********** 
•ICC465 * 

* * 

* 3735 STATUS * 

* TRANSIENT * 

* • 
***************** 



CHRN37 .*. 
C* 



■* 3270 
->*. STATUS HSG 



CMRNEB 9P.2370 
*****C5********** 
*SCC4BA * 



CHRAID .*. 
D4 • 



.* CLEAR *. 
*. KEY HIT 

*. .* 



3270 STATUS * 

TRANSIENT * 



*****05********44 
*SET SEARCH FOR * 

* EOT. INDICATE * 
->* HANDLE CLEAR * . 

* KEY * 



• *** I 

* * I 

* F* *-> 



.* 
.* 
NO 



- QG/05/A2 

****G1********* 
•CHFORM * 



**** V 
CHROAT .*. 

F4 *. 

.* *. 

.* WAIT * 

*. TYPE OP 

*. CODE .* 



V 

.*. 

G4 *. 



PRUF * 


YES 


DATA ON 


* -. 


SCREEN .* 


1 


. .* 


1 


*. .* 


V 


> NO 


***** 






• 006* 






* 01* 






* * 






* 



V 

***** 
*006* 
* Al* 



*****F5********** 



♦SET SEARCH FOR 
* EOT AND 060 



***************** 



* F4 * 

* * 

• *** 



.* 

*. .* 

• NO 



V OL/Ol/Al 

*****H4 ********** 
♦CMSTOR * 

• a 

* OETERHINE eUF * 

* SIZE NEEDED * 

* * 

***************** 



444** J4********** 

LEST * 

HOLD * 
R * 

4 
444*******4****** 



USE S 
POSSI___ 

BUFFER 



< — 



* MARK HOLD 
•BUFFER AS USED 



********4**444*4* 



***** 
*006* 
* Al* 
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CMROMV 



Al 



*. 



*. 



*. NO 

->*. BSCA .* 

I *. •* 
*• •* 



•005* 
« F4* 
***** 
05-K* 



* yes 



V 

.*. 
ei *. 

* * 

PRIJF 

OAT* ON 

SCREEN .* 

*. .* 

*. .* 

• NO 



*. 



***** A? ********** 

* * 

* SET UP ... • 
->*TRANSLATE PARK *- 

* LIST * 

* * 
***************** 

**** 

* 004* 

* B2 * — 7 



•*** f 
CHRBMV V 

*****B2 ********** 

* * 

* SET TRANSLATE * 
->• PARK LIST * 



***************** 



A3 *. 
• * *. 
• *. YES 

TRANSLATE .* 



.♦"TRANSLATE *. 
*. TO UPPER . 



gUHRs 



GF.T-MSG *'•* 

». •* 



V 0X/01/A2 

*****B3* ********* 

**CCMV * 

* * 

•MOVE DATA FROM * 

* LINE BUFFER * 

* * 
***************** 

•*•• 

* * 
->* F4 « 

* * 
**** 



*****B4********** 

* * 
•SET UP TO CALL * 

* REGULAR *- 

* TRANSLATE * 

* * 
***************** 



*. -* 
* YES 
•*** 
•005* 

* E5 *-> 

* * 
**** 1 

CMR ,,,*.OL.L*..*... 

asm £ m : 

->: wei : 

* * 

***************** 



C2 *. 

.:'"h8?! L « S '*:J2- 

*. EBCDIC .* 
*. .* 

*. .4 
* YES 



" 9P.Z620 
*****02********** 

*$cc*je ; 



CMRLCX 



.♦'TRANSLATE *. YES 
*. TO UPPER .* 



: ASC fRA N s.i^ 0,c :- 

* * 

***************** 



CASE 
"*. 



->* UPPER CASE 



***************** 



4NK. 



D3 
.* 
• BLAH.. 

REST OF BUF .*- 
*. 
*. 
*. 



0X/01/A1 

*****D4********** 
*$CC4MX * 

* 4 

->* BLANK REST OF * 

* BUFFER * 

* * 
***************** 



El 

* 

Cofi 



••-a»H« *:^°- 



*****F 1********** 

* * 
*SET SEARCH FOR * 

• EOT AND DEO • 



***************** 



* F4 * — -. 

* * I 
**** | 

CMTCR V 

*****F4********** 

* • 

* EXAMINE * 
♦CARRIAGE RETURN* 

* POSITION * 

* * 
***************** 



V 0G/05/A2 
****G1********* 
•CMFORM * 

* * 

* FORM OP COOE * 
*************** 



*. YES 
BSCA .* 



*****A5 ********** 

* * 

* SET UP TO * 
->* TRANSLATE TO * 

* UPPER CASE * 

* * 
***************** 



V 9P.2620 
*****BS ********** 



♦CALL TRANSLATE * 
* ROUTINE * 



***************** 



V 




.*. 


C5 *. 


.* *• 


.* *. NO 


*. TRANSLATE .* 7 


*. ERROR .* 


*. .* 


*. .* V 


" YES **** 








• F4* 




* * 




**** 


V 9P.2310 


*****D5 *!!******** 


*$CC4WR * 



♦TRANSLATE ERROR* 

* TRANSIENT * 

* * 
***************** 



.* TERM IN *. NO 

*. CCP ERP .* 7 

*. .* 

*. .* 1 
*. .* V 
* YES ****♦ 
*008* 
* Bl* 
* * 




* 




OG/01/A1 


****F5********* 
*CMRSCH * 



*****G5 ********** 

* ADJUST JBQBKX * 
->*FOR TRUNCATION * 



♦SET UP PLE FFL ♦ 



***************** 



***************** 



«****H5**»******* 

• ♦ 

♦ • 
•SET UP PLE FFL ♦ 

* * 

* ♦ 
***************** 



V 

***** 

• 008* 

• Bl* 



., J5 *•*. 

* 3270 ». NO 

SYSTEM GET .* 7 

*. •• 

*. .* 

*. .♦ V 

♦ YES ***** 
*008* 
* Bl* 
* * 



V 9P.2390 

*****K5***«*"" 

* SCC4B0 J 

* FORMAT 3270 * 

* INPUT STREAM * 

* ♦ 
*******«**♦**♦♦♦♦ 



V 

***** 

• 008* 

* Bl* 
* * 
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CMHSET 

****A5********* 

* * 

* ENTER * 

* * 
*************** 



•004* 
* CI* 
***** 
02-B3 



V 
.*. 

Bl *. 
.* * 
.* PUT OF 
•- SHORT 
*. RECORO 
*. 



« G3 * 

* * 
**** 



«. NO 

.* 



*****C1 ********** 
*»CC*B6 * 
* * 

• PUT BLANKS TO * 
*FILL OUT RECORO* 

* LEN * 
44*4*4*4 4*444*4*4 



.* RVI 
->*. RECEIVED 



*4***C2 ********** 
* * 

*SET 



***************** 



C3 *. 
.* * 
.* LINE 
. ABORT IN 
*. PROCESS 
*. .* 
*. .* 
NO 



4****03********** 



♦ . .* 

*. .* 
* VES 

V 

***** 

*003* 

* 03* 

* * 



***************** 

**** 

* * 

* £3 * . 

* * I 
**** v 

.*. 
E3 *. 

.*" REFRESH '*. YES 

«. OF SCREEN .* . 

*. .* | 

*. .* 

*- •* V 

* NO ***** 

I *008* 

* J3* 



B4 *. 
.*SYS OP *. 

* OR USER *. r 
PUT-MSG OR .*- 
*. PUT-GET .* 
*. .* 
*. .* 
* NO 
t ***• 
I * * 
->* G3 * 
* * 
**** 



0G/01/A1 
***+C4********* 
*CHRSCH * 

•RESCHEDULE lTnE* 
4************** 



.*. 

04 *. 
.* USER *. 
.* PUT 
. SUCCESSFUL 
*. 



*****H5 ********** 



->» SET SEND EOT * 



** 44***444******* 



V QG/05/A2 

****C5********* 
4CMF0RH * 



05 



. NO 

I 



*, 



****4E444444444 44 

* 4 

* * 
*SET TUBRUF OFF *- 

* * 

* * 
*******444**44*44 



»* ** NO 

>*. PUT-PRUF OP .* 

*. COOE .* 

*. .* 
*. .* 
YES 



+*4**E5 ****** **44 

* * 

* * 

* SET TUBRUF ON *--> 

* * 

* * 
******** 44******* 



* 63* 

* * 
**** 





*. DFF PUT .* 

*. .* 


> 




*. .4 






*. .* 






NO 






**** 








* * 








* G3 *-> 
















**** 


/ 






CNHPGX 


. 






G3 *. 






.* *. 






NO .* GET *. 






*. ALSO .* 




V 


• • .* 




***** 






*ooe* 


*. .* 




* Bl* 


4 


YES 





*****H3********** 



SET UP FARM 
LIST FOR GET 



4*4****4444*4**4* 



*****F4*4******** 



FREE OFF HOLD * 
AREA * 



***************** 



V OJ/Ol/Al 

44444G4********** 

*$CC<>PS * 

^ ,.4 

POST OFF HOLD * 

FREE AREA * 

* 

*******4*44444*** 



CHNHFM 00/01/A3 

44444 J444** ****** 

♦CMFMRT * 



->«FREE UP THE PUT* 
* BUFFER * 



******4****444*** 



V 
***** 
*008* 
* J3* 



V 
***** 

*ooe* 

* J3* 
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03-G5 






03-K3 






06-E5 






06-H4 
06-J5 










06-K5 






***** 






•007* 






* G3* 






• * 
1 






1 

V 




CMRETC 


.*. 

Bl *. 




.4 






,,* 


* 


' 


*■■ 


BSCA 




*. 






* 


. .* 

*. .* 
* NO 




*«** 


1 




04-E5*004« 


1 




04-H4* B2 


*->| 




04-K1* < 






*«** 






CMDES 


V 




****<C1*******«** 








*REMC VE THE PARM* 


* 


LIST 





82 *. 
* *. 
SEARCH *. 

FOR EOF .* 



LINE 
ACTIVE 



*****B4********** 

* * 

. YES * IND PARK LIST * 

.*-" >* NOT QUEUED * 

.* * * 

.* * * 

.* ***************** 

N0 «,*. I .... 

• * * * 
->. CI * ->• CI J 

* * * * 
**** **♦* 



***** ************ 



*****01*. ******** 



FILL IN USER 
RETURN CODE 



***************** 



.. *. 

* PUT *• NO 

NO-WAIT .* 

*. .» 

*. .* 
*. .* 
V6S 



V QQ/01/A3 
*****F 1 ********** 
*CHFHRT * 



***************** 



•CMFOR _ _ t 

*"forS"op CODE * 

*************** 



CMHARK 

****D2 ********* 

* * 

* ENTER * 

* * 
*************** 



**+**E3. ********* 

* SET UP POST * 
->*MASK E TCB ADDR* 



***************** 



*****F3********** 

* * 
*SET UP TUBUS C* 

* TUBIIQ FOR OP * 

* TYPE » 

* * 
***************** 



.* INVITE 
*. INPUT 



*. 

*. 

.*' 



*****G4********** 



*fl TO TC6 INPUT 

->* a 



***************** 



CMPSOE V 0J/01/A1 
*****H3. ********* 
*«CCAPS * 



* POST USER * 

* * 
***************** 



**** 
04-E4*007* 
07-E3* J4 *-> 
07-J3* * 
**** 
CHREDO 

J3 



->*; bsca 

*. 



.* 
. .* 

* NO 



***** 
*001* 
* 81* 



****K3********* 
♦CMRSCH * 
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CMFRMN 

****A1 ********* 

* * 

* ENTER * 

* * 
*************** 



CMRFO 

****A2********* 

* * 

* ENTER * 

* 4 
*************** 



V 

.*. 



.* PUT NO *. 
*. WAIT Tt> 
*. REQUEST .* 



FRFEMAIN 
. POSTED .* 



4****0 i ********** 

* * 

* * 
♦GET LCB REOUEST* 

* * 

* * 
***************** 



**** 

* * 

* B2 * 

* * 
**** 



-* TP *, YFS 

->*. REQUEST .* 

*. PPSTFD .* 



V 0G/04/A3 
****C2********* 
*CMSTOE * 



CMLTUF! 

*****R* ********** 



*SET TP REOUEST * 
->* BEING HANDLED *- 



***************** 



*****R4*** ******* 

* * 

* SET UP CURRENT * 
>* INTERNAL OP * 

* CPHE * 

* * 
***************** 



V 
• *. 



.* *. 

». BSCA 

*. .* 



CMTGM .*. 

El *. 
.* *, 
.* WAITING *. YES 

*. FOR .* 

♦.FREEMAIN .* 
*. .* 

*. .* 
NO 



.*. 
E2 *. 
• * *. 

•* *. YES 

BSCA .* 

*. .* 

*. .* 

*. .* 
' NO 



• *. 

F3 *. 

.* *. 

.* LINE *. 

». ACTIVF 

*. .* 

*. .* 

*. .* 



.* 
* YFS 



V 

.*. 
D4 *. 



DISCONNECT 
*. REOUEST 



V 

.*. 

F4 *, 

.*GET REO*. 

.* AND THIS " 

*. TFRM NOT 

♦.CONNECTFO.i 



***** 
*0"2* 
* At* 



V 

***** 
♦00 2+ 
* Al* 

* * 



. YES 

.* 



OG/04/E? 

****F5********* 
*CMPAII * 

♦POST scheduled"* 

*************** 



CMNXLC .*. 

Fl *. 

.♦ ♦. 

YES .* MORE *. 

-♦. LCB'S TO .» 

*. CHECK .* 

*. .* 

*. .* 

* NO 



*****G1 ********** 

* * 

* SET OFF * 
♦FREEMAIN POSTED* 

* BIT * 

* * 
***************** 

!**** 
* * 
->* B2 * 

* * 
**** 



F2 *. 

.* *. 
.* LINE *. YES 

*. NOT BUSY OR .* 

*. READ .* 
*. .* 
*■ .* 
* NO 



*****G2********** 



•SET BIT TO WAIT* 
-* FOR FREEMAIN * 



* K* * 

* * 
+ *** 



V 0G/P4/A1 

****F3********* 
•CMBUSY * 

* BUSY LINE * 

*************** 



F4 



*. 



***************** 



V OE/0"i/Bl 

****G3 ********* 
♦CMTSBY * 

♦""lTnI'susy"?""* 

*************** 



NOTEl 

SEE 

IBM SVSTEM/3 DISK SYSTEMS 
DATA MANAGEMENT AN6 
INPUT/OUTPUT SUPERVISOR 
LOGIC MANUAL, SY21-0512 



THIS 

TERM 

.CONNECTED. 

*. ,* 

*. .* 

YES 



V SEE NOTE 

*****G4*+ ******** 

* * UCLOZ - * * 

* * CLOSE TO * * 

* * SEND - * * 



***************** 



V SFE NOTF 

*****M4 ********** 

* * * * 

* * «*OPEN - * * 

* *REOPFN THE * * 

* * LINF * * 

* * * * 
***************** 



*****J4 ********** 



RESET SWITCH 
LINE STATUS 



***************** 
**** 



V 

***** 
*00 2* 
* C2* 



QG/Ol/Al 
****K 3** ******* 
•CMRSCH * 

* 1< _ 

♦RESCHEDULE LINE* 

*************** 



**«* 
CMflDIS 



K4 *. 

.♦ *. 

.♦ GET DP 

REOUFST 

*. ALSO 

*. .* 

*. •* 



***** 
*0 2* 
* C?* 
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*001* 01 
* D4* C4 

***** 



81 *. 
• + WILTA *• 

.♦POT 01SC TO*. 

. NdN ACTIVE ♦ 

*. TERM .* 



* CI *-> 



***************** 



* PUT * 
DISC INVITE 

*. TO MLTA .* 



*****B3**** ****** 



***************** 



V QG/04/E2 

****Cl ********* 
•CMPAII * 



.* PUT 


TO 


->*• TUB IN CCP 


| *• ERP 


*. •* 


1 *• •* 


* 


NO 


* * 




♦001* 01 




* K4* F4 




***** 




V 


CMOLT •*• 


D2 *. 


.* * 


.* OFF GET 


*. 


s 



V 9P.2400 
*****C3********** 
+*CC4MP * 



***************** 



*****D 3**** ****** 

* * 
♦SET CURRENT OP * 

->* AS AN INVITE * 

* INPUT * 

* * 
***************** 



9P.2410 

*****E3 ********** 
♦SCC4T1 * 

->* CALL MLTA OLT * 

* TRANSIENT * 

* * 
***************** 



PURGE 
OR STOP 
INVITE 



***** 
*003* 
* Al* 



CMSTML V 9P.2420 

*****G3 ********** 
*»CC4PG * 

* * 

♦CALL MLTA PURGE* 

* TRANSIENT * 

* * 
***************** 



QG/04/H2 

*+**H3********* 
♦CMRQBF * 



9P.2500 
*****F4********** 
*SCC4BP * 



***************** 



CM6STP 

**#+G5********* 

* * 
+ ENTER * 

* * 
*************** 



OC/0T/A5 

****H5 ********* 
♦CMWSET * 

* SEND EOT * 
*************** 



***************** 



V QG/OK/Ag 

****K4********* 
♦CMFORM * 
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CMBSOP 


• *■ 






Al *. 






* * 




* 




r 


* 


BSCA 

*. .* 
*. .* 


* 




* YES 


* * 




i 


*00 2* 




( 


* F2* 






***** 




1 
V 

.*. 



.* *. NO 

*. SWITCHED .* . 

*. LINE .» I 



V 
• *. 
CI *. 
.* SYS. 
* PUT TO 
DISCED 
*. LINE 



*****01*** ******* 

♦IGNORE THE PUT,* 

* IF A GET SET * 

* FOR GET * 

* * 
***************** 



EI *. 

.* *. 

.* GET *. 

ALSO 

*. .* 

*. .* 



* F2 * 

* * 

**** 



CHBSII .*. 

C2 *. 
.* USER *. 
.* REO'T TO *. NO 

— >*. DATA ONLY .* 

*. TERM .* 

*. .* 

*. .* 
YES 



V 

t *. 



CMBRLD .*. 

C3 *. 

.* *. 

.* LINE *. NO 

— >*. ENABLED . *— 

*• .* 



**** 

* * 

* r? * 

* * 
**** 

I 

V 
MTR .*. 

.*" *'. 
> INVITF 
*. DP CODE 



LINE 
ENABLED 

*. .*" 

*. .* 
" NO 



*. YES 

.* 1 

.* I 



V 

.*. 

D3 *. 

.* THIS *. 

.* TERM *. 

♦.CONNECTED ON . 

*. LINE .* 

*. .* 

*. .* 

* NO 



NO 
.*. 

D4 *. 
.* ♦. 
.♦ TERM 
->*. ACTIVE ON 
*. LINE 



+ Fl * 
* * 

**** 



♦ H2 * 

* * 
**** 



V 
.*. 

0? *. 
.* *. 

.* SYSTEM *. YES 
*. NON PUT .* — > 



* NO 
[ **** 
I ♦OO** 
->* Bl * 



V OG/01/A1 
****E2********* 
♦CMFtSCH * 

* * 

•RESCHEDULE LINE* 

*************** 



.*. 

F3 *. 



SYSTEM 
REOUEST 



**♦♦ 
*. YFS * * 

.* >* C5 * 



* NO 



**** 

* * 

* Fl *-> 

* * 
**** 



V 0G/04/E2 

****F1********* 
♦CMPAIT * 

* * 

♦POST SCHEDULED ♦ 

— - ■ ■ ■ • '***** 



**** 

* • 

* F2 *— 



.* 
.* 
- NO 



**** 
CMBACT 



************ 



F2 *. 

.♦LINE *. 

.♦NOT ACTIVE *. YES 

. OR RECEIVE .* . 

*. INIT. .* I 



.* 
*. 
*. 



V 
■ *. 

F3 *. 
* 
LINE 

HOOK-UP 
MATCH 



♦*** 
CMMTUR 

♦•♦♦♦E^********** 

* * 
♦MOVE PARM LIST * 
♦TUB PARM FIELD *<— 

* * 

***************** 



V 

*♦♦♦♦ 

♦or-** 

♦ Rl* 

♦ * 



V 
ONR .*. 

G2 *. 
.* *, 

.* SAME 
*. TASK OWN 
••THE LINE 
*. .* 

*. .* 
* YES 
**** 



* H2 *-> 



*. NO 

.* 



* C5 * 

* * 

**** 

**** 

* * 
->* C5 * 

* + 
**** 



**** 
CMTOPX 



•* ■ KtU 

.* CONFLIC 
'♦.ACTIVIT 



REO *. **** 

"" "~T *. NO * * 

NE . * >♦ C5 ♦ 

Y .♦ * * 

.♦ **** 

.* 
YES 



CMTRES V 

***** J2********** 

* * 

* SET BSCA * 

* OPERATION * 

* REJECTED * 

* * 

*****************: 



*****K2********** 



* SET DFF TP * 
♦REOUEST POSTED *- 



***************** 



0S/01/A3 
*****K3 ********** 
*CMPSR * 

* * 

->*POST RFSULTS TO*— 

* USER * 

* * 
***************** 



QC/08/C? 

****K4********* 
•CMMARK * 

* POST To"uSER~~* 

*************** 
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03-05 

***** 
*003* 
* E5* 

* * 



CMPNWC .«. 

61 » 



.* TUB IN *. YES 
CCP ERP .* -j 



**. .* 




V 


* NO 




*«** 

* * 

* G2 * 

* * 
**** 


V 






CMGNOW . *. 






CI *. 






.♦ *. 






.* PUT NO 


* 


NO 


*. WAIT 






*. 


* 




*. .* 






*. .* 




V 


* YES 




**** 

* * 

* G2 * 

* * 
**** 



V 
»*. 

01 *. 



02 



*. 



,*~ "*. YES .* *• YES 

*. BSCA .* >*. SWITCHED .* . 

*. .* *. LINE .* 

*. .* *. .* 



* NO 



CMGMNO .*. 

El * 

.* 
.* MLTA 
*. OLT REQUEST 



*. 



CHGSTR 



V 0L/01/A1 



*****F1 ********** 
•CMSTOR * 

* * 

•DETERMINE SIZE * 

* NEEDED * 

* * 
***************** 



V QR/01/A3 

*#***G1 ********** 

•CMGMRT * 
* -«.— * 

* GET SPACE * 

* NEEDED * 

* * 
***************** 



* NO 



NO .* USER 

*. PUT RECORD 

*.0R BLOCK . 



**** 

* * 

* F2 * 



**** 
CMGMNO V 

*****F 2* ********* 

* * 

•MAKE OPERATION * 

>* A PUT WAIT * 



***************** 
**** 



V 


.*. 


HI *. 


.* *• 


NO . * GETMAIN *. 


— *. NEEDED .* 


I *. .* 


*. .* 


V *. .* 


**** * YES 


* 




F2 * 




* 




**** 




' dM/01/Al 

*****jl********** 


*CMSET * 


*SET UP GETMAIN * 


* AR 


=A * 



**** 
CMOUE .*. 

G2 *. 
• * *. 
.* OUEUE 
— >*. TO TOP OF 
*. OUE 
*, .* 
*. .* 
NO 



CMTQND V 

*****H2********** 



GO TO END OF 
THE OUEUE 



***************** 



*****G3 ********** 

* * 

* CHAIN CURRFNT * 
->*FIRST OFF FROM * 

•THIS PARM LIST * 

* * 
***************** 



****** *********** 



CMADDO V 

*****J2********** 



ADD PARM LIST 
TO CHAIN 



***************** 



V 

***** 
*005* 
* 02* 
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***** 
♦004* 
* J2* 



CHTSBY 

****B1 ********* 

* * 

* ENTER * 

* * 
*************** 



.♦SYSTEM *. 

•*REOUEST TO *. 

.BSCA SWITCHED. 

*. LINE .* 



.*. 

B3 *. 

.* *. 

.* SYSTEM *. 

->*. OWN THE 

*. LINE .* 



.*. 
B4 *. 
.* * 

.* LINF 
->*. ENABLED 

**. .* 

*. .* 
* MO 



>l<- 

V 

• *. 

C2 * 

* 

bsca 



*. .* 

NO 



**** 
**** * * 

* * * F5 * 
>* p3 * * * 

* « **** 
**** 



* . 
* 
NE 
TVE 



V 
.*. 



.* LINE 
*. BUSY 



.* ■ 



.* 
*. ■* 

* YES 
**** 

* * I 

* E2 *->l 

* * I 
**** 

V OG/04/A1 

****E2********* 
♦CMBUSY * 



**** 

* * 

* D3 * 

* 4 
**** 



V OG/Ol/Al 

****D3 ********* 
•CMRSCH * 

>* * 

•RESCHEDULE LIST* 

*************** 



.*. 
C4 *. 
■ * *• 
„ .* RECEIVE *. YES 

->*. INIT ON .* 

*. LINF .* 
*. .* 
*. .* 
* NO 



04 *. 
.* *„ 
NO .* OWNING 

*. PARM LIU 

*.B«CK IN 0, 
*. ,* 
*. .* 
* YFS 



.* PUT *. YFS 
->*. PENDING .* , 



* NO **** 

I* * 
* F2* 
* * 
**** 

V OK/d/Al 

*****r>5********** 
♦CNIVGM * 



V 

.*. 

E4 *. 

.* *. 

.* INTERRUPT *. 

•WHILE NOT IN . 

*. .* 



♦PFTFRMINE INPUT* 

* BUFFER * 

* RFOUIREMENT * 

********** ******* 



V GG/n*/E2 

****E5********* 

♦cmpaii * 

* * 

*POST SCHEDULED * 

*************** 



V QG/C1/H4 

****F4*+******* 
*CHNOBY * 
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CMRSCH 

****A1**« ****** 

* * 

* ENTER * 

* * 
********* ****** 



V 

.*. 

Bl *. 

• * *• 

*. r 
bsc« .*- 

.* 
*. . * 

*. .*. 

* NO 



*****R2********** 



* CLEAR LINE OP * 
->* FND COUNT * 



***************** 



CMROCT .*. 

CI *. 
.* *. 

.* OLD *. YES 

*. TEST .* 

*. COUNT. 3 .* 
*. .* 

*. .* 
NO 



V 9P.2600 

*****D1 ********** 
**CC4MT * 



.* LINE *. NO 

*. OUFUE EMPTY .* 

*. .* 



.* BSCA *. YFS 

>*. SWITCHED .* 

A *. LINE .* 



♦START MLTA OLT * 

* * 
***************** 

**** 

* * 

* El *-> 

* » 
**** 



****E1********* 
♦CMPAII * 



.*. 

C* *. 

.* *. 

.* SYSTEM * 

->*. OWN THE 

*. LINE .* 
*. • * 

*. .* 
* YFS 



C5 



*. 



.* ' SYSTEM *. YES 

-■>*. RFOUEST .* . 

*. .* I 
*. .* 1 
*. .* V 
* NO **** 
i * * 
* F3* 
I * * 
**** 



D1 *. 

. * *. 

.* 3?70 *• 

*. REFRFSH 

*.nPFRATION.* 

*. .* 

*. .* 

* NO 



*****D^********** 



*SET CURRENT np * 
->* FnR PUT * 



***************** 



.* PUT AND 
*. NOT IN TCP 



**** 

* * 

* F3 * 



**** 
YFS * * 
* >* H5 * 



**** 
CMNXTP .*. 

F3 *. 

.* *. 

.* MORE *. N 

*. REQUESTS IN .*- 

*. THF .* 

*. .* 

*. .* 

■ YES 



*****G3 ********** 



POINT TO NEXT 
REOUEST 



***************** 



CMTSRS OK/P1/AI 

*****F4********** 
•CMTVCM * 



->* GO 00 INVITE * 

* GETMAIN * 

* ANALYSIS * 

***************** 



NO 


* LINE BF * 


— # 


RESCHEPJLFO 


1 


*. .* 




*• .* 


V 


*. .* 


**** 


* 


* 




Fl * 




* 




**** 




TMNPRY 


****H4 ******** 


* 




* 


ENTER 


* 






>£***** ******** 



rMTKFR 

*****£. 5* ********* 

* * 

* POINT TO READ * 
>* IN THE LINE * 

* QUEUE * 



***************** 



**** 
CMSCHO V 

*****H"> ********** 

* * 

* SAVE TERMINAL * 
•CHARACTERISTICS* 



***************** 
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.* STADT A 
*. REftO 
*. 


* 

* 


. ND 

,* — --, 
] 


*. .* 




i 


*. ■* 

* YF? 

I 

| 




V 

***** 
*oo2* 

* Al* 

* * 
* 


I OG/O'/Al 
V 
****K5 ********* 
*CMPMLT * 
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CMHRIT 


*. 


* *. 




Al ». 


A2 *. 




.* *. 


.* *. 




.* *. YES 


. * SYSTEM *. MO 
->*. HFOUEST TO .* 




,->*. BSC4 .* 




*. .* 


*. 327C . * A 


t *. .* 


*. .* 




1 *. .» 


*. . * 




* * NO 


* YES 




* * 1 








*C01* 








* J5* 








***** 1 








V 








CMWMLT .*. 


V pp.2300 




Bl *. 


**ft**R 2***oi****** 
**CC4RO * 




.* *• 




.* *. YES 






*. DISCONNECT .* . 


♦FORMAT MSG FOB * 




*. .* | 


* 3270 * 




*. .* 


* * 




*. .* y 


***************** 




* NO **+* 








* * 








* J2 * 








* * 








**** 






V 






*****C1* ********* 






* * 






* SET UP * 






*TRANSLA1 


rE LIST * 









***************** 



.*. 



.* *. NO 

*. TYPEWRITER .* 

*. DEVICE .* 

*. •* 



CMPHLN 

*****D2********** 

* * 

* SET UP LENGTH * 
— >* FOR CURRENT * 



***************** 



*****E 1***4****** 

* CONTROL *- 

* CHARACTERS * 

* * 
***************** 



CMTWR PP. 2620 

*****G1********** 
•JCC4JX * 



***************** 



CMSLSW V 

*****E2********** 



* ADD CHARS TO * 

* START OF LINE * 



***** ************ 



CMELSW V 

*****F2********** 



ADD CHARS TO 
END OF LINE 



****************** 



V 

CMTSR .*. 

G2 *. 

.* 
YES .* TRANSL 

*. TO L 

«. COO 

*. .* 



nslate'*. 

obr .*• 



V 



translate 

. ERROR . 
*. .* 

*. ' .* 
* YES 



*CAI_L TRANSLATE 

* ERROR RTN 

* 
***************** 

**** 

* * 

* Kl * 

* * 
**** 



****K1*** ****** 
♦CMROBF * 



* NO 



V OX/01/A2 

*****H2* ********* 
**CC*MV * 

* — » * 

* CALL MOVE * 

* ROUTINE * 

* * 
***************** 



* J 2 *-> 



**** 
CMDOWR V 

*****J2********** 

* * 
•-SET TERMINAL * 
♦CHARACTERISTICS* 

* * 

* * 
***************** 



0G/03/A1 

**+*K 2********* 
•CMFMLT * 



*. .* 

*. .* 
* NO 



OP. 26?" 

*****A&********** 

**crijn * 

* * 

->* translate Tn * 
*ASl~II LINE COOE* 
* ft 

***************** 



****p,^******ft## 
*CMFORM * 



-*. TRANSLATE 
*. ERROR . 
*. .* 
*, .* 
* YES 



V PP.2310 

*****C4********** 
*SCC4HR * 



ERROR ROUTINE * 
* * 

***************** 

I**** 
* * 
->* Kl * 
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CMFMLT 

****A1* ******** 

* * 
» ENTER * 

* * 

*************** 



V 



.* *. NO 
*. DISCONNECT .* 



*****C1*.»******** 



♦GET OP CODE FOR* 
* DISCONNECT * 



***************** 



CMF010 

***** A 2* ********* 



*SET OP CODE FOP* 
. — >* MLTA IOCS * 



***************** 



CMI8FR V 

*****R 2* ********* 



♦SET UP TO RESET* 
* OR NOT * 



***************** 



CMIWIT .*. 

C2 *. 

.* *. 
.* NEED *. NO 

». INITIAL OP .* 

*. ON LINE .* 



.*. CXTCON 

C3 *. *****C4********** 

,* *. * * 

RFSFT *. YFS * ISSUE * 

BEEN SENT .* ^CONVERSATIONAL * 



D2 



..•%»« 



... AND 
SWITCHED 

LINES . 
*. .* 

*. .* 
» YES 



V 9P.2&30 

*****E2* ********* 
**CC*WC * 

* . * 

•LOG SWITCH MSG * 

* TD SYS OPR ♦ 

* * 
***************** 



*****F2********** 



•SET UP INITIAL 
* OP CODE 



***************** 



.* 
■ NO 



V 

.*. 

D3 *. 
.* *. 
.* ISSUF 
*. CONTINUE 
*• • 

*. .* 
*. .* 
* NO 



cwcont v 

*****E3**** ****** 



•ISSUE CONTINUE 
* OP 



***************** 



***************** 



CMOPFM V 

*****F3 ********** 



SET DTF TMA 
VALUES 



***************** 



CMCRID V 

****#G3*#******** 



ADD CARRIAGE 

URN AN" 

IDLES 



RETURN AND 
ID' — 



***************** 



V SEE NOTE 

*****H 3** ******** 



* * MLTA IOCS 

* * START 



***************** 



V 0V/01/R4 

*****J3********** 
•JCC4TT * 



SEE IPM SYSTEM/3 MnOFL ID 
DISK SYSTFH MULTIPLE LINE 
TERMINAL ADAPTER RRO 
PRDGRAM LOGIC MANUAL, 
SY21-P527 



* TRACE ROUTINE • 

* * 
***************** 



->..UNSU^E^FUL t 

*. .* 



*****JS ********* 
•JCC4SC 



***************** 
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*#** 

* * 

* 44 # 

* * 
**** 



CMBUSY 

****Al ********* 

* * 

* ENTER * 

* * 
*************** 



V 
.*. 



Bl *. 

* * 

BSCA 



.* 

■ NCI 



rMT*pF 

****£* ********* 

* ENT(=R * 

* * 
*************** 



.*. 


QP. 2«jin 


*2 *. 


*****p 7 ********** 


,* *. 


*«cr.4PC * 


RECEIVE *. YES 




INITIAL .* 


™ >*fANCFL RECEIVE * 


.* 


* INITIAL TO * 


*. .* 


* HANDLE PUT * 


*. .* 


***************** 


* NO 


I 


1 **** 


1 **** 


, * * 


* * 


->* Fl * 


->* Fl * 


* * 


* « 


**** 


**** 



* wn 
I 



v 
«*. 

p* *. 

.** OP **. MR 

*. ENDsO .* 

*. .* 

* • •* 

*. .* 

* YES 



****&<-;********* 
♦CMTSP.V 

*""tnf"rusy 

*************** 



-* 



***ftp5********* 
*CMCHEK * 



.* N( 
*. REA 
*. 27 
*. 

*, 


)W * 
) OR 
H .* 

. * 
.* 

> NO 


YES 

V 

**** 








* Fl 
* 
**** 


\ 
*****D1** 

* * 

* * MtTI 

* *AN ABt 

* * THE t 


1 SEE NOTE 

********* 

* * 

n do * * 

)RT ON* * 
INE * * 





***************** 



FRFEMAIN 
. POSTED 



V 

.*. 

nA *. 
.* * 

.* TP 
*. REQUEST 
«. POSTED 



♦♦**r«; ********* 

*CMFRMN * 



V 0V/01/R4 

*****-= i ********** 

*»CC4TT * 


CHPAII 

****E 2* ******** 
* 

* ENTER 
* 

*************** 


4 

* TRACE 

* 
******** 

**** 

* * 

* Fl *-> 


* 
rHE SIO * 

* 
i******** 


**** i 

Fl 

»* 

.* T 

*. REO 1 

*.SCHFl 

*. 


/ 

k, 
*. 
*. 

*. NO 
JEST .*— 
JULEO.* 
.* 


**** 

* * 
->* A4 * 

* * 

**** 



E4 *. 
.* BSCA *. 
.* INTERRUPT *. v 
.AND PARM LIST.*- 



F* *. 
.* ERP *. 

. *REQUFST Tn *. VFS 

. RESCHEOULF .* 

*. .* 



0F/01/A2 

****D5 ********* 

*r.MRF0 * 

->* * 

* CHFCK REOUFST * 

*************** 



***+F5********* 
*rMFPBH * 

* form np r.oni * 

*************** 



****(■■ 5 ********* 
*r»TSRY * 

* LINE PUSV? * 

*************** 



*■ . * 

*. .* 

■ NO 



V OS/01/A3 

*****H1 ********** 
♦CMPSRO * 

* * 

* POST REQUEST * 

* SCHEDULED * 

* * 
***************** 



*****jl ********** 

* * 

* SET OFF TP * 

* REQUEST. POST * 

* GO * 

* * 
***************** 



CMRQBF 

****H2********* 

* * 

* ENTER * 

* * 
*************** 



I 

V 
.*. 

G* *. 

*" WORK "*. YES 
FOR CONSOLE .* 



CWWAIT V OI/C1/A1 

*****H4**#******* 
*»CC*WT * 



QA/Ol/Ri 

****<;*********+ 
• KMTNTR * 

*CONSOLF INTRPT?* 
*************** 



WAIT FOR MnRE 
WORK 



***************** 



****J4 ********* 

*tCC4r* * 



* PFPORT * 

*************** 



**** 

* * 

* A4 * 

* * 
**** 



MOTE: SFF IBM SYSTI-x/' 

MOOFL 10 DISK SYSTFW 

MULTIPLE LINE 

TFRMINAL ADAPTFP »PO 

PROGRAM LOGIC MANUAL, SV21-i><;27 
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CMFORM 

***#A2** ******* 

* * 

* ENTER * 

* * 



SET UP DTF 
ATTRIBUTES 



*********.!.*,!■***** 



* NO 



#*#**£ 2********** 

*SET UP OTF FOR * 
* PUT QP * 



ft**************** 



#*******#:«#**#**# 



*****G2* ********* 



a******* ********* 



.*. 

H2 *. 

* * 

GET OP 

*. ,* 
*. .* 

* NO 



* ##** j 2* ********* 



SET UP FOR 
ADDRESSING 



***************** 



->*, SWITCHED 
*. LINE 
*. .* 



#***«G 3***# ****** 



***************** 



.* MULTI *. NO 

>*. POINT TRIB .* — 

*. .* 

*. t* 

*, .* 



*****G4********** 



***************** 



9P.2630 

*****H4********** 

**cc^wc * 

#_-_—«—.„„-* 

->* SEND SWITCHED * 

* LINE MSG TO * 

* SYSTEM DPR * 
***************** 



NOTE! IF MINRES-Y AND 8SCA-1 ARE SPECIFIEO, 

THIS CODE IS REPLACED WITH A CALL TO *CC4B2 
WHICH PERFORMES THE CHECK FOR A CONFLICT WITH 
OPEND. 



************* **** 
I 
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I 

v 
***** 

*006* 
* Al* 

* * 
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ABORT 

OR SEARCH 

EOT 



* PUT LnGKAL * 
->* RECORD r) INTO * 

* OTF * 

* * 

***************** 



* * 

*00 5* 
* K3» 
***** 
05-B2 



*****B1 ********** 

* * 
♦SET DUMMY DATA * 

* a * 



***************** 



I 

v 

. *. 

B2 * 
* 

GET OP 



* , 
*. 

, *" 
.* 

4 

YFS 



CI 



V 
.*. 



C2 



.* SEND «■ YES 

*. RVl .* 

*. .* 
*- .* 
*. ,* 
* NO 



.* PUT OP *. NO 

*. CODE .* . 

*. .* 

*. .* I 
*. .* V 

* YES **** 
I ***** * 

* * * F2 * 
->* K4 * * * 

* * #*** 
**** V 

CMFGIL .*. 

D2 *. 

.* * . 

.* RECEIVE * 

*. INITIAL AND 

*.CS OP SW .* 

*. .* 



V OU/Ol/Al 
*****F 2* ********* 
♦CMGINL * 

*— — .— , »* 

♦DETERMINE INPUT* 

* SIZE * 

* * 
***************** 



* SET U D p UT no * 


.* 


SPNO * 


YES 




>* CODE * 


>*. 


FHT 


* 1 




* * 


* 


.* 


I 




# * 




*. ** 


1 




***************** 




*. .* 
* NO 


V 

**** 












* * 












* K4 * 












* * 








V 


**** 




*****f3********** 




C4 *» 




*****("(;********** 


* * 




* *, 




* * 


*SFT PVI TNH IN * 


. * 


nLT * 


VES 


*JFT UP PLT PAPM* 

%* ADDRFSSFS * 


>* DTF * 


*. 


REQUEST 


* 



A**************** 



***************** 



*****H5**** ****** 

* * 

* USF PART OF * 
->*LINF BUFFER POR* 

* OFrnfen arfa * 

* * 
******* ********** 



• * *. 

A SC 1 1 * 

TRANSLATE 

■ .* 

*. , * 

*. .* 

* NO 



*****FR* ******* ** 

* * 

* USE SPECIAL * 
->* ASCII BUFFFR * 

*FOP RPCHRO ARFA* 

* * 
***************** 



**** 

CMBIOS V SEE NOTE 

*****F2********** 

* * * * 

* ***BSMS CALL* * 

* * MLMP IOCS * * 



****** **********:* 



v ov/oi/b* 

*****G2 ********** 
♦iCCATT + 



CMFVRC 

*****F 3 ********** 

* VERIFY USER * 
*PARM LIST RECL * 

* AGAINST TERM *< 

* DEFINED SET * 

* * 
***************** 



* TRACE Sin * 

* * 
***************** 



CMFMVO 

*****H 2* ********* 

* * 

* SET RECORD * 

* MOVED AND RIT * 

* IND f S * 

* * 
***************** 



F4 *. 

.* *. 

.* PUT *. 

. THEN GET 
*. ,* 

*. » * 
*• .* 
* NO 



.* 
.* 
->*. *270 



,* 
.* 
* NO 



V 

CHFPTO .*• 

HA *. 
.* *. 
YES .* USER *. 
*, RECORD MODE .* 



NOTE: SEE IBM SYSTEM/3 
DISK SYSTEMS BINARY 
SYNCHRONOUS COMMUNICATIONS 
PROGRAMMING SUPPORT * 
INPUT/OUTPUT CONTROL 
SYSTEM LOGIC MANUAL, 
SY21-0526 



V 

.*. 

J2 *. 

* R 60 * 

*. .* 
*. .* 
NO 



CMFAKE 

***** j 3*********4 



*« 

** 
«* 



,m k 



***************** 



* J3 * 

* * 

**** 



****K2********* 
*CMPAII * 



,* *. NO 


*. LENGTH PUT .* 


*. MSG .* 


*• • * 


*„ ♦* 


* YFS 


**** 




* * 




* K4 *-> 




* * 




**** 




V 


*****K4 ********** 


* * 


*SET UP PUT-FOT * 


* OP CODE * 


* * 


* * 


***************** 


1 **** 


| * * 


->* J3 * 


* * 




**** 



*****H^ ********** 



*SET UP PUT EOT * 
*TO WACK OP CODE* 



***************** 

**** 
I * * 
->* F2 * 
* * 
**** 
CMFVPP 

*****J* ********** 



***************** 



F2* 

* 
**** 
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**** 

* * 

* 43 * 

* ft 

**** 



RF/01/A3 

***4*A4********** 
•CMBSKP * 

->* sIt poll sup"* 

» BIT OFF » 

* * 

***************** 



CM1VGM 

****B1 ********* 

* * 

* ENTER * 

* * 
*************** 

**** I 

* * I 

* ci *->| 



ft*** V 
CMOTII .*. 

CI *.. 
.* * 

.* GET 

*. DP-TYPf: 

*. CODE 



CMGML3 V 0O/O1/A1 

*****B3** ******** 
*CMOFSK * 



* SET POLL SKIP 

* BIT OFF 



****#**»********* 



CMNOSO * 

*****C3 ********** 



*. NO 
.* 



01 



.* 



**** 



TUB IN *. YESV 

*. CCP ERP .* >* D3 * 

*. .* * * 

*. ,.* **** 

*. ** 
* NO 



.* INVITE *. NO 

*. OP CODE .* 

*. .* 



*****E2********** 

* * 

* SET UP TO * 
->*HANDLE A GET OP*- 

* CODE * 

* * 
***************** 



CMGTST .*. 




.*. 


Fl *.. 




F2 *. 


.* *. 




.♦SYSTEM *. 


.* BSCA *. YES 




* REQST BUT *. Y 


*. SWITCHED .* 


— >* 


USER HAS .*- 


*- .* 




*. LINE .* 


*. .. * 




*. .* 


*. .* 




*. ' . * 


* NO 




* NO 

i **** 

* * 
->* Jl * 

* * 


V 




ft*** 


.*. 




0Q/01/A3 


Gl *.. 


*****G2*+* ******* 


.* *. 


*i:hfhrt * 


.* CURRENT *. YES 


*- 


. ft 


*. INVITE .* 


— >* 


FREE CURRENT * 


*. BUFFER .* 


* 


AREA * 


*. ,.* 


* 


* 


*. •* 


***************** 


* NO 




1 


r 

V 






*****H 1***4****** 






* ZERO CURRENT * 

* NEED SIZE. * 










* POINT TO 1ST * 






* PARM LIST * 







* SAVE LARGEST * 








♦ INVITE SUE IN * 

* CURRENT * 










* ft 






ft ft #4ft*ft ********** 






«*** 








ft * 








* 03 *-> 








* * 








**4* V 






CMNXPL .*. 


.*. 




D3 *. 


04 *. 




.* *. 


.* *. 


**** 


.* MORE *. NO 


.* NEED TO *. NO 


* * 


*. PARM LISTS .* 


>*. DO GETMAIN .* 


->* G5 * 


*■ •* 


*• .* 


* * 


*. .* 


*. .* 


**** 


*. .* 


*. .* 




* YES 


' YES 




ft*** 








* * 








->* CI * 








* * 








**** 










CMIVGO V QR/01/A3 
*ftftft*E4********** 
*CMGM«T * 


.*. 




E5 *. 




.* *. 






.* GETMAIN *. YES 




* REOUlREO * 


*. .* 






* 


* 


*. .* 



***************** 
#*** 



**** 

CMGMLT V QL/01/A1 

****«j !*****#**** 

•CMSTOR * 



CHGMLi V QO/Ol/Al 
*****G3 ********** 

*CMOFSK * 



***************** 



RF/QI/A3 
*****F4 ********** 

*CMaSKP * 
* * 

->* SET POLL SKIP * 

* BIT OFF * 

* * 
***************** 

I**** 
* * 
->* D3 * 
4 * 
***# 



****F5********* 
♦CPHALT * 



* * 

* G5 *~7 

* * <■ 

**** 



* SET POLL SKIP * 

* BIT OFf * 

* * 
***************** 



****G5********* 

* * 

* RETURN * 

* * 
*************** 



***************** 



.* NEEDED *. 

SUE 

♦.AVAILABLE.* 



* A3 * 

* * 
**** 



***** J2********** 

* SET GETMAIN * 

* NEED. SET * 
->* FREEMAIN IN *~ 

* WAIT MASK * 

* * 
***************** 



-* 



CMGML2 V OO/Ol/Al 
*****K3********** 
♦CMONSK * 



***************** 

I**** 
* * 
->* D3 * 

* * 
**** 



CMGSBN RF/01/A3 
{ *****J4********** 

*# I *CM8SKP * 

*- YESV * * 

.* >* s E T PQLL SKIP * 



BIT ON 

* * 

***************** 

1**** 
* * 
->* 03 * 

* * 

**** 
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$CC4V1 

This module is the resident code of the CCP for a Model 4 
3270 only CCP system. See the following modules for a 
description of the functions: 

$CC4I l/$CC4IS TP I/O interface mainline 

$CC4CM Communications manager 

$CC4IC Console interrupt intercept 

$CC4PI Transient area handler 

$CC4AM Allocation resident routine 

$CC4TI User task termination routine 

$CC4CP Command processor resident routine 

$CC40C Open/close/allocate interface 

$CC4MX Generalized move routine 

$CC4MS Getmain/freemain interface 

$CC4IB BSCA interrupt appendage 

$CC4BT BSCA trace interface 

$CC4BN BSCA first level interrupt handler 

$CC4M1 3270 only MLMP IOS 

$$BSAT BSCA line #2 work area 

$$BSLG BSCA error log 

$$BSMA BSCA line init 

$$BSMB BSCA polling routine 

$$BSMC BSCA resident close routine 

$$BSMF BSCA log routine 

$$BSID DA polling routine 



$CC4V2 

This module is the resident code of the full BSCA CCP 
system for the Model 4. See the following modules for a 
description of the functions: 

$CC4II/$CC4IS TP I/O interface mainline 

$CC4CM Communications manager 

$CC4IC Console interrupt intercept 

$CC4PI Transient area handler 

$CC4AM Allocation resident routine 

$CC4TI User task termination routine 

$CC4CP Command processor resident routine 

$CC40C Open/close/allocate interface 

$CC4MX Generalized move routine 

$CC4MS Getmain/freemain interface 

$CC4IB BSCA interrupt appendage 

$CC4BT BSCA trace interface 

$CC4BN BSCA first level interrupt handler 

$$BSMS MLMP IOS 

$$BSAT BSCA line #2 work area 

$$BSLG BSCA error log 

$$BSMA BSCA line init 

$$BSMB BSCA polling routine 

$$BSMC BSCA resident close routine 

$$BSMF BSCA log routine 

$$BSID OA polling routine 
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CASTOR 

****A1********* 

* * 

* ENTER * 

* * 
*************** 



*****81 ********** 

* * 
•SET BUF 1 NE60 * 

* TO 4 FOR GM * 



***************** 



V 

.*. 

01 *. 

• * *■ 
.* BSCA *. YES 
*. STATUS POLL .* 

*. •* 

*. -* 
*. .* 
* NO 

'{'" 



.* SYSTEM 
*. INVITE 

*. 



CMSPUT 

*****C2** ******** 
* * 
*A00 OUTPUT LEW * 
>* TO NEEO *- 



***************** 



*****D2 ********** 

•ADD STATUS POLL* 
->* RECORD LEN TO *- 

* NEED * 

* * 
***************** 



CMSTOY 

*****E2*** ******* 



.* *. YES 

>*. PUT-THEN-GET .* 



.* 

.* 
NO 



*****D3*** ******* 



***************** 






***************** 



CMSTOX 

V 

****E3********* 

* * 
>* RETURN * 

* * 
*************** 



V 
.*. 

Fl *. 



*****G1 ********** 
* * 

dRUFCL TO 



***************** 



*****F2********** 

* USE CC*MCL TO * 
->*SET MAX COMMAND* 

* LENGTH * 

* * 
***************** 



NOTE: IF MINRES-Y ANO BSCA-1 ARE SPCIFIED, 

THIS CODE IS REPLACED WITH A CALL TO 

*CC4B2 NHIXH PERFORMES THE CHECK FOR 
A CONFLICT hITH OPEND. 
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CNSET 

**4*A1*4*****«* 

* * 

* ENTER * 

* * 
*************** 



*+***B2********** 



>* 



.* 
,* 
VES 



* BUFFER AREA * 

* * 
***************** 



< . 



*SET UP HOVE OF * 
•DATA TO GETHAIN* 

* AREA * 

* 4 
***************** 



V OX/01/A2 

*****D1 ********** 
**CC4MV * 

* * 

* * 

* MOVE THE DATA * 

* * 
***************** 



****E1* ******** 

* * 

* RETURN * 

* * 
*************** 



IF MINRES-Y AND BSCA-1 ARE SPECIFIED, 
THIS CODE IS REPLACED WITH A CALL TO 
SCC4B1 WHICH PERFORMS THE CHECK 
FOR A CONFLICT WITH OPEND, 
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CMONSK/ 

cmofsk 



****A1 ********* 

* ENTER * 

* * 
*************** 



Bl *. 

.* DTF *. 

.* OPEN t *. Y 

*. STATION .*- 

*. CTL .* 



CMSWNF 

******* 2** ******** 



*SET UP SKIP BIT* 
->* ON/OFF OPCODF * 



***************** 



CMPGTA V 

*****C2********** 



MOVF TMA INTO 
THE DTF 



***************** 



V QW/01/A-? 

*****D2 ********** 
•CMMCT * 



* PLUG MCT THA * 

* * 
***************** 



V SEE NOTF 
*****E2********** 

* * * * 

* * MLTini * * 

* *ISSUE OP TO* * 

* * MLTA IOCS * * 

* * * * 

***************** 



.* START 
*. SUCCESSFUL 



.* 

,* 
YES 



> <- 

CMON2 

V 

****G 2* ******** 

* * 

* RETURN * 

* * 
*************** 



OP. 2610 

*****F3 ********** 

*$CCiSC * 

* . * 

>* START ERROR * 

* TRANSIENT * 

* * 
***************** 



NOTF: SEE IBM SYSTEM/3 

MODEL IP DISK SYSTFM 
MULTIPLE LINE TERMINAL 
ADAPTER RPQ PROGRAM 
LOGIC MANUAL, SY21-0527 
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TMFMRT 

****A3 ********* 

* ENTFP * 

* * 

*************** 



CMGMRT 

*#**£ -4 ********* 

* 4 

* ENTER * 

* * 
*************** 



*****?, 3********** 

♦BACKUP 4 BVTFS * 

* FROM START OF * 

* RECORD * 

* * 

***************** 



*****(- 3********** 

* * 

* PCTNT TO * 

* FREEMAIN * 

* CONTROL BLOCK * 

* * 
***************** 



V 07/02/A1 
*****Q3********** 
**CC4FM * 

4 „ * 

* CALL FREFMAIN * 

* ROUTINE * 

* * 
***************** 



CMFMR1 ! 
V 

****E3 ********* 

* * 

* RETURN * 

* * 
*************** 



*****B3 ********** 

* * 

* POINT TO GM * 

* CONTROL BLOCK * 

* AND PARM LIST * 

* * 
***************** 



V OZ/01/A6 

#****C3**** ****** 
**CC4GM * 



*CALL GM ROUTINE* 
* * 

***************** 



CMS MR 9 

V 
****03 ********* 

* * 

* EVIT * 

* * 
*************** 
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cwr<;pq 

****£3fc ******** 

* * 

* * 
*************** 



B^ 



CHMMANO 
INTEPRU D T 

, MnriF , 
*. .* 

*. .* 
WO 



*SfT U° Tn pncj 
* REQU^TOR 



***************** 



TMPSO U Oj/oi/41 

*****Q3 ********** 

*tcr,^i>5 * 



****#Q4,*ft*****ftft* 

* ft 

*SPT tjP Tn PO«T * 
>* COMMAND * 

* ppQCF<;^np * 

* * 
**** ********* **** 



dhst tp 
SCHEDULED 



Aft*************** 



****P3********* 

* * 

* RFTUPNJ * 
ft * 

*************** 



Chart QS. CM Post TP Scheduled (CMPSP.Q) 



9-184 



fMGINL 

****A1 ********* 

* * 

* ENTER * 

* l * 
*************** 



*** **b 1* **** ** ** * 

* * 

* SET DTF WKB £ * 

* REL FROM PAPM * 

* LIST * 

* * 
***************** 



V 

• *,. 

CI *• 

.* *. 

.* POLL *. NO 
*• FDR STATUS .* 

*, , * 

*. . * 



* RECORD *. VFS 
MOOF . * 



IN LEN 



*ft***A4 ********** 



*USF TAS RECL IN* 
->* tPDBFL * 



***************** 



> < 

V 
CMGIPK .*. 

B3 *. 

.* MLMP * 

,* variable 

*. LFN 
*. SUP'T. 



If 
**** 

* * 

* F3 * 

* * 
**** 



YES 



*****0 !**»** ***** 



•USE STATUS POLL* 
•RECL IN JBDRFL * -. 



*********, 


******* 


V 

**** 


**** 




* 


* * 




* F5 


* El *--- . 




* 


* * 




***# 


*♦*# ( 






CMGICB V 






*****P !**<»******* 





* ADO 4 TO BUF * 

* NEEO FOB GM * 

* PARM LIST * 

* * 
***************** 



Fl *. 
.* *. 
* CURRENT *. 
HOLD BUFFER . 

*• -* 



CMGIAL 

*****P2* ********* 

* * 

* SET *B0REL TO * 

* WHAT IS *< 

* AVAILABLE * 

* * 
***************** 



* E* * 

* * 

**** 



.* DATA 
*. AVAILABLE 
*, IN IOR . 



rMGIRX .*. 

03 *. 
.* MORF *. 
VES .* RFQUESTFD *. 
— — *. THAN 

*. AVAIL .* 
*. .* 
*. .* 
* NO 
**** 



* K"» * 

* * 
**** 



00/01 /A» 

*****p 2** ******** 
*CMFMRT * 

* * 

->* FREE CURRENT * 

* HOLD BUFFER * 

* * 
***************** 



* F3 *-> 



**** 

CMGiia .*. 

F3 *. 
.* 
.* INVITE 
*. INPUT 



V 

-*. 

F3 *. 

.*" SVSTFM 
*. REQUEST 



**** 

* * 

* m * 

* * 
**** 



.* 



rxGIRL 

**#**F5 ********** 



* SET BtJF NFED * 
->*EOUAL TO tRDRFL* 



.* 
VES 



**G1*** ******* 
*CMGMRT * 



GET NEK SPACE 
REOUIR.FD 



***************** 



*. .* 
* YES 



.* * 
.* RECEIVE 
«. UNIT 



***************** 

* I 

* **** 

* I * * 

* ->* El * 

* * * 

**** 



.* 

,* 
NO 



GETMMN 
WORK. 



. * 

,* 
NO 



CMGIUS 

*****H2** ******** 



•SET TO USE THE * 
->* GOTTEN SPACE * 



***************** 



I 
CMGISR V 

*****H4 ********** 

* * 

* SET BUFF NEEO * 
*FOUAL TO PLJNL • 



***************** 



**** 

* * 

* K-> * 

* * 
**** 



CHGINO V 

*****J1*** ******* 



* SET GETHAIN 

* NEFDEO IN CCP 



***************** 



****K1********* 
* 

* EXIT 
* 

*************** 

TO 



*****J3********* 



* ei * 

* * 
**** 



* STATUS 


* 


NO 


*MOVE GOT Si INTO 


POLL 








*. 


* 




* 


*. •* 






* 


*. .* 






***************** 


* YES 






**** 
* * 




V 






* K3 *-> 




**** 






* * 




* * 






**** 




* K? * 






CMGIXT 





****K^ ********* 

* * 

* PFTgpw * 

* * 
*************** 



CMPAII 
QG/04/E2 
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CHHCT 

****A3*******.|r.* 

* * 

* ENTER * 

* * 



V 

.*. 

B3 *. 

.* MULTI *. 
.* COMPONFNT *. NO 
*. TERMINAL .*— 
*. <MCT» .* 



*****C3********** 



•FIND MCT ENTRY * 



***************** 



CMMCTM V 

*****D3 ********** 



♦WOVE MCT DEVICE* 
•AOORESS TO OTF * 



***************** 



SCC4RT 

****C3 ********* 

* * 

* ENTER * 

* * 
*************** 



*****D3 ********** 

* * 

* GET TRACE * 

* ROUTINE ENTRY * 

* FROM 38TRAC * 

* * 
***************** 



E3 
*. IOADG 



V SEE NOTE 
*****F3********** 

* * ' * * 

* **SBSMT 6SCA* * 

* * TRACE * * 

* * ROUTINE * * 

* * * * 

***************** 



****E3********* 

* * 

* RETURN * 

* * 
*************** 



****G3********* 

* + 

* RETURN * 

* * 
*************** 



Chart QW. CM MLTA Muiticomponent Terminal Routine (CMMCT) 



SEE IBM SYSTEM/3 DISK SYSTFMS 

PR^gKMMrKg H ?R?^T ct,,, ^ T '"' nNs 
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CMBSKP 

**** A }********# 

* * 

* ENTER * 

* * 
*************** 



B3 



*. 



*. NO 

♦.MULTITERMINAL.* 

*. LINE .* 
*■ • + 

*. .* 
* YES 



C3 



— «. ENTRY MATCH 

*. ruesio .* 



.* SWITCH 
*. CALL 

"*. .*" 

*. .* 
* NO 



V 

■ *• 
D3 *. 

.* *. 

YES .* SWITCHED *. 

*. AND DON'T .* 

*. VERIFY .* 
*.IO'S .* 



*****E3********** 



* SET THE POLL 

* SKIP BITS 



***************** 
< 



****F3********* 

* * 

* RETURN * 

* * 
*************** 
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*$BSMS 

* * 

* ENTER * 

* * 
*************** 



♦SAVE REGISTER'S* 
* FIND IOB * 



***************** 



V 
.*. 

CI *. 

* *. 

FIRST *. NO 

TIME .* 

.* 



*****[)! ********** 



* SET DTF TO * 
•ACTIVE ANO USEO* 



***************** 

**** 

* * 

* El *-> 



.* IOB *• YES 
->*. AVAILABLE .* ■ 

*. .* 



**** 

* * 

* D2 * 



**** 
DHOPAC V 

*****D2********** 

* * 
♦POST OPERATION * 
♦ACCEPTED IN DTF* 

* X'OO' ♦ 

* * 
***************** 



HFT .*. 

B3 *. 

.* *. 
.* GET *. V 
— >*. REQUEST .*- 
*. .♦ 

*. .* 
*. .* 
* NO 



NOCONV 



GG/02/A3 

»****B5 ********** 
♦DMGINP * 



TIME THIS 
IDS 



.* 
*"VES 



^CORO* 



***************** 



DMPUT 



PUT-EOB 
PENOING 



*. YES 
. * • 



***t*C4* 
•OMGCC 



,unti% 



""rIcOR 



***************** 



* G3 * 

* * 

**•* 



'. YES 
.* 



**** 
DMEXIT V 

*****£ I********** 

* RESTORE * 

* REGISTERS • 

* * 

* * 
***************** 



****F1********* 

* * 

* RETURN * 

* * 
*************** 

TO: CALLER 



.*. 

03 *. 

.* *. 

.* FIRST > 

. RECORD THIS 

♦. BUFFER .' 

*. .♦ 

*. .* 

• NO 



•CALCULATE SPACE* 
\*LEFT IN BUFFER * 



♦♦♦♦♦**♦♦******** 



DHP 



>CC 

*** 



$***D4********** 

* * 
♦SET UP TO MOVE ♦ 

— >* FIRST RECORD * 

* * 

* * 
***************** 



MPNOSP .*. 


F3 *. 


.* *. 


.* ROOM *. YES 




*. RECORD .* 


*. .* 


*. .* 


" NO 


♦♦♦* 




* * 




* G3 ♦-> 




* * 




*♦** 




DHMPTR V 


*****G3 ********** 


* * 


* SET 10 > READY * 


* FOR TR 


SNSMIT • 



CALLHV 

*****E4***' 
•DHHOV 



X....S... 1 



* MOVE RECORD * 

* * 
***************** 



*****F4********** 

* * 

* SET PN TEXT * 

* INDICATOR IN *- 

* 100 * 

* * 
*******♦♦♦♦♦*♦*♦♦ 



NOREST c ,'*- t 

.* '♦ 

.♦ NULL 
*. HSG 

*. 

*. .* 



V 

.♦• 
D5 *. 



PUT EOB 

*. .*" 

*. .* 
* YES 



*****E5*********^ 

* * 

* PREVIOUS ♦ 

♦RECUEST END OF * 
♦BLOCK REOUESTEO* 

* * 
******♦♦*****♦♦♦♦ 



NOEOB V 

♦****F5 ********** 



♦ SET ON DATA ♦ 
♦MOVED INOICATQR^ 



***************** 



***************** 



V FF/01/A1 

*****H3********** 

♦MS8SI0/BSCI0S * 

* * 

* START SENDING ♦ 



RT SEi 
DATA 



***************** 

I**** 
* * 

->♦ D2 ♦ 

♦ ♦ 

♦ ♦♦♦ 
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OMMOV 

****A1 ********* 

* * 

* ENTER * 

* * 
*************** 



OMGCC 

****A2********* 

* * 

* ENTER * 

* + 
*************** 



DMGINP 

****A3********* 

* * 

* ENTER * 

* * 
*************** 



* MOVE DATA • 

* * 

* * 

4**************** 



*****B2********** 



***************** 



* SAVE ARR TO * 

* RETUHN TO * 

* CALLER * 

* * 
***************** 



***************** 



*****C2** ******** 



***************** 



*****CA********** 

* * 

* SET NULL * 
>* MESSAGE * 

* INDICATOR * 

* * 
***************** 



DMMVD 

V 

****E1 ********* 

+ * 

+ RETURN * 

* * 

*************** 

TO: CALLER 



* SET BUFFER * 

* READY FOR * 
♦TRANSMIT X # 84» * 

* * 

***************** 



V FF/ll/Fl 

*****F3********** 

*ascios * 



***************** 



*****G3********** 



***************** 



GORETN 

V 

****H3 ********* 

* * 

* RETURN * 

* * 
*************** 

TO! CALLER 
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MSeSCH/BSWAlT 

* + 

* ENTER * 

* * 
*************** 



**** 




* 




Bl *- 


> 


* 




**** 


V 



*****B2* ********* 



***************** 

I**** 

->* B5 * 

* * 

**** 



* 84 * . 

* * I 
**** | 

PWOCMP V 

*****B4********** 

* * 

* POST OTF * 

* OPERATION *- 
♦COMPLETE X«40' * 

* * 
***************** 



**** 

* * 

* AS *-— . 

* ♦ | 

PWOPAC V 

*«***A 5**+* ****** 

* * 
+ POST DTF * 

* OPERATION * 
♦ACCEPTED X»00« ♦ 

* ♦ 
***************** 

**** 

* * 

* B5 ♦-> 

* * 
**** 

PWEXIT V 

♦****B5********** 



***************** 



* FIND I OB 



***************** 



♦ ♦** 

* * 

* D2 * « 

PWCLOS V 

*****o ?*****+**** 



****C5********* 

* * 

* EXIT * 

* * 
*************** 

to: caller 



***************** 



El *. 

♦ * *. 

108 

AVAILABLE 



**** 

* * 
->* E5 * 

* * 
**** 



.* DATA *. YES 

. MOVED AND .* 

*• PUT EOW •* 



* F2 + -> 



**♦* 
PWXOTF V 

**+**F2********** 

♦ CALL LINE * 
♦INITIALIZATION * 

>* TRANSIENT IN *- 

♦ OTF * 

♦ * 
***************** 



*****F4**** ****** 



***************** 



***************** 



>* * LOAD * 

* * REQUESTED * 

* * TRANSIENT * 
*************** 



.* TRUNCATE 

*. INDICATOR 
*. ON • 



ERROR 
POSTED IN 

toe . 



+* + * 
* 
* F2 



* POST IDB * 
->* COMPLETION TO * 

* DTF COMP * 

* * 
***************** 



PWFRST 

*****J 2* ********* 
*SET ERROR CODE * 

* IN DTF. SET * 
>+ FIRST IND ON. * 

* REPLACE DTFCS * 

* * 
***************** 



V 


**** 


PWNOER •*. 


PWBSOM GG/Ol/Al 


Kl *. 


*****K2* ********* 


.* *. 


**$BSMS * 






*. ■* 


>* PROCESS THIS * 

* REQUEST * 


*. .* 


* * 


*. ■* 


***************** 


* TES 


1 


\ **** 




| * * 


f 


->* B5 * 


V 


* * 


**** 


**** 


* * 



•* NODATA *• NO 


*• X , 47 l •*- 




*. POSTED .* 


| 


*< •* 


1 


*■ .* 


V 


* YES 


*** 






* 






* B5 






* 






*** 


V 




*****K4********** 




* * 




* POST IOB TO * 




* DONE * 




* * 




* * 




***************** 




**** 




| * * 




->* 85 * 




* * 






**** 





*****HS ********** 

* * 

* MOVE IN THE * 

* TRUNCATE * 
♦COMPLETION CODE* 

* ♦ 
***************** 

I**** 
* * 

->* 85 * 

* * 

**** 



Chart RH. Wait ($CC4M1) 



9-190 



MSBS10/B3CI0S (ASYNCHRONOUS ENTRY) 

****A1 ********* 

* * 

* ENTER * 

* * 
*************** 



IOSINT (SYNCHRONOUS ENTRY) 

****A3 ********* 

* * 

* ENTER * 

* * 
*************** 



*•** 

* * 

* Bl *-> 

* * 
**** 

IOSAGN V 

*****£ 1 ********** 

* SIO CANCEL * 

* TIMEOUT. * 

* DISABLE * 

* INTERRUPTS * 

* * 
***************** 



**** 

* ft 

* 01 * 



**•* 
IQSBSY V 

*****D1 ********** 



****** *********** 



*****B 2* ********* 



***************** 

I**** 
* * 

->* 84 * 

* * 

**** 

*****C2* ********* 



***************** 



V PP/01/A3 

*****t>2* ********* 
*10SINT * 



***************** 



*****E2********** 



*• 


• * 


V 


***************** 


* NO 


**** 


| 




* * 


] **** 






* 81 * 


1 * • 






* * 


->* DI * 






**** 


* * 
**** 


IOSARR 








V 






****F] ********* 




* 


* * 




* 


* RETURN * 




* 


* * 




* 


*************** 




* 


TO! t 


:aller 







*****E 3*** ******* 

* SET! * 

* CAR-IOBDAT. * 
*SAR«CAR*BUFFER * 
•LENGTH, Q CODE * 

* IS T/R * 
***************** 



**** 

* * 

* B4 *-— « 

* * | 

**** 



♦SET COMPLETION * 
— >* CODE TO *< 

* TRANSMIT * 

* * 
***************** 



*****C4** ******** 
+ * 

* * 

* LID AND SIO * 

* * 

* * 
***************** 



***************** 



****E4********* 

* * 

* RETURN * 

*************** 
TO! CALLER 



TAR=CAR+9 * 

* * 

* * 
***************** 



*****G4 ********** 

* PUT ACK INTO * 

* BUFFER. SYN'S * 

* IN LEAD * 

* GRAPHICS AREA * 

* * 
***************** 



♦INSERT OLE STX * 

* IN FRONT OF * 
+ DATA * 

* * 

***************** 



*****C5********** 



***************** 



***************** 



E5 *. 

.* CLOSE * 

TIME OR 

NULL 

.MAESSAGE 



.♦END OF * 
CONVERSA- 
TIONAL 
BLOCK 



*****G5********** 



***************** 



• • 


**** 


CHANGE *• NO 


* 


ACKO TO .+ 


->* B4 


ACK 1 • * 


* 


• .* 


**** 



*****, 14** ******** 

* * 

* + 
•CHANGE TO ACK1 * 

* • 

* * 
***************** 
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M5BSIH 

****A1 ********* 

* * 

* ENTER * 

* * 
*************** 



**** 

* * 

* 82 * . 

* * I 
**** | 

V 
*****B2** ******** 



*****B4********** 



* SENSE STATUS 



***** 

♦ 002* 

+ J2* 

* * 



***************** 



***************** 



***** 
*002* 
* J2* 



*****B5** ******** 



*****C1 ********** 

* * 

* * 

* FIND I OB *- 

* * 

* * 
***************** 

**** 



* Dl * 1 

* * | 
**+* V 



**** 

* * 

* B2 * 

* * 
**** 



**** 
• NO * * 

.* >* B3 * 

* * 

**** 



* TRACE * 

* * 
***************** 



***+ 

* + 

* 01 * 

* * 
**** 



*****C3 ********** 

* * 

* * 
♦SENSE REGISTERS* 

* * 

* * 
***************** 



****D4********* 

* * 

* EXIT * 

* * 
*************** 



***************** 



*****C5 ********** 

* SET DATA * 

* AVAILABLE BIT * 

* UPDATE AND SEND* 

* ACK * 

* * 
***************** 



TO: DD/01/03 



♦INCREMENT TIME * 

* OUT COUNT IN * 

* IOB * 

* * 
***************** 



****E4********* 

* * 
>* EXIT * 

* * 
*************** 

TO! DD/01/C3 



***** 

♦ 002* 

♦ B2* 



***** 

♦ 002* 

* 02* 



TIMEOUT *. 

LIMIT 
REACHED .* 



****F 2+ ******** 

* * 
>* EXIT + 

* * 
*************** 

TO? OD/01/A3 



****F4*** ****** 

* * 
>* EXIT * 

* * 
*************** 

to: DO/01/A1 



♦CHAIN DELAY IOB*<- 

* * 

* * 

***************** 



***** HI ********** 

* * 

* * 

* INSERT TTD * 

* * 

* * 
***************** 



****G 2* ******** 

* * 

* ENTER * 

* * 
*************** 

FROM! DD/01/D5 



****G4 ********* 

* * 
>* EXIT * 

* * 
*************** 

TO: DO/0I/F2 



***************** 





****J2********* 


*• NO 


* 


.* — t 


* EXIT 


* 1 


* 


1 


*************** 


V 




***** 




♦ 002* 


to: dd/03/ , a:3 


* G2* 




* * 





*****K1 ********** 

* * 

* * 

* INSERT WACK * 

* * 

* * 
***************** 



***** 

♦ 002* 

* B2* 



•* 1ST *. 
,* CHARACTER *. NO 

STX OR . * 

*■ 50H .* 



**** 

* * 

* AS * 

* * 
**** 



****J 5 ********* 

* * 
>* EXIT * 

* * 
*************** 

TO: DD/02/B2 



***** 

*002* 

* G2* 

* * 
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INRUAK 

****A2*******#* 

* * 

* ENTER * 

* * 

*************** 



01-J3 



* 05 *-> 



FROM: DD/04/F5 



*****B1 ********** 



B2 *• 

* * 

POLLING 



***************** 



***************** 

**** 

* 001* 

* 05 *-> 

* * 
**** 

INRAK2 V 

*****D2** ******** 



***************** 



INCKNX 

****Ft ********* 

* * 

* ENTER * 

* * 
*************** 

FROM: DD/03/F4 



**** 

* * 

* ,12 * 

* * 

**** 



.* I OB 

■ REAOY FOR 
*.OATA XFER. 



01 -J 1 * 

**** 

*oot* 

* Kl *-> 



***************** 



INSTRT 

****G1 ********* 

* * 

* ENTER * 

* * 
*************** 

FROM: DD/03/J3 
OO/04/B5 

MSBIOS 

****H1 ********* 

* * 

* ENTER * 

* * 
*************** 



*****G3 ********** 



***************** 



**** 

* * 

* J2 * 

* * 
**** 



INB0S2 V FF/01/A3 

*****H2* ********* 
*IOS * 

*—— ———--—* 

* START THIS * 

* BUFFER * 

* TRANSMISSION * 
***************** 

* 01-B4 



****j) ********* 

* * 

* ENTER * 

* * 
*************** 

FROM: DO/01/G4 
DD/02/H4 
DD/03/F5 
0D/05/K4 
DD/05/-H5 



* Bl *-> 

* * 

**** 

V 
*****j 2* ********* 



***************** 



****K 2* ******** 

* * 

* RETURN * 

* * 
*************** 

TOT CALLER 



Chart RJ (Part 2 of 2), Interrupt (SCC4M1) 



Program Organization 9-193 



H0WE3R 

****A1 ********* 

* * 

* ENTER * 

* * 
*************** 

FROM: CC/01/F4 

**** 

* * 

* Bl * -» 



***+A3********* 
+ * 

* ENTER * 

* * 
*************** 

FROM: CC/01/F2 



***** 

*003*02-E4 
* S3* 



**** 
BG 



.* LOST *. 

.♦CONNECTION *• 

•OR DISCONNECT. 

*. TIMEOUT .* 



*****B2* ********* 



***************** 



*****C2* ********* 



****** *********** 



D2 *< 

* * 

POLLING 



****C3********* 



*************** 



PRMERR V .*. 

*****B4********** B5 *• 

* SET PERMANENT * •* *• 

* ERROR. SET * ■* DISABLE *• YES 
->* ABORT ONLY, * >*. LINE .* » 

1* PURGE IOB*S. * *. .* I 

♦SET OFF ACTIVE * *. .* | 

***************** *. ,* V 

** * NO **** 

* * I * * 

* 84 * I * E4* 

* * | * * 
**** — — _._ **** 

V 

■ *■ 

C4 *• *****C5**« ******* 

•* *■ * * 

.* *. NO *SET UP TTO-EOT * 

*. GET .* >*ABORT SEQUENCE * 



from: cc/oi/E4 



***** 

*005* 
* G2* 

* * 



****D3********* 

* * 

* ENTER * 

* * 
*************** 

from: cc/oi/04 



WRTEOT V FF/01/A3 
*****D4********** 
*MSBSIO/BSCIOS * 



* WRITE EOT * 

* * 

***************** 

*•** 

* * 

* E4 *-> 



***************** 



****D5* ******** 



*************** 

TO: CC/0I/G2 



*004* 
* E2* 

***** 



*• 


YES 


TIME-OUT 


*- — -» 


■ * 


j 


*• .* 


I 


*. .* 


V 


* N3 


***** 




♦002* 




* B3* 



* no **** 

**** * * 

j *002* * Jl * 

->* D3 * * * 

* * **** 
**** 



*****£5********** 



***************** 



NO •* 




DATA 




*. 


YES 


— *. 




CHECK 




.* 




I * 








* 


1 


! 


* 


• a 


* 




1 


V 




*. .* 






V 


*** 




* 






**** 


* 










* 


B4 * 










* HI 


* 










* 


*** 










**** 


LSTOTA 












*****G1 ********** 





****F2********* 

* 
ENTER * 

* 
*************** 

from: cc/o 



****F3********* 

* * 

* ENTER * 

* * 
*************** 

1/H5 FROM CC/01/F2 



***************** 



* E2 *-> 



*****H2* ********* 



3-E4 
***** 
*003* 
* D5* 



****H4********* 



*• * * 
* NO 
**** 
03-M3*004* 
04-B4* H3 * 
04-04* * 
**** 
WRTENQ V 

****«,! i ********** 

*SET CAR«TAR-I . * 

* PUT ENQ IN * 

->*BUFTER, SET SIO*- 

I* FOR T/R * 
* * 

***************** 



***************** 



***** 
*002* 
* E3* 



***** 

♦ 002* 

* E3* 



*************** 

TO! CC/02/H1 
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***** 

*001* 
* El* 



RDTEXT 8B 

****B2* ******** 

* * 
+ ENTER * 

* * 
*************** 

from: CC/01/J5 



***** 

*005* 

* ca* 



**** 

01-E2*003* 

* oz *-> 

* * 
**** 

V 

*****03**** ****** 

* * 

* SET CAR=TAR» * 
>*SET SIQ FOR RCV* 

* ONLY * 

* * 
***************** 



* Jl *-> 



*****C4 ********** 
♦SET CAR-TAR-1. * 

* PUT ENQ IN * 
->*8UFFERt SET ENQ* 

* INDICATOR ON* * 

* SIO«=T/R * 
***************** 



RETRY 
COUNT AT 
• MAXIMUM 



***** 

• 001* 

• 84* 



* SET T/R OP* * 

♦INSERT REQUIRED* 

* CHARACTER IN *- 

* BUFFER * 

* * 

***************** 



*****F4********** 



***************** 



* RETRY ERROR * 

* RECOVERY * 

* PROCEDURE * 

* * 
***************** 



****H4********* 

* * 

* EXIT * 

* * 
*************** 

CC/02/H1 
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ACKERR 

****A3********* 

* + 

* ENTER * 

* * 
*************** 

FROM! CC/01/-M2 



B3 *• 

* * 

GET 



***** **** 

*004* * * 

* B3* * C4 * 

* * * * 

* **** 



*****C1 ********** 

* * 

* * 
♦SET T3 DISABLE #<- 

* * 

* * 
***************** 



***** 

♦ 001* 

* HI* 



* NO * 
**** I 

♦ 004*. I 

* H3 *->( 

* * I 
**** V 

KNOCK .*« 

D2 *. 
• * *« 
. * ENQ *. NO 

*. RECEIVED .* . 

*• .* V 

*« •* ***** 

*. •* *002* 

* VES * 03* 

i_ ;i 

V 
TTDCHK • *. 
*****E2********** E3 *■ 

* . * .* * 
♦SET ERROR COUNT* YES •* TTD 

* TO *< ♦• RECEIVED 

♦ * *, 

♦ ♦ ♦• ■* 
***************** *, ,* 

* NO 



***** 
+004* 
* F3* 



*****E4********** 

* ♦ 
*SET NORMAL EOFi* 

* POST NORMAL * 

* COMPLETION * 

* * 
***************** 

1**** 
*00l* 
->* H4 * 

* * 

♦ *♦♦ 



♦ **** 

♦ 005 + 

♦ CI* 



***** 

*004*04-G4 
* F3* 



*****D5*** ******* 



***************** v 
***** 

♦ 001* 

* H4* 
* * 



•* WACK 







*. •♦ 


* 






♦ . •* 








♦ • .♦ 








* NO 








♦ ♦♦* 1 








*004* f 








* Dl *->l 








* * f 








**** V 




• *• 




ERRST .*. 




G2 *■ 




63 *• 




.+ *. 




• * *. 




YES .* TEXT «. 
, — *• SENT • 
1 ♦> • # 




YES • * IS ** NO 






•■POSSIBLE •* 


V 


I ♦. .♦ 




*• .* 


***** 


V *. .* 




*. •* 


*001* 


**** 


NO 




* 


* B4* 


* ♦ 






**** 


* * 


♦ H3 * 






* * 


* 


♦ ♦ 






* H3 * ■ 




**** 






* * | 




V 




**** V 




.♦. 




ERRTRY ,*, 




H2 *■ 




H3 *. 




.* *. 




• * *. 




.* NAK *. 
*. SENT • 


NO 


•* *• NO 





***** 
*001* 
* HI* 

* * 



****F4 ********* 
* 
EXIT * 

+ 
*************** 

TO: CC/02/E1 



***** 

*001* 

* Jl* 



****J3 ********* 

* * 

* EXIT * 

* * 
*************** 

TO: CC/02/Ft 
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***** 

♦ 003* 

* B3* 

* * 







*. 


YES 


.* 


WRONG 


POLLING 




* — K 


*. 


ACK 






.* 


I 


*. 


RECEIVED 




• * 




1 




*. ■ 


*• 


* 




V 




*. .* 


* 

1 


NO 




***** 

*005* 
* CI* 

* * 
* 




* NO 

1 


V 










V 


• • 






NAKCHK 


• *• 



BA *. 

.* ENQ- *• 

SENT 

INDICATOR 



***** 
*001* 
* Jl* 



****B5********* 

* * 

* EXIT * 

* * 
*************** 

to: CC/02/F1 



**** 

* * 

* 82 * 

* * 
**** 

WACKCK 



*****F)1 *** ******* 



♦INCREMENT NAK- * 


YES •* FORWARD *• 


•* WACK 


* RECEliVED * 


— *• ABORT • * 


*• RECEIVED 


* COUNTER * 


I *• ■* 


*• 


* * 


1 *. .* 


*a • * 


******** A******** 


V *• •* 


*• •* 


I 


***** * NO 


* NO 




•001* 




1 


f 


* 04* 






V 


• * 




| 


***** 


* 






♦ 003* 






V 


* 1,3* 






RVICK •*• 


* * 


V 


E3 *• 


rt 


****E2********* 


.* 




* * 


• * RVI 




* ex i t * 


*• RECEIVED 




* * 


*. 




*************** 


*. • 

*. .* 




to: CC/02/E1 


* NO 
**** | 
*003+ 1 

* DA *->l 

* * | 
**** V 

EOTCHK .*• 

F3 *. 
■ * 
.* EOT 








*. RECEIVED 



*****D4********** 



***************** 



* SET RECORD- * 
>* AVAILABLE * 

* INDICATOR ON * 

* * 
***************** 



**** 

005* 

CI* 



***** 
*001* 

* Jl* 

* * 





*. 


POLLING 




1 


*. 


* * 


■ * 
■ * 




V 




* 


• * 




***** 






* YES 




*003* 






I **** 




* DS* 






1 +005' 




* * 






->+ F4 


* 


* 






* 4 

**** 




EOTRCC 










*****G4** ******** 




* 






* 


YES 


* 
— >*SE1 


OF 


= ACTIVE 


* 
* 



****E5********* 

* * 

* EXIT * 

* + 
*************** 

TO: DO/05/H5 



****F5********* 

* * 
->* EXIT * 

* * 
*************** 

TO: CC/02/A2 



***************** 



***** 

*003* 
* 05* 

* * 



***** 

*003* 

* 02* 

* * 



***** 

• 001* 

* Jl* 

* * 
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03-C4 
***** 
*004* 
* C2* 



PLNEG 

*****CI ********** 



***** 

♦ooa* 

* B3* 



PLTHOT V 

*****C!»* ********* 



***************** 



* * Dl * 
***** * 
**** 
PLRTY 



***************** 



*****D2********** 



***************** 



*****F1 ********** 

* * 

* * 
*SAVE THE NEW ID* 

* * 

* * 
***************** 



*****61 ********** 



♦SET UP EOT-SYNE* 



***************** 



***************** 



YES «* SKIP 

, — *. THIS ENTRY 



**** 

* * 

* Dl * 

* * 
**** 



*****F2********** 



***************** 



+****G2+ ********* 



***************** 



E3 *. 

• * *. 

ANY + 
TERMINALS 

• ACTIVE .* 



*****F3********** 



***************** 



PLWRPL 

*****E5********** 



***************** 



**** 

PLPSTN 

*****P4********** 

* * 

* SET POST TO 44-* 

* MEG RESP * 



***************** 



WRAP *. 


RETRY . 


REACHED •* 


• -* 


*. .* 


* NO 


| **** 


1 * 


->* Ci 


* 


**** 



PLWPOL 

V 

****J2********* 

* * 

* EXIT * 

* 4 
*************** 

TO: CC/02/F4 



->* POST TO USER 



***************** 



*****J4 ********** 



***************** 



****K4 ********* 

* * 

* EXIT * 

* * 
*************** 



to: CC/02/H1 
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$CC4IG 
Chart OR 



h Input i 



-o 

3 

CO 

3 
o 



$CCCOM 



©CURTB 



TCB 



c 



TCBSAV 



TCBARR 



TCBXR1 



XCBXR2 



PLCA 



XR1SV 



RPG II file 



FLENUM 



Close 
• CLOSZ 



XR2 



RPG II halt/syslog 
parameter list 



IOCB 



DTFADR 



Diagram 9P.1 010. $CC4HF 



RPG II DTF 



DTFCC 



RPG II error 
code 



Error code 
table 




Process i 




3==>Q 



Check RPG II error code: 
— If X'40' check completion code in 
DTF. 

• If completion code not equal to 
X'41', use it as error code. 

• If completion code equal to 
X'41 ', soft abort the user pro- 
gram. 

Locate RPG II error code in table and 
move stick light values to halt/syslog 
parameter list. 

If error code X'30' to X'39' inclusive, 
move file number from RPG II file to the 
*halt/syslog parameter list. 

4 Exit to issue RPG 1 1 halt/syslog request. 



■Output i 



RPG 1 1 error 
code 



• Return 



TCB 



TCBARR 



RPG II halt/syslog 



> $CC4H1 
* 9P.1020 



CO 

to 



o 

o 



■ Inputi 



XR2 



$CC4IG- Chart OR 
SCC4HF-9P.1010 



Hal t/sy slog 
parameter list 



HSFUNC 

• HSYMSG 

• HSHALT 



1 



HSCMID 

HSSUBC 

HSHC1 

HSHC2 

HSFUNC 

e HSHALT 

• HSYMSG 

• HSPLLN 



HSFUNC 
• HSWLST 



Component 
ID table 



HSOUT@ 



HSFUNC 

• HSHALT 
HSRPLY 

• HSCNDH 



Output 
record 



Communication 
area 



@CURTB 



TCB 



TCBTSK 
• TCBSYT 



TCBSAV 



TCBARR (current) 
TCBARR (previous) 



Process i 



1 If secondary halt, go to 6. 



I\S 2 If output only, go to 5. 
I 3 Build non-output only message area. 



r 



4 If wait specified, go to 9, else go to 
6. 



^^5 Build output only message area. 

— Backspace and delete rightmost 
blanks. 



6 Issue message. 
Z^^ 7 If no halt or conditional halt, go to 9. 



8 — If halt for system, exit. 
— If halt for users, exit. 



1^ 9 Return analysis: 

— If halt/syslog request not from DSM 
transient, return at TCBARR+1. 

— If from DSM transient, locate return 
point ->■ plug into $CC4IG and 
modify TCBARR to return into 
$CC4IG to branch to return point. 



■■Output! 



-»J SCC4IS I^L. 
Chart PP Syn 



I 



CPHALT 
Chart OV 
via 

location 
0000 

$CC4HH 
Diagram 
§ 9P.1030 



Communication 
parameter list 



H1DTA1 



Non-output only 
message area 



HSMSG# 

HSU 

HSI2 

HSH1 

HSH2 

HSS1 

HSS2 



Output only 



message area 



TCB 



TCBARR 



SCC4IG 



Diagram 9P.1020. SCC4H1 (Models 8, 10, and 12) 



Ret 



i Input i 



y 

o 



3 
O 



XR2 



$CC4H4-9M.0345 
$CC4IG- Chart OR 
$CC4HF-9P.1O10 



Halt/syslog 
parameter list 



HSFUNC 

• HSYMSG 

• HSHALT 



wr 



Process ^mhh^hhm^bm 
1 If secondary halt, go to 6. 



Q— \S' 2 If return from $CC4H4, go to 5. 



HSCWI1D 

HSSUBC 

HSHC1 

HSHC2 

HSFUNC 

• HSHALT 

• HSYMSG 

• HSPLLN 



HSFUNC 
• HSWLST 



Component 
ID table 



HSOUT@ 



HSFUNC 

• HSHALT 
HSRPLY 

• HSCNDH 



Output 
record 



Communication 
area 



@CURTB 



TCB 



TCBTSK 
• TCBSYT 



TCBSAV 



TCBARR (current) 
TCBARR (previous) 



3 



^ 3 If output only, go to 7. • 

I I 4 If halt request ■■■ 



5 Build non-output only message. 



f : 



wait specified, go to 1 1, else go to 



*^ 7 Build output only message area. 

— Backspace and delete rightmost 
blanks. 



8 Issue message. 
— ^ 9 If no halt or conditional halt, go to 11 



10 — if halt for system, exit. 
— If halt for users, exit. 



«^ 1 1 Return analysis: 

— If halt/syslog request not from DSM 
transient, return at TCBARR+1. 

— If from DSM transient, locate return 
point ->• plug into $CC4IG and 
modify TCBARR to return into 
$CC4IG to branch to return point. 



^> $CC4I 1 4 



■ Output i 



$CC4IS 
Chart PP 



J^ 



I 



CPHALT 
Chart OV 
via 

location 
0000 

$CC4HH 
Diagram 
# 9P.1030 



Communication 
parameter list 



H1DTA1 



Non-output only 
message area in 
second half of 
transient area 



HSMSG# 

Hsu 

HSI2 

HSHH1 

HSS2 

HSIWDC 

HSHLT 

HSHH2 

HSS2 



Output only 



message area 



TCB 



TCBARR 



$CC4IG 



=w 



to 
o 



Diagram 9P.1025. $CC4H1 (Model 4) 



Return 



to 

O 

NO 



■ Input i 



$CCCOM 



#KMFFF 
• #KMHLT 



TAXPRM 



XR2 

~r 

Halt/syslog 
parameter list 



HSHC1 



HSHC2 



SCCCOM 



@CURTB 



Halt table 



Halt 

conversion 

table 



-»-TCB 



TCBSAV 



TCBARR 



TCBARR 



TCBTSK 
• TCBDSM 



$CC4H1 
9P.1020 



Process i 



J 



I' — - 

T 



f> 



2 If halt is to cause user program can- 
cellation, go to 7. 

3 Convert halt to stick light equivalent 
and issue HPL. (On Model 4, halt is 
obtained from TAXPRM. I 

4 If this halt has secondary halt, set 
indication in $KMWK. 

5 Take lowest option to the halt. 



■— 1^6 Return analysis: 

— If not x controlled to by DSM tran- 
sient, add 1 to TCBARR. 

— Else locate return point and plug into 
branch in $CC4IG. 
Then add 8 to TCBARR to return 
to SCC4IG at the plugged branch. 
Go to 9. 



I I 



Cause user program to be cancelled and 
return to$CC4IG. 



J^ 8 If program using DSM transient area, 
free the transient area and issue general 
post. 

9 Return. 



■ Output i 



=>H 



$CC4PS 
Chart OJ 



SKMWK 



#KMFFF 
• JKMHLT 



Halt/syslog 
parameter list 



HSRPLY 



$CC4IG 



BXXXX 






TCB 



TCBARR 



TCBTSK 
• TCBDSM 



Diagram 9P. 1030. $CC4HH 



Return 



$CC4IG 
Chart OR 




Process i 



T3 

o 

CO 

3 
O 



Return analysis: 

- If not entered (XCTL) from DSM 
transient, add 1 toTCBARR. 

— Else locate return point and plug 
into branch in $CC4IG. 

Then add 8 to TCBARR to return 
to $CC4IG at the plugged branch. 



J^ 2 If output only request, go to 5. 



Build non-output only message area. 



r-J f7=^ 4 Checl 



Check for halt: 

— If no halt, go to 6. 

halt, but acceptable halt from 

MLMP IOCS, take automatic option 

and go to 7. 

If halt but not acceptable, 

exit. 



5 Build output only message area. 

Backscan and delete rightmost blanks. 



6 Issue message to the console. 



r 



Output i 



TCB 



TCBARR 



$CC4IG 



BXXXX 



Message 
data area 



H2DTA1 



7 Return. 




o 



Diagram 9P.1040. $CC4H2 (Models 8, 10, and 12) 



Return 



O 



■ Input i 



Message data 
area 



• HSINDC : 
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Note: $CC4H4 uses the last half of $CC4H2 which 

is in the transient area when $CC4H4 is loaded. 



Diagram 9P.1045. $CC4H2 (Model 4) 
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JS 1 If returning from $CC4H4, 
i go to 7 . 

"~"fj* 2 Return analysis: 

— If not x controlled to BYDSM trans- 
ient, add 1 to TCBARR. 

— Else locate return point and plug 
into branch in $CC4IG. 
Then add 8 to TCBARR to return 
to $CC4IG at the plugged branch. 



3 If output only request, go to & 

4 Build non-output only message area. 
I 5 If no halt, go to 9. 

"tf^ 6 Exit to convert to Model 4 stick lights. 



7 If halt, but acceptable halt from MLMP 
IOCS, take automatic option and go 

toio. 

— If halt but not acceptable, go to 
CCP halt routine 1234 primary 
and BCD 1235 secondary halt. 



£> 8 Build output only message area. 

Backscan and delete rightmost blanks. 

9 Issue message to the console. 

10 Return. 
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Get main 
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Chart QA 
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Process i 



^ 1 If operation involves invite input: 
p— 1^ — Indicate request key can be enabled. 
— If no put, post requestor and return. 



>m 



2 If system put no wait: 

— Attempt to get hold buffer. 

— If Getmain fails, indicate this in 
parameter list, go to 3. 

— If Getmain works, move para- 
meter list and record area to 
hold buffer and post requestor. 



3 If operation involves put or put no 
wait, add it to console output queue. 



4 If operation is must complete before 
CCP can resume, exit. 
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Diagram 9P.2000. $CC4K1 (Models 8, 10, and 12 Only) 
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Process i 



1 Disable the keyboard. 

2 Indicate console busy with prefix. 



■^ 3 Prepare to issue output to console: 

— Buiid prefix in console work area. 

— Build console IOB in this module 
(for the prefix). 

4 Set up console IOB to print prefix. 

5 Build post prefix IOB in console work 
area. 



6 Start the printing of the prefix. 

7 If $CC4KA in control, exit. 
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Diagram 9P.2010. $CC4K2 (Models 8, 10, and 12 Only) 
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Process i 



1 If no error condition, go to 8. 

2 If hardware error or completion of 
**FORM** message, go to 6. 



1^^ 3 If output complete, go to 8. 



4 If end of line, issue carriage return and 
goto 12. 

5 If non-printable or end of forms, exit. 

6 Issue halt. 

7 If this is input operation, go to 12. 



^^ 8 If no parameter list, go to 12. 



I__r> 9 Dequeue the parameter list. 
f — Freemain if necessary. 

—^ 10 Post if necessary. 

I^Zj)> 11 If operation involves input, queue on 
| console input queue. 

12 If $CC4KA in control, exit. 
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Diagram 9P.2020. $CC4K3 (Models 8, 10, and 12 Only) 
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1 — If non-printable character or in \^m 

process of printing "FORM**, %/=- 
print next character. 
— If translator check during LIO, 
exit. 

2 If first indication of end of forms 
condition, start "FORM** message 
to the console. 



^ 3 If $CC4KA in control, exit. 
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Diagram 9P.2030. $CC4K8 (Models 8, 10, and 12 Only) 
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■ Processi 



1 Reset the keyboard. 

^^ 2 Set up the console I OB for input. 

3 Blank the input buffer. 

4 Enable the console for input. 
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Diagram 9P.2040. $CC4K5 (Models 8, 10, and 12 Only) 
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1 If input OP end not caused by end key, 
■ exit. 

[ 

I ^*? If input is reply, exit. 

program request: 

— Getmain for hold buffer. 

— If Getmain fails, exit. 

— If Getmain succeeds, move data to 
hold buffer. 

4 Build parameter list in the console TUB 
to represent the command input. 

5 Queue the console TUB onto the com- 
mand processor input queue and post 
the command processor. 
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Diagram 9P.2050. $CC4K4 (Models 8, 10, and 12 Only) 
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£ 1 Search the console input queue to find 
parameter list for this reply. 

2 If not found, set TAXPRM and exit. 

3 Dequeue the parameter list off the 
console input queue. 

4 Post the user. 
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5 5 Move the data to the user record area. 
6 Set user parameter list. 
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Diagram 9P.2060. $CC4K6 (Models 8, 10, and 12 Only) 
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Determine the error condition and take 
appropriate action: 

— If no buffer or reply to invalid task 
ID or cancel key or input too long, 
then issue message to the console. 

— If carriage return key pressed, issue 
carriage return. 

— If hardware error, halt before 
returning. 
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Diagram 9P.2070. $CC4K7 (Models 8, 10, and 12 Only) 
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$CC4K2-9P.2000 
Any $CC4CM transient 
which issues a message 
to the console 




Process i 



1 If the console I/O has been scheduled, 
go to 6. 



^ > 2 If exclamation point required, indi- 
cate this in parameter list. 

3 If console buffer available, exit. 



/>! 4 Attempt Getmain for hold buffer: 



I 



— If it fails, exit. 

5 If Getmain works: 

— Build parameter list. 

— Move message to hold buffer. 

— Chain parameter on console output 
queue. 

"p^^ 6 Return analysis: 

— If $CC4KA in control, exit. 

— If so indicated, transfer control to 
another transient, 

— Else return. 
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Note: The message data must reside at a location 
at least 258 bytes into the transient area. 



Diagram 9P.2080. $CC4K9 (Models 8, 10, and 12 Only) 






CO 



m Input i 



$KMWK 



#KMSWT 

• #KMACT 

• #KMSCH 



#KMCPL 



#KMBFR 



data 



length 



Message 
area 



$KMWK 



# KM DSP 



#KMSWT 
• KMXXE 



#KMXCT 



$CC4K9 - 9P.2080 
$CC4KA-9P.2100 



Jj?' 1 Add exclamation point to prefix if 
specified. 

2 Indicate console busy and no parameter 
list to dequeue on OP end. 



fJ i j 8, 3 Move the data to the output buffer if 

— — J*"! the console buffer is to be used. 

"J 

=^> 4 Build the console IOB. 

5 Start the output. 



r— ^^ 6 Return analysis: 

— If $CC4KA in control, exit. 

— If so indicated, transfer control to 
another transient. 

— Else return. 
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Note: The output buffer is either the console 
buffer or the message area itself in the 
second sector of the transient area. 



Diagram 9P.2090. SCC4KB (Models 8, 10, and 12 Only) 
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If first time into this routine for the 
current request, determine if the con- 
sole is busy. 

— If busy with input: 

• Reset the keyboard. 

• Issue **ABRT*\ 

• On interrupt, go to R2. 

— If busy with output: 

• On interrupt, go to R2. 

— If not busy and parameter list in 
console output queue, go to Rl . 

— If not busy and no parameter lists in 
output queue, exit. 

2 If not first time and 

• Console busy, go to R2. 

• Console not busy, go to routine 
indicated. 

— Rl 

• Indicate to go to R2 on next entry. 

• Exit. 

— R2 

• Indicate to go to R3 on next entry. 

• Exit. 

— R3 

• Indicate to go to Rl on next entry. 

• Exit. 
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Diagram 9P.2100. SCC4KA (Models 8, 10, and 12 Only) 
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£? 1 If return from $CC4K9, go to 9. 



■pT^ 2 If MLTA completion code is NAK to 
addressing, go to 4. 



I^> 3 Unless this is return from $CC4M9, 

transfer control to $CC4M9 (who always 
returns). 



4 Analyze the MLTA completion code: 

— If the MLTA line is closed, exit. 

— If the completion code is invalid, 
exit. 

— If buffer busy, exit. 

— Plug the internal return code with 
the CCP value. 



5p 



5 Clean up the TUB: 

— Reset typewriter position. 

— If error on invite, reset invite 
scheduled bits, and Freemain. 



$CC4M9 
9P.2210 



r 

V 



$CC4ME 
9P.2220 



To CPHALT 
Chart OV via 
location 0000 

$CC4MC 
9P.2230 



CMFMRT 
Chart QQ 



■ Output i 



Communication 
parameter list 



^ PL$RTC 



TUB 

TUBCHR 
^i • TUB@SL 
y j • TUBNID 

TUBAT2 

• TUBUS 

• TUBMQ 



Diagram 9P.2200 (Part 1 of 2). SCC4MA (Models 8, 10, and 12 Only) 
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r-^^ 6 If error on input, zero effective input 
length. 



^^ 7 If error on get, clear the record area 
to blanks. 



H> 



8 Set up message: 

— Move terminal ID to message. 

— Move operation type to message. 

— Set indication so $CC4K9 will return 
to this transient. 

— Exit to issue message to console. 



9 Indicate to $CC4MD, OK to modify 
TCBARR. 
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Diagram 9P.2200 (Part 2 of 2). SCC4MA (Models 8, 10, and 12 Only) 
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£^ 1 Test for print trace enabled. 
If not, exit. 
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2 Find trace data in storage. 



£^3 Format trace data output to printer. 
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Diagram 9P.2210. $CC4M9 (Models 8, 10, and 12 Only) 
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^ I If return from $CC4K9, go to 5. 

> 2 Set up line closed message. 

3 Scan line queue and clean up all para- 
meter lists. 

— Post and Freemain as appropriate. 

— Place invite input on user TCB input 
queue if appropriate. 

4 Issue message to system operator. 

5 Scan TUBs and process offline any 
belonging to the closed line. 

— Post if appropriate. 

> - Free FSBs. 

— Issue terminal offline message. 

6 Clean up the LCB. 

— Freemain if necessary. 
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to Diagram 9P.2220. $CC4ME (Models 8, 10, and 12 Only) 
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1 Set TCBARR bump amount to 4. 

2 If buffer busy with write, go to 4. 

3 Have buffer busy with input. 

— Set TCBARR bump amount to 12. 

— Assure poll skip bit off for this ter- 
minal and on for all other terminals 
on the line. 

— Indicate to swallow input. 

— Issue read to the line. 

— If bad start code, exit. 



^* 4 Dequeue the parameter list in error. 



5 Requeue all parameter lists to the busy 
terminal at ihe end of the TP line queue. 



( 



Bv> 6 Add TCBARR bump amount to the 
TCBARR. 






=S>0 



Return 



MLTA 

IOCS 

entry 

point 

MLTI01 

(See note) 



^j MLTI01 
1 (See note) 

I CPHALT 
1^ Chart OV 

*^Pvia 



CPHALT 
Chart OV 
via 
location 
0000 



r 



Output i 



Module work area 



MD BUMP 



i^r 



Polling list 



SPFLG 
• SPSKIP 






SPTMA 




MLTA DTF 








$MDOPC 


$MDOSC 


$MDPLA 








LCBATR 
• LCBSWL 








LCBPLQ 









TCB 



*> TCBARR 



Note: See IBM System/3 Multiple Line Terminal 
Adapter RPQ Program Logic Manual, 
SY21-0527. 



Diagram 9P.2230. $CC4MC (Models 8, 10, and 12 Only) 
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— ^S 1 If return from $CC4K9, go to 9. 
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2 If Model 4 console display, turn on 
field light 6 and place console in ERP. 

3 If terminal is not to be placed into CCP 
error recovery, go to 9. 

™" J^ 4 Test for automatic bypass: 
■— |^ — Switched line disconnect. 

— Terminal varied offline. 

— Put wait in queue. 
If any of above, go to 6. 

5 Place terminal in CCP error recovery. - 

— Set status in TUB. 

— Save parameter list address in TUB. 

— Dequeue the parameter list. 

6 Set up message, indicate to $CC4K9 to 
return to this transient. 



Diagram 9P.2240. $CC4MD (Models 8, 10, and 12 Only) 



7 If OK to modify TCBARR, modify it 
now by previously calculated amount. 

8 Exit to issue message. 



1^9 If MLTA switched line, disconnect. 

— Modify TCBARR if appropriate and 
exit. 
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Set up MLTA line number in the 
message. 

If terminal in command mode, set indi- 
cation for $CC4K9 to transfer control 
to$CC4MF. 

Scan the line queue and clean up all 
parameter lists. 

— If current OP is put no wait. Free- 
main. 

— If wait operation, post the requestor 
and plug return code. 

— If invite input for terminal belonging 
to user program, queue up the TUB 
as input, post the user, and clear the 
record area. 

— If invite input for command proces- 
sor, replace parameter list in the line 
queue. 



4 Issue message to console, exit. 
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Diagram 9P.2250. $CC4MB (Models 8, 10, and 12 Only) 
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1 — Move primary name or first second- 
ary name to TUB. 
— Move terminal name to message. 



—^ 2 Clear any file specification blocks owned 
by the TUB. 



3 Exit to issue message to console. 
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Diagram 9P.2260. $CC4MF (Models 8, 10, and 12 Only) 
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1 Determine if abort worked. 



If abort failed, find stop invite to 
terminal which OP ended. 

— Freemain if appropriate. 

— if user stop invite, indicate stop 
invite failed and post. 

— If system stop invite, dequeue. 

All remaining stop invites in the 
queue are successful. 

— Find a stop invite in the line 
queue and dequeue it. 

— Find associated invite input and 
dequeue it. 

— Freemain if appropriate. 

— Post the requestor. 
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Diagram 9P.2270. $CC4SQ (Models 8, 10, and 12 Only) 
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T- Va 1 1^ not OP end f° r abort, set indication 
that had successful OP on TP line (i.e., 
switched line connected). 



■^ 2 If station control line, set all polling 
skip bits on. 



k>3 



Completion code analysis: 

— If the MLTA completion code 
indicates the line is closed, exit. 

— If the MLTA completion code 
indicates a switched line is dis- 
connected, exit. 
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^> 1 If entry is from $CC4K9, go to 
1 step 4. 
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Find TUB belonging to LCB. 
Determine that found TUB 
was running OLT. 
'Zero the OLT run bit 
Zero the OLT control byte. 



3 • Issue OLT ended message. 



Check MLTA IOCS com- 
pletion code to see if DTF 
has been closed. 
If closed, return to caller. 



• If line not closed, check for 
switched line. 

• If switched line, check for 
successful operation. 

If success, return to caller. 



If non-successful completion 
code on switched line, check 
connection status. 



7 • If line is disconnected, set 
bit in LCB. 
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Diagram 9P.2290. $CC4T2 
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Translate table 



Chart QC 




Process i 



1 Get address of translate list from 
TCB save area. 

2 Initialize internal work area. 



Translate loop 

3 Translate each input character from 
line code to EBCDIC: 

— Translate a character. 

— Resolve backspace if encoun- 
tered. 

„ — Move translated character to tar- 
get area unless beyond end of 
.target area. 

— If invalid character, use replace- 
ment character. 



4 If last character is carriage return, indi- 
cate this in return code and reduce 
length by 1 . 

5 Clear remainder of target area to blanks. 

6 Set up translate list for return. 
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$CC4CM - Chart QA 

Process i 




1 Plug internal return code. 



: OP in error was read, go to 5. 



^J^X 3 If operation was system put, cancel 



r 



CCP with exit. 



4 — Dequeue the parameter list. 

— Plug user return code. 

— If put no wait, Freemain. 

— Go to 7. 



5 — Reset read bits in TUB. 

— Zero effective input length. 

— If invite input, Freemain. 



-3^> 6 If system read, exit. 
^ v Else go to 8. 



00 



7 Post the operation requester. 



S If error on user get, clear record area 
to blanks. 
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Process ■ 



1 If IOBCMP is not X'40' (successful data), 
then return to caller. 



2 If 3270 terminal and enter key not hit, 
then DME failed. 
Go to 4. 



3 If ASCII line then convert first six 
characters from line buffers to 
EBCDIC and move to DME. 
Else, move first six characters to 
DME compare area. 



4 If DME characters not received, and 
this is a 3270, then set DME failed. 



( $CC4TR 
' Chart OT 



<j=a 



5 If DME characters received, then set up 
for data mode escape. 



$CC4TR 
Chart OT 
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Process i 



PLOUTL 



PLTUBA 



TUBRCL 



ARR 



@$$BSMS 



@$$BMCH 



1 If ASCII line, then set up the buffer area 
to ASCII blanks. 

Otherwise, ensure that it's EBCDIC 
blanks. 



l^ 2 Set up the record area pointers in the 
DTF. 

Call MLMP IOCS and common check 
until the record is padded out with the 
correct number of blanks. 

3 Reset data truncated indicator. 



4 If an error is posted in SBDCMP, then 
return to the NSI of the caller at past 
the end of the inline parameter list. 
Else if normal completion, return to 
caller at 7 past the end of the inline 
parameter list. 
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Note: See IBM System/3 Disk Systems Binary 

Synchronous Communication Programming 
Support Input/Output Control System Logic 
Manual. SY21-0526. 



Diagram 9P.2321. $CC4BB 



$CC4CM 
Chart QC 



i Input i 



XR2 



DTF 



$BDCMP 



LCBPLQ 



TUB 



TUBATZ 
• TUBOWN 



Uj 



n=t> 



Process i 



1 Reset cancel indicators. 

2 If data to stop invite, set up 
to handle the data and remove 
any extra opends. 

3 If not data, set up to 
reschedule the line. 

4 If other than hex 40 comple- 
tion code, set TUBOWN off 
for all parameter lists on the 
line queue. 

5 Transfer control to $CC4BU. 
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Remove stop invite input parameter 
from the line queue. 

If the terminal to be stopped now owns 
the line and this is a system stop, then 
purge the operation. Clear the TUB 
and parameter list. Set abort up in 
the LCB. Post the operation to 
requestor. 



c> 



'Parameter list 



PLRECA 



-TV 



3 If a status poll resulting from a put 
op code, then remove the status poll op. 
If this is a system purge I/O OP code 
request, else leave it as normal in queue. 

4 If a stop invite to a invite parameter 
list, or if a status poll resulting from 
a get OP code, then remove it. Reset 
status in parameter list, TUB, LCB. 
Set on poll skip bit. Post result. 



If terminal owns the line for a user 
stop invite, then remove the invite 
parameter list and replace it with the 
stop invite parameter list. Treat the 
stop invite as a get. 



6 Post results to the requestor. 
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Process i 



1 If R VI from 3270/3735, go to step 4. 

2 If negative response to poll for 3735, 
call $CC4BD. 

Pass value in TAXPRM. 

3 Negative response to non-3735 — issue 
message by $CC4BX. 



4 If from 1 or if permanent error on 
3270/3735, reset status in the TUB. 
Free the buffer. 

Reset status in the LCB. 
Requeue parameter list to top of 
line queue. 

Set up poll for status and return 
to NSI+4. 

5 If invalid OLT, issue message. 
$CC4BL. 

6 Record length exceed — return 
NSI+8. 



If EOT return code to user request, 
return to user with EOT return code. 

If other error condition, set up return 
code in parameter list, set indicator 
of operator message text. 
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■ Output! 






1 1 Determine which type message to log 
► (0or2). 
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TUB 






Set C/S for $CC4BD in TAXPRM. 

2 Move terminal ID into message. 

3 If message type 2, set off TUB owner- 
ship, clear LCB status, adjust return 
NSW. 

4 If Model 4 console, set to turn on 
field light 6. 
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5 If message 0, set parameters so that 
$CCK9 calls $CC4B9. 

6 Put address of message parameters 
in $CCCOM. 
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Diagram 9P.2340. SCC4BL 



Entered when interrupt 
level 2 (BSCA) occurs 




i Process i 



1 Determine type of interrupt: 

— If ITB interrupt, set the false latch 
in thePSR. 

— If op end interrupt, set the PSR 
to true. 

2 Load XR2 with the work area of the 
op-ended line. 

3 Pass control to the BSCA interrupt 
handler. 

4 Upon return, pass control to 
$CC4IB if CCP is running. 

5 Reset the interrupt. 
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Diagram 9P.2345. First Level Interrupt Handler ($CC4BN) 
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Record area 



Process i 



1 If 3735 completion code, remove all get 
parameter lists and return them to the 
user. 

Reset TUB and LCB. 

2 If 3270/3735 ERP in process, go to step 
4. 

3 If other error, reset TUB and LCB. 

4 If user parameter list set up parameter 
list return field, free DFF output hold 
area if a put. 

5 If system parameter list, call $CC4MD. 
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£ ^ Process ■■ 
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■■Output i 



1 Adjust return NSI@. 

2 Put correct line number in message. 



3 Put address of message parameters 
in $CCCOM. 
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Trace data 



20 entries of 
16 bytes each 



$CC4K9 - 9P.2080 

via 

$CC4BL - 9P.2340 
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Process i 



1 Test for print trace enabled. 
If not, exit. 



ft 



2 Find trace data in storage. 
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ft 



3 Format trace data, output to printer. 



$CC4TX 
Chart OT 



■ Output i 



Trace data 
to printer 



Diagram 9P.2350. $CC4B9 
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1 If reject of input operation: 

- ZeroPLEFFL. 

- Blank record area if not an invite. 

>2 If the parameter list is queued, re- 
move it from the queue. 

>3 If this is a DFF put operation, then 
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free the DFF output hold area for 
this line. (WPBOHA) 
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4 Set reject return code. 

pC^ 5 If parameter list was not queued, set to 
return to NSI@+1. 

6 Set up return register. 
XR1 = LCBPL@ 
XR2 = @ of DTF 

7 Post user parameter list with (WPAAI I) . 
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Process i 



Parameter list 
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PLCHN 



PL$OPM 



TUB 



TUBDTF 



If input record length not large 
enough for status message, then use 
line buffer to determine sense/status. 

If ASCII line, convert the sense 
status to EBCDIC. 



If a poll for status is required, then 
set-up poll for status. Move parameter 
list to top of line queue. 

\^4 If status condition is cleared from 
the terminal, then set-up LCB and 
TUB and parameter list for return. 

If user sent invalid or illegal data, 
terminate user with TCCHAR ter- 
mination code. Set up TUB-LCB- 
parameter list. 

If other condition: 

— Set return code in parameter list. 

— Set up error log area for $CC4B L. 

— Set up TUB-LCB-parameter list 
for communication task. 
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Process i 



1 If 3735 status message to be issued, set 
up LCB, TUB, parameter list, commu- 
nication task work area for error mes- 
sage log to operator. 

2 Set up exit from status poll 
operation. 



$CMWK 














#CMBK2 


#CMBK1 






Parameter list 




TUB 














PL$OPM 


TUBSCS 
• TUBSSP 


PL$OPC 


PL$RTC 






LCB 










LCBATl 

• LCBEOT 

• LCBDEQ 




LCBOPC 
• LCBERP 













3 
O 



Diagram 9P.2380. $CC4B5 



$CC4BL9P.2340 



CD 



■Input i 



XR2 



DTF 



$BDWKB 



LCBPL® 



Logical 
record 
area 



Parameter list 



PLOPM 



PLSOPC 



Diagram 9P.2385 $CC4B7 



$CC4CM Chart QC 



13 



Process i 



1 If 3741 status message to be issued, set 
up LCB, TUB, parameter list, communi- 
cation task work area for error message 
log to operator. 

2 Set up exit from status poll operation. 
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Start with current TCB@ CURTB. Use 
XR1 for parameter list. If operand a 
get, go to reformat 5. 

Use XR2 for DTF. IfOPRFSHof 
PL$OPC is on, operation is a refresh so 
move canned message to buffer, if off, 
move user text to buffer by moving 
length-PLOUTL.and address-PLRECA 
to parameter list for use of move 
routine. 

If TUBRUF or class 'S' message, 
work only with output line on 
the screen. 



4 If message is acceptable, clear 
operator data set; otherwise 
correct to leave operator data 
set adjusted length in the 
LCB, Exit. 

If not valid AID, zero record 
length and exit. If input data 
is 5 characters or less, zero 
record length and exit. In- 
crement past SBA. If PRUF, 
move the program name in 
front of the text received. 
If not PRUF or if a command, 
reformat input data for com- 
mand processor. Move Get- 
main parameter list to dir- 
ectly in front of data. 

Force all input to upper 
case by setting upper 
case bit. 

Exit transient area by 
$CC4TR. 
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Move TUB ID to message. 



f£> 



2 If operation involves invite input: 

— Set current operation to invite 
input. 

- Add 4 to TCB ARR. 
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Exit to issue message to console. 
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1 Load pointer to OLT parameter list 
via save area in TCB. 



£> 2 Test for 'stop' test request, if not, 
goto 5. 



Z^> 3 If stop to terminal that is queued, 
then: 

• Subtract 1 from LCB count of 
online tests. 

• Clear TUB online test control 
byte. 



4 If stop to terminal that is looping, 
then: 

• Turn off loop bit. 

• Zero the OLT OP code. 



5 Add one to count of tests for this 
line. 

6 Move control by TE to TUB. 
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• TUBIIQ 
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If this is stop invite input request, exit. 

Locate all put operations to the terminal 
for which I/O is to be purged. 

— If have put active to this terminal for 
disconnected switched line, issue 
abort. 

— If have put active to this terminal 
(not disconnected switched line), de- 
queue the parameter list and indicate 
to ignore the OP end. 

— If have user put no wait active at a 
terminal, take no action with it. 

— All other put operations are dequeued. 
• If put no wait, Freemain. 

If there is an invite input outstanding 
to the terminal, exit. 



4 Plug return code. 
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See note 
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Note: See IBM System/3 Multiple Line Terminal 
Adapter RPQ Program Logic Manual, 
SY21-0527. 
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$MDTTP 
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• LCBTBK 
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PLTUB 




PL$OPM 




PL$MCT 





1 Determine from status of terminal and 
TP line if the stop invite input is success- 
ful, not successful, or requires further 
processing. 

— Successful in following cases: 

• No invite scheduled. 

• Invite input for this terminal 
scheduled but not started. 

• Dummy read for 2741 active 
onTP line. 

• Return. 

— Failed in following cases — exit: 

• System stop invite to terminal 
for which invite input has OP 
ended. 

• System put of system put then 
invite is active. 

• Invite to 2741 already started 
on the TP line and not initial 
OP on switched line. 

2 Further processing required. 

— If user stop invite to TUB in com- 
mand interrupt mode, indicate stop 
polling pending and return. 

— If user stop invite and invite has OP 
ended, exit. 

3 If none of the above conditions, exit to 
abort the MLTA line. 
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Diagram 9P.2430. $CC4SP (Models 8, 10, and 12 Only) 
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#CMDTF 



#CMPTR 



Stop invite 
communication 
parameter list 



PLOPM 



■fcz^> 1 If read complete, go to 3. 

If user stop invite failed: 

— Reduce count of outstanding invite 
inputs. 

— Dequeue stopped parameter list. 

— Queue the stop invite parameter list. 

— Return. 
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If system stop invite failed to stop: 

— User invite input 

• Indicate to swallow input. 

• Dequeue the stopped parameter 
list. 

— User or system invite input 

• Plug return code. 

• Indicate stop invite failed. 

• Post the requestor. 
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1 Dequeue this TUB from user TCB input 
queue. 



2 Move data from invite input hold buffer 
to user record area. 



3 Freemain the invite hold buffer (if 
necessary) . 



4 Post the user that the TP operation is 
complete. 
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Stop invite 
parameter list 
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PLTUBA 
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Process i 



If TP line not busy with abort, issue 
abort. 



II 



n=C5 



If operation start code equal to zero: 

— Indicate stop read online. 

— If stopping user invite, dequeue 
the stopped parameter list. 

— Queue the stop invite parameter 
list. 

If operation start code not equal to 
zero, determine whether the terminal 
to be stopped is transmitting. 

— If this terminal transmitting, the 
stop invite failed. 

• If stopping user invite dequeue 
the invite input, queue the 
stop invite. 

• If stopping system invite, post 
the requestor. 

— If other terminal transmitting, 
the stop invite worked. 

• Dequeue the invite input. 

• Post the requestor. 

— In dequeuing the invite, Freemain 
if appropriate. 
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See note 
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Note: See IBM System/3 Multiple Line Terminal 
Adapter RPQ Program Logic Manual, 
SY21-0527. 
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Diagram 9P.2460. $CC4SB (Models 8, 10, and 12 Only) 
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Process i 



i=S> 



1 If user stop invite, go to $CC4BF. 

2 If purge of switched line, go to $CC4BS. 

3a If the TUB owns the line, and the pa- 
rameter list is not queued, abort the line. 

3b If the TUB owns the line, and the pa- 
rameter list is queued, and if a system 
stop invite, then go to $CC4BF. 

3c If the TUB owns the line, the parameter 
list is queued, but a system purge, then 
abort the line. 

— Dequeue the parameter list if queued. 

— Set up TUB and LCB for abort. 

— Free DFF output hold area if held by 
terminal. 

4 If TUB does not own the line and a sys- 
tem stop rather than purge, then go to " 
$CC4BF. 



*>5 



On purge I/O, remove all puts from line 
queue. 

— Clean up TUB and parameter list. 

— Free DFF output hold area. 

— Free TP hold buffer. 



6 If line abort performed, set return ad- 
dress to NSI+4. 

7 If get scheduled or implied, exit to 
$CC4BF. 



8 If abort because of TUB owning the line, 
post stop failed. 

9 Otherwise post stop successful. 
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10 Reset return registers for communications 
manager. 
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Diagram 9P.2S10. SCC4BC 
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V^l If call from resident code and if can- 
I eel already in process, then return. 



2 If call from resident code and if can- 
cel not already issued, then issue can- 
cel and return. 



Q— — T^>3 If call from another transient and 
TAXPRM = X'FF', set up cancel 
and return. 



>^4 If call from another transient and 
TAXPRM = X'FE': 

— Queue the stop parm list to 
replace INVITE. 

— Put clear return code in parm 
list. 

— Indicate stop invite parm list 
handled and return. 



^*5 If stop invite is the current parm 
1 list (LCBPL@), set stop invite 

handled and return. 



i^6 Free main any hold buffer space 
and return. 



7 If call from another transient and 
TAXPRM = X'OA', then exit 
through $CC4S2. 
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Diagram 9P.2520 $CC4BF 
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Process 
1 



If user stop invite to command 
interrupt terminal, set stop in- 
vite pending. 

If system stop invite to user input 
that owns the line, set stop failed and 
post system. 

3 If user stop input that owns line and 
the parameter list is not inline queue, 
call $CC4S2 to retrieve data from 
TCBINQ chain. 

4 If user stop to input that owns line 
and parameter list is inline queue, 
remove invite and replpce with stop 
invite which will be treated as a get. 

5 If status poll started and receive 
initial on the line then call $CC4BC 
to cancel receive initial. 

6 If data in TCBINQ for user stop 
request, call $CC4S2 to remove from 
TCBINQ chain. 

7 If data already in TCBINQ for system 
stop, set stop failed and post the 
system. 

8 If no invite scheduled, set stop suc- 
cessful, set poll skip, and post suc- 
cessful. 

9 If input cannot be removed from queue 
because poll in progress, call $CC4BC 
to cancel receive initial. 

10 If input can be removed from line queue, 
remove it. 

— Clean up parameter list and TUB. 

— Set on poll skip bit. 

— Set stop successful. 

— Post results. 
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P^T^ 1 If terminal owns BSCA line: 
I • Set off invite status. 
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3 If read, set off TUBUS. 
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6 If all lines operations purged, post 
termination. 
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Diagram 9P.2600. $CC4MT (Models 8, 10, and 12 Only) 



^ 1 Find TUB which belongs to LCB 
which has OLT test control byte 
that is non-zero. 



2 Set OLT running bit in TUB. 
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•\^ 3 Plug DTF with the following control 
information: 
■ Terminal address. 

• OLT OP code. 

• Field options. 

• Test number. 



TUB 



TUBATZ 



XR2 



1^4 Check return code. 
If good, go to step 5. 
If not, do the following: 

• Reduce LCB count. 

• Reset TUB. 

• Issue message. 



See note 



1 



MLTA 
IOCS 
via 
P+MLTIO 



DTF 



$MDOPC 



$MDOLC 



$MDOLR 



$MPTMA 



$CC4K9 
9P.2080 



5 • Set on POLT running bit. 
• Add 1 to OP end count. 
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Note: See IBM System/3 Multiple Line Terminal 
Adapter RPQ Program Logic Manual, 
SY21-0527. 
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Process i 



1 If start code is not line closed, go to 4. 



1^ 2 Have line closed start code — have CCP 

I error condition unless: 

f^ — Have 1 parameter list in the line 

I queue. 

^ - TUB is offline. 

If not both of above, go to 4. 



Dequeue the parameter list. 

Plug offline return code in parameter 

list. 

Exit. 



4 Cancel CCP with exit. 
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Translate 
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TLTOL 
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TLFRML 



Source area 



Translate table 






1 Get address of translate list from the 
TCB save area. 

2 Initialize internal work areas. 



n=> 



Translate loop 

3 Translate each input character from 
EBCDIC to line code: 

— Translate a character. 

— If invalid, use replacement 
character. 

— Move to target unless beyond end 
of target area. 
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4 Set up translate list for return. 
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^^1 If answer mode, go to 5. 



2 In call mode, so determine phone 
number to call. 
Initialized to point to null entry. 

— If no phone number use null entry 
so go to 5. 

"=^3 Read the STT from disk into the 2nd 
sector of the transient area. 

— If disk error, move in disk error 
message and go to 5. 

— Search disk sector read into storage 
for the STT index. 

— If not found, go to 3 to read next 
disk sector. 



S Plug address of phone number (or equiva- 
lent message) in TAXPRM. 



See note 
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Note: See IBM System/3 Control Program Logic 
Manual, SY21-0502. 



Diagram 9P.2630. SCC4WC 



$CC4WC 
9P.2630 



■■ Input i 



-o 

o 



DTF 



XR2 



$CCCOM 



n 



#CMPL 



$BDDEV 



$MDLNO 



W 



Process i 



TUB 



Communication 
parameter list 



PLTUBA 



TCB 



TCBID 



TUBTA1 
TASCNC 



TUBTCB 



^> 1 Build the line number in the message. 
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2 If answer mode, go to 4. 
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^^ 3 Move phone number (or equivalent 
message) to message. 



£> 4 Plug TCBID into message. 
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Plug program name into message. 



6 Issue message to console. 
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Update NSI in TCBSAV past inline 

parameter list. 

Move parameter list to this transient. 



2 If function byte (CMFUNC) is a request 
for reject logic, determine if reject tran- 
sient should be called ($CC4BR). 



If function byte is for CMSET logic, 
move the parameter list to Getmained 
area for put-no-wait operation, or to 
TUB for a system put then get. 



If function byte is for CMBTAS, set up 
the terminal attributes in the DTF and 
IOB and determine record length. 



If function is for CMTASV, save ter- 
minal attributes in SAVTA1 and 
SAVTA2. 
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1 Save DTF address and move inline param- 
eter list into this transient. 
Increment ARR of caller past parameter 
list. 



If function desired is CMSTOR, determine 
Getmain storage size and modify #BUFND 



If function is CMFORM form operation 
in DTF and I OB and set terminal attri- 
butes in DTF. 



If function desired is final part of 
CMFORM (CTRL), determine buffer 
size needed for this operation and 
modify the IOB. 
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1 If this transient is entered, terminate 
CCP with a U- halt and 93 subhalt. 
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^^ 2 Remove the TUB from the command 

I processor input queue and store its 

-J^ address in the command processor active 



D^> 



TUB address area. 

Reset TUB invite and buffer bits. 



3 Exit if TUB is entering data mode escape. 



4 If OP end following unsuccessful stop- 
polling operation, exit. 



If the input length is less than 2, exit. 
If program request and input length is 
greater than maximum allowed, exit. 
If program request from terminal or 
console, exit. 

If invalid console command, exit. 
If console command other than /Q, 
/NOQ, or /FILE, exit. 
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$CC4SU 
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If cancel CCP, shutdown, or suspend 
commands is currently in effect and 
TUB is not in command interrupt mode, 
exit. 



If /Q, or /NOQ command, exit. 
If /FILE command, exit. 
Other terminal commands, exit. 
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1 ^ ^ Process i 



1 Reset invite and stop polling bits. 
Set Freemain needed indicator in the 
command processor work area if the 
TUB still owns a TP buffer. 
If a data terminal, or pending offline 
status, go to 3 . 

• 2 Test the terminal for pending requests. 
Set command processor re-invite indi- 
cator if no requests for the terminal or 
line are pending. 

3 Exit if the terminal is on a switched 
line and pending offline status. 
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1 Exit if not valid terminal command. 

2 If effective input length equals the com- 
mand length, go to 4. 

3 Exit if a blank doesn't immediately fol- 
low the command an operand is required. 

4 Exit if the command requires operands 
and none are present. 

5 Call the appropriate command proces- 
sing transient to process the command: 

/ON command 

/OFF command 
/NAME command 
/MSG command 
/RELEASE command 
/RUN command 
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1 Determine if the long or short form of 
the command is being used. 



2 Exit if a blank does not immediately 
follow the command. 
Exit if invalid system operator 
command. 

Exit if operands are required and 
none are present. 



3 Call the appropriate command proces- 
sing transient to process the command: 

VARY command 

MSG command 

DISPLAY command 

CANCEL command 

SUSPEND command 

RESUME command 

ASSIGN command 

TEST command 

SHUTDOWN command 

ERP command 

TRACE command 

ALLOCATE command* 
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If Freemain is indicated and not 
processing a console command, free 
the TP buffer . . . 
and post the communications task 
that a buffer was freed. 



If TP I/O is indicated, build a param- 
eter list — point PLRECA at the 
message in the command processor 
work area and call the system TP 
I/O interface routine. 
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Turn off the system lock bits to allow 
other tasks to run. 



4 Reset the $CC4R4 validated non-reuse- 
able request bit in all short DTF's. 



£> 5 If program use counting is indicated, 
bump the use count of the requested 
program. 
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Locate message via offset in TAXPRM. 
Exit if the message is not contained in 
this module. 

Set message indicator and move the 
message to the command processor work 
area. 



CPHALT 
Chart OV 
Halt 'EX' 
(see note) 
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MESSAGE 
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Note: On Model 4, the halts are converted to halt indicators. These 
Model 4 halt indicators are listed in Appendix C of this manual. 
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Parameter list 
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PLINL 



PL$MCT 



1 If stop polling was issued to this terminal 
while input was being processed, indi- 
cate stop polling is pending. 

2 Reset typewriter location indications. 

~-"^> 3 Determine if operation which read the 
DME string was get or invite input and 
set up TUB with proper indication. 

4 Send message to terminal and invite in- 
put for the command processor. 
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i Process i 



1 If console input and the console has 
an active or pending program request, 
go to 4. 

2 If terminal not in command mode, 
go to 4. 

3 Set TUB queue indicator if 1(1 re- 
quest, reset if /NOQ. 



r 



Output i 



TUB 



4 Move message to command processor 
work area, and set put, re-invite, and 
Freemain indicators. 



$CC4CP Chart PC 

via 

$CC4TR Chart OT 



TUBAT1 
• TUBQUE 



Command processor 
work area 



$CPFLG 

• $CPPUT 

• $CPFR 

• SCPII 



$CPLMG 



$CPMSG 



022 
E05 
A03 
A04 



Diagram 9P.3110. SCC4QQ 



i Input i 



Communication 
area $CCCOM 



@TUSTG 



TUB 



TUBAT1 
• TUBKNM 



TUBTUB 



TUBAT2 

• TUBDTA 

• TUBCMD 



TPEFFL 



TPRECA 



Communication 
area $CCCOM 



@CPDTF 



@DFCT 



SCC4PC9P.3010 

via 

$CC4TX Chart OT 



lH" 



Process i 



I I 



•^ 1 Command from console and console has 
" program requested. 



^S 2 Check terminal in command mode. 

^S 3 — Scan command for operands. 
Save them. 



Set bit indication. 
If error, send message. 



n* 4 Scan for symbolic file name in symbolic 

I DTF. 



~Z?^ 5 Scan for physical file name in short 
"^ DTF. 

6 Move bit indicators and relative entry 
§ of symbolic and physical file name to 
command processor work area. 
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Diagram 9P.3120. $CC4FL 
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Determine whether no operand, only one 
or two operands. 

Two Operands 

— Take a free FSB. 

Put on the TUB FSB-chain and modi- 
fy it. 

— If no free FSB, send message. 

— If OK send message. 

One Operand 

— Scan TUB FSB chain and put the FSB 
identified by symbolic name entry # 
on the FSB-free chain. 

— Send OK message. 

No Operands 

— Take all FSB's from the TUB FSB- 
chain and put them on the FSB-free 
chain. 

— Send OK message. 
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^ 1 If enter from $CC4YA, go to 3. 



Go to 3 if the terminal is not in initial 

mode or already signed on. 

Exit if user sign on security routine 

is active. 

Compare input password if CCP sign 

on security. 

: ^^3 Indicate terminal signed on if security 
checks OK. 

Inform the system operator in either 
case. 



4 Move terminal message to the command 
processor work area, indicating that a 
put, re-invite and Freemain are necessary. 
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1 Call CCP halt routine via branch to zero. 
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If terminal is not in command mode or 
if sign off operand is invalid, exit. 



TNT 



TNTNAM 



TNTFLG 
• TNTPRI 
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If operand not given, use default option. 
If sign off, drop mark the TUB offline. 
Free the input buffer and post commu- 
nication task that a buffer was freed. 
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Reset the terminal name to its primary 

name. 

Free any FSB's queued to the TUB. 

Reset TUB to initial mode. 

Set TUB to /NOQ status. 
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I 1 Tell the system operator and the ter- 
I minal operator that the terminal is 
1 signed off. 
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on the line is signed on and put TUB 
(not terminal) online to allow a call in. 

3 If hold option, re-invite the terminal. 
If switched line and drop option, dis- 
connect the line. 
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Process 
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Check terminal in command mode. 
If not, send message. 

Determine if operand given or not. 

Check syntax. 

If error, send message. 



If Operand 

3 — Scan TNT's for name. 

— If not found, send message. 

4 - Check TNT belongs to TUB. 

— If not, send message. 

(^ 5 Put TNT address into TUBTNT. 
Continue at 7. 

If No Operand 

6 Scan the TNT's to find a primary name 
or the first secondary in alpha order that 
belongs to the terminal and make it the 
current name. 

7 Modify system operator message with 
terminal ID and new name and send it. 
Send OK message to terminal. 
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^ 1 Find message length input from terminal. 
If greater than 67 characters or if input 
was truncated, set message module off- 
set in TAXPRM and exit. 

2 Move message text internal. 

Add header length and store in param- 
eter list. 

Branch to $CC4IS to do a put no wait. 
On return exit to message module to do 
a message sent to requesting terminal. 

3 Set bits on to invite input and free the 
input buffer. 
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— Check that terminal is in command 
mode. 

— If not, send message. 



2 — Set terminal out of data mode. 

— Set Oil stop polling pending. 

— Set terminal release pending. 
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f^ 3 Post user task '8000' on a get '2000' 
on an invite. 



4 Set user return code and invite count. 



7^^ 5 If input already queued, put TUB i 
TCB input queue. 
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■*> 



1 Freemain the invite input hold buffer. 

2 If TUB in command interrupt mode, 
issue error message — return. 

3 Issue OK message to terminal. 
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TCB 



TCBINQ 



If 3270, return clear key indication 
to user program. 

— If get, post the user. 

— If invite input: 

• Build parameter in TUB. 

• Queue TUB on TCB input 
queue 

• Post the user. 

If not 3270, re-issue the parameter 
list that was active when terminal 
went into command interrupt mode 
(exception, if stop polling pending, 
return to user with indication that 
stop invite was successful). 
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|l If console request, is the sub-TUB 
available? 



I No! 



■ Yes 



JS<2 Is terminal signed on? 



Yes 



3 Set status bits and program name 
length in XCTL parameter. 



jM Is the requested program cur- 
1^ rently running and MRTS? 



Yesl 



No 



Is the requested program cur- 1 
rently running and NEP? 



| Yes 



5 Is there a pending request for this 
'^ program and is it MRTS? No 



Is there a pending request for this" 
program and is it NEP? 



■ No 
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running program 
handling a 
maximum number 
of terminals? 
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Is program 
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program? 
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Set default terminal attribute value. 



2 If console request, move TP param- 
eter list into sub-TUB. 



3 Put terminal into data mode and indi- 
cate requesting terminal. 



4 If no input data, Freemain the TP 
buffer and post communications 
task. 



Pz^> 5 Allocate TUB to user TCB — deallocate 
I from command processor/communica- 



tionstask. 



6 Post user TCB that an accept input has 
completed. 



$CC4FM 
Chart OZ 



$CC4PS 
Chart OJ 



$CC4PS 
Chart OZ 



■Output ■ 



Terminal unit block 



TUBCAS 



TP$RTC 

to 

TPEFFL 



TUBAT1 

• TUBREQ 

• TUBDTA 

• TUBCMD 



Task control 
block 



TCBTUB 



TCBINQ 



$CC4TR 
Chart OT 



to 
oo 

CO 



Diagram 9P.3310. SCC4RC 



$CC4R1 9P.3300 



$CC4TX Chart OT 



CO 
is. 



i Input i 



TAXPRM 



| • R2QUE 



$CCCOM 



$FLGB 

• #SUALL 

• #SUINT 



#MAXUS 



#CURUS 



@LUSTB 



$AMWK 




$AMFLG 
• $AMBSY 



Task control 
block 



TCBTSK 
• TCBRUN 



TBNXT 



$CCCOM 



@PTX 



@PTXCS 



@TUSTG 



PCT index 
Program names j 



TUB 



TPRECA 



Data buffer 



I Program name -<- 

TAXPRM 

| Program name length | 



$CCCOM 



#CPFLQ 




Process i 



If requestor will not queue, reject 
request on: 

• Allocation busy. 

• Initiation suspended. 

• Maximum number user tasks 
running. 



2 Find disk address of PCT sector for 
this program by scanning PCT index. 



=^> 3 Set $CCPFILE Q-byte and C/S in 



IOB. 



fO 



4 Read PCT sector into second half of 
transient area. 



I/O error exit 



Normal exit 

See note 2 
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Note 1 : See IBM System/3 Disk Systems System 
Control Program Logic Manual, 
SY21-0502. 

Note 2: $CC4R3 is only one sector long. 



Diagram 9P.3320. $CC4R2 



Disk read error 

$CC4R8 9P.3320 

via 

$CC4TX Chart OT 



SCC4R3 9P.3320 

via 

SCC4TV Chart OT 



SCC4R29P.3320 

via 

$CC4TX Chart OT 



m Input i 



$CCCOM 



TAXPRM 



@CMTCB 



@TUSTG 



TUB 



TPRECA 



Program name I 
length 



TUB 



TUBAT1 
• TUBKNM 



M. 



Process i 



£>1 Tell system operator that a PCT I/O 



error occurred. 



2 Indicate that input buffer is to be freed 
and requestor re-invited. 



J"S 3 If request from terminal, tell operator 
I an error occurred. 



Not terminal 
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of this transient)? 
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2 Was the program suppressed at 
Startup? 
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Was data input but not allowed? 
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, 4 Was PRUF data input 
but not allowed? 
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l^ 5 Move PCT entry to TP buffer. 
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a if any NEP is in aliOCtitiuM, queue? 

this request. 



I No 



j>2 If any TUB on R4 hold queue, process 
V^ it first. 



3 Compute use count table offset and 
set NEP in process if applicable. 



j»j4 If disk files are used are all /FILE 
V^ requirements met. 



~^ 




5 Can request be satisfied for its file 
requirements. 
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1 Ensure that storage is available for the 
program. 
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• Boundary storage if NEP. 

• Boundary storage for DFF. 
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• Purge user program storage if 
necessary and if available. 

• Purge DFF and output hold 
areas if necessary and not 
needed or not in use. If 
remap, never purge $CC4DF. 
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Are all required unit record devices 
available? 



rYes 



For each required terminal, does each 
TNT entry have an associated TUB? 
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For each required terminal, ensure 
that it will be available. 

• Stop polling any initial mode 
terminals. 

• If terminal allocated ensure 
requestor will queue. 

• If tests fail, restart all stopped 
terminals. 
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If entry is from $CC4R1 , see if the 

requestor won't queue. 

If a maximum number of requests 

are queued to the pending MRTS 

program. 
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1^2 Put TUB on allocation input queue. 

If console request, put sub-TUB there. 
Set data offset into TUB. 
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1^3 If allocation is neither busy nor sus- 
pended, find a TCB for it (if avail- 
able) and set it up to run. 



TUBPST 
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Task control 
block 



If any DTF's are to be used as non- 
reuseable, indicate this in the CCP 
short DTF. 
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Check command syntax if in error exit 
to message module. 
Check if input was by physical ID or 
symbolic terminal name. 



Search TUB chain for matching ID. 
If not found, issue error message. 
If found, move message header to buf- 
fer and do terminal checks. 



Search TNT chain for matching name. 
If found, move message header to buffer 
and do terminal checks. 
If not found, issue error message. 
Set on bits to invite and free buffer. 



Check TUB to see if terminal is com- 
mand capable, online, in data mode, 
error recovery, on a switched line and 
disconnected, queued for program re- 
quest, in online test. 
Issue error message if any test fails. 



Set length and address of message in 
parameter list and branch to $CC4IS 
to do a put no wait. 
On return exit to message module to 
output message sent. 
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1 Syntax check the command — if in- 



issue message. 



2 Issue OK message to system operator. 
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il 



3 if retry specified: 

— Reissue the parameter list for 
which error occurred. 



4 If bypass specified, treat operation as 
if successful. 

— Issue operation to terminal as re- 
quired. 



5 Freemain and post as required. 
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1 Check test request for valid syntax. 
All errors exit to message module. 

•2 Check entry for symbol ic name or 
physical ID. 

Find correct name in terminal name 
table. 

If multicomputer terminal, (eg. 1050), 
retrieve component address from 
TUB. 

3 Test for terminal offline. 

4 Test for terminal output capable. 



^>5 Test for MLTA terminal on switched 
line. 
Test for line connection made. 
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If not, give error message. 



6 Start to build OLT parameter list 
Move to work area. 



* ^>7 Determine if test request is for MLTA 
* 1 orBSCA. 
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address Data input 
PTR. Data ending 
PTR. 
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I TESt! ' i Symbolic name I ■"■ cc ^ m ^ ] 



to 



s input i 



$CCCOM 



$CPWK@TUSTG 



OLT parameter list 



OLT OP code 



Physical ID 



TUB address 



Data input 



Pointer 



Data ending 



Pointer 



TUB 



TUBDTF 



DTF 



$BTATR 



$BDPSC 



$BDATT 



$CC4TS 
9P.3430 




Process i 



1 Check remainder of test request for 
valid syntax. 
All errors exit to message module. 

2 Check test number entered for valid 
value. 

3 Check count number entered for 
valid value. 

4 Check length of message if used. 



J 5 If multipoint tributary station, insert 
^^ addressing characters in second 
I | parameter list. 



6 Finish building OLT parameter list. 
Move to work area. 



h*- 



7 Send OLT start message to console. 



SCC4EL 
9P.3060 



$CC4CP 
Chart PC 



SCC4IS 
Chart PP 



■■Output i 



Error message 
to console. 



OLT parameter list 



2-3 


OLT OP code 




6-7 


Message address 




8-9 


2nd list address 








0-1 


Test number 


•*— ' 


2-3 


Count number 




4 


Check character count 




5-6 


Check characters 





t> 



Start message 
to console 



$CC4TR 
Chart OT 



Diagram 9P.3430. $CC4TZ 
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$CC4TS 
9P.3430 
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i 1 












«-► 








$CCC0M 




1 Check remainder of test request for 
valid syntax. 
All errors exit to message module. ■ 

£> 2 Check test request for stop. 

3 Check terminal for exclusive data 
mode. 

4 Check for a test already running. 


I 1 










^^U 


L^ 




1 , 


Error message 
to console 








$CPWK 


^CC4EL|_ 




bp.3060r 




@TUSTG 


$CC4CP 
Chart PC 
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OLT parameter list 










— i 


OLT OP code 


Control byte 






TUB address 


^ 5 Check DTF for line closed. 


Data input pointer 


Data ending pointer 




TUB 


1* 




6 Check test request for all. 
^^> 7 Check test number entered for valid 




TUBAT1 


TUBAT2 




1 


value. 
8 Check test request for loop. 


TUBLCB 


TUBOTC 


TUBLCB 












OLT parameter list 






rs — — t^tzztzz 






DTF 




9 Move OLT parameter 1 ist to work 
area. 




$CC4IS 
Chart PP 
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4-5 Control bytes 
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Start message 










•m^ 10 Send OLT start message to console. 
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Diagram 9P.3440. $CC4MZ (Models 8, 10, and 12 Only) 
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$CC4PK 9P.3040 

via 

$CC4TX Chart OT 
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Communication 
area $CCCOM 











@TUSTG 












@TUBA 




@TNT 
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TUB | 


TNT 








TPEFFL 


TNTTUB 


TPRECA 


TNTLN 


TUBSTP 


TNTSTP 


TUBLN 




TUBAT1 

• TUBKNS 

• TUBKNM 

• TUBONL 


DTF 




$MDAT2 
• $MAOPN 


TUBCHB 
• TUBLNE 


$BDATR 
• $BCOPN 


TUBDTF 







I* 



i Process 
1 



Scan command and check syntax. 
If error, send message. 



2 - Validate operands. 
— If error, send message. 



3 If vary online: 

- Set TUB online. 

- Set indication in TAXPRM for vary 
online. 



4 Put name and TUB address into com- 
mand processor work area. 



% 



Message 
module 
$CC4E2 
9P.3060 



$CC4CP Chart PC 

via 

$CC4TR Chart OT 



$CC4VB9P.3510 

via 

$CC4TX Chart OT 



r 



Output i 



Message 
to system 
console 





CCP transient 






TAXPRM 






TUB 










TUBAT1 
• TUBONL 











Command processor 
work area 



$CPLMG 



VATUB® 



VANAMI 



Diagram 9P.3500. SCC4VA 



$CC4VA9P.3500 

via 

$CC4TX Chart OT 



i Input i 



Command processor 
work area 



$CPLMG 



VBNAME 



VBTUB@ 



| TAXPRM fc 



lW 



Process i 



Communication 
area $CCCOM 



TUB 



1^ 1 Determine whether vary online or offline. 



@CPTCB 



T3 

O 

CD 

3 
o 



to 



TUBAT1 

• TUBONL 

• TUBREQ 



TUBAT3 

• TUBAPP 

• TUBERP 



TUBOTC 



TPEPP 



TUBAT3 

• TUBSPI 

• TUBERP 



TUBCHR 
• TUBCMN 



TUBFSB 



If Vary Offline 
Z^2 — Check if terminal can be set offline. 
— If not, send message. 



Parameter list 



PL$OPM 



PLRECA 



=>D 



Communication 
area $CCCOM 



@FSBFR 



TUBTNT 



TUBCHR 
• TUBCMN 



TUBAT1 
• TUBSWC 



L, 



Q=C>4 



Active FSB's 



FSBNXT 



Communication 
area$CCCOM 

$FLGA n^D 



H> 



Parameter list 



VBLIST 



f=C>B 



%>* 



Diagram 9P.3510. $CC4VB 



■W 



If terminal in ERP and has put no wait 
hold buffer occupied, Freemain and post 
communication manager. 



Purge I/O for terminal. 
Send vary offline message. 
If terminal command capable not 
switched and shutdown not pend- 
ing, disconnect switched line terminal. 



Set off TUB -bits. 
Free TUB-FSB's. 
Send OK message to terminal. 



If Vary Online 

Modify message. 

Send it to console and to terminal 

if shutdown is not pending not switched 

terminal and command capable. 



$CC4PQ 
Chart OU 
Routine 
to check 
if program 
request is 
pending 
for TUB 



Freemain 

routine 

$CMIMR 



Post 
routine 
$CC4PS 
Chart OJ 



TPI/O 
Interface 
$CC4IS 
Chart PP 



=OE 



I 



Message 
module 
$CC4E3 
9P.3060 



$CC4CP 
Chart PC 
via 

$CC4TX 
Chart OT 



TPI/O 
Interface 



$CC4TR 
Chart OT 



■ Output i 





TUB 












Communication 


TUBISB 




area $CCCOM 




TUBCHR 

• TUBNID 

• TUB@SL 








(3ISBFR 




TUBAT1 

• TUBONL 

• TUBSGN 

• TUBQUE 

• TUBREQ 




FSB 










FSBNXT 










TUBAT2 

• TUBDTA 

• TUBCMD 




TUBAT3 

• TUBERP 

• TUBSPP 
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Message to 

system 

console 



Message to 
terminal and 
console 
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$CC4PK 9P.3040 

via 

$CC4TX Chart OT 
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Communication 
area $CCCOM 



@TUSTG 



@CPTCB 



@TUBQ 



@TUPST 



@TNT 



TUB 



TUBSTP 



TUBAT1 

• TUBKNS 

• TUBKNM 

• TUBONL 



TUBAT2 

• TUBCMD 

• TUBAPP 



TUBTNT 



TUBTCB 



TUBLN 



TPEFFL 



TPRECA — ■ 



TUBID 



TNT 



TNTNAM 



TNTTUB 



TNTLN 



TNTSTP 



TNTMCT 



PCT 



PCTLN 



PCTNLT 



PCTOII 



PCTLTD 



PCTIXL 



Uh 



■ Process ■ 



1 — Scan command and check syntax. 
— If error, send message. 



f0> 



2 — Validate operands. 

— If error send message. 

— Set bit indications. 



3 Save addresses for second transient in 
command processor work area. 



1 



Message 
module 
$CC4E4 
9P.3060 



■Outputi 



$CC4CP 
Chart PC 
via 

$CC4TR 
Chart OT 



r*Q 



Message to 

system 

console 



Oi 



TAXPRM 



Command processor 
work area 



$CC4AU 9P.3540 

via 

$CC4TX Chart OT 



$CPLMG 



ASTUB1 



ASTUB2 



ASTNT® 



ASINPL 



XR2 



Diagram 9P.3520. $CC4AS 



$CC4AU 9P.3540 

via 

$CC4TX Chart OT 



i Input i 



Command 
processor 
work area 



Communication 
area $CCCOM 




Process ■ 



ATTNT® 



ATTUB1 



ATTUB2 



$CPMLG 



XR2 



ASINPL 



@TUSTG 



@TNT 



#HISTT 



TAXPRM 



TUB 



TUBAT1 
• TUBSWC 



TUBTNT 



TNT 



TNTNAM 



TNTCCP 



TNTLN 



TNTFLG 
a TNTPRI 



TNTTUB 



If third operand exists, check syntax 

and validate. 

If error, send message. 



F>2 



Move addresses to TNT and TUB and the 
STTtoTNT. 



£>3 



If taken the current name from terminal, 
reassign the primary or the first second- 
ary in alphabetic order and send modify 
message to system console. 



Message 
module 
$CC4E5 
9P.3060 



■■Output! 



$CC4CP 
Chart PC 
via 

$CC4TR 
Chart OT 



Message to 

system 

console 
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TUB 




TNT 














TUBTNT 


TNTTUB 




TNTSTT 








TNTILG 
• TNTPRI 

















TPI/O 
Interface 



Message to 

system 

console 
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$CC4TR 
Chart OT 



Diagram SP.3530. $CC4AT 
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CO 

to 
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$CC4AT 9P.3530 

via 

$CC4TX Chart OT 




Process i 



Exit if the symbolic name was unas- 
signed. 



Compare the characteristics of the 
TUB previously assigned the sym- 
bolic name to the TUB to whom the 
name exit if not matching. 

If the TUB's support multi-com- 
ponent terminals, ensure that the 
assignee can support at least the 
same devices as the previous TUB. 
Exit if it cannot. 



T 



$CC4AS 
9P.3530 
via 

$CC4TX 
Chart OT 



■ Output! 



$CC4E5 
9P.3060 



Message 
372 



$CC4CP 
Chart PC 
via 

$CC4TR 
Chart OT 



$CC4AS 9P.3520 

via 

$CC4TX Chart OT 



Diagram 9P.3540. $CC4AU 
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Process HBiHaiBaH 
*^ 1 If command format invalid. 

2 If device not supported by CCP. 



3 If deallocate requested on a non-DPF 
system. 



* " ^ > 4 If scheduler interlock on for other level 
of non-DPF system. 



*— - f S 5 Set scheduler interlock for my level. 

1 

V^ 6 In deallocate requested for a device not 
owned by the CCP level. 



J ^ 7 If deallocate requested but CCP requires 
^ the device. 



-^^S 8 If allocate requested for an owned device. 



9 If none of the above. 



$CC4EU 9P.3060 _ .. ^ 

via I" Output 

$CC4TX Chart OT | 



$CC4AN 9P.3560 

via 

$CC4TX Chart OT 



^ #186 



^ #183 



d^ #184 



^ #187 1 



TAXPRM 



System 

communication 
area 



NCSCH1 



^ #182 



^■#185 



TAXPRM 



Jn >#18 1 1 



TAXPRM 



Device 



Diagram 9P.3550. $CC4AL 
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TAXPRM 




$CCCOM 



@PCA 



System 

common 

area 



NCSYSQ 



NCSWRK 



From $CC4PC 
9P.3010 



W 



Process i 



Program level 

communication 

area 



NBPSD 



^> 1 Read SWA common sector from disk. 



i— 1^ 2 If allocate requested: 

• If device unavailable. 

• Allocate if device available. 



3 Deallocate the device if requested. 

4 Rewrite SWA common sector. 

5 If disk error. 



6 If i 



SCC4AP 9P.3570 

via 

$CC4TX Chart OT 



■ Output 




Note: See IBM System /3 Disk Systems System 

Control Program Logic Manual, SY21 -0502. 



Diagram 9P.3560. SCC4AN 



From $CC4AN 
9P.3560 



pilnputi 



TAXPRM 




$CCCOM 



@PCA 



System 
communication 

area 



NCS4SQ 



NCSWRK 



NCSCH1 



Program level 

communication 

area 



NPLVL 



l'-H" 



Process ■ 



r 



iJ** 1 Read my partition index. 

J 

2 if disk error. 



3 If allocate: 

• Set partition index. 

• Set on allocated bits in $CCCOM. 

4 If deallocate: 

• Set partition index. 

• Set off bits in $CCCOM . 



5 Rewrite partition index. 
"ZZ^> 6 Print OK message. 



p Output i 




See note 



Disk I OS 

wait 



$CC4EU 9P.3060 

via 

$CC4TX Chart OT 



TAXPPM 
* y[ Message 189 

SCCCOM 



$DVALC 




Note: See IBM System/3 Disk Systems System 

Control Program Logic Manual, SY21 -0502. 
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Diagram 9P.3570. $CC4AP 
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a Input i 



From $CC4PK 
9P.3040 



$CCCOM 



@CTRAC 



@MTRAC 



@BTRAC 



@TUSTG 



$FLGC 



$FLGB 



lH" 



Process i 



TUB 



TPEFFL 



TPRECA 



Buffer 



| Trace on, XXX 






$CCCOM 



$FLGC 

• #BTRAC 

• #MTRAC 



$FLGB 

• #TDISK 

• #TDOFF 

• #TDERR 



rO 



Check syntax. 

If in error, exit to message module. 

If operand is on CCP, check if trace is in 

the system. 

If in, check for disk error. 

If no error, set on #TDISK and reset 

trace to first C/S of f iie. 

If operand is off CCP, check if trace on 

#TDISK is on if not error. 

If on, set it off. 

If operand is MLTA, check if trace is in 

the system. 

If not, issue error message. 

If in, set #MTRAC on or off and exit to 

send message. 

MLTA equal @MTRAC. 

If operand is BSCA, check if trace is in 

the system. 

If not, issue error message. 

Is in, set #BTRAC on or off and exit to 

send message. 

BSCA equal @BTRAC. 

Set bits on to invite input and free the 
input buffer. 



>|$CC4EF 
9P.3060 



r 



Output i 



t 



*Q 



T 



System 
console 



$CCCOM 



$FLBG 

• #TDOFF 

• #TDISK 



$CCCOM 

==V>| $FLGC 



=w 



• #BTRAC 

• #MTRAC 



$CPWK 



$CPFLG 

• $CPFR 

• $CPM 
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$CC4PK 9P.3040 

via 

$CC4TX Chart OT 



i Input i 
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@LUSTB 



@TMTCB 



@TUSTG 



TUB 



TPEFFL 



TPRECA 



CDE 



CDENAM 



CDE AT R 
• CDETCB 



TCB 



TCBCDE 



TCB ID 



TCBTSK 
• TCBRUN 



TCBJOB 
• TCBALC 



ter 



Process i 



C^ 1 Check command syntax. 
iJ If error, send message. 



m 



2 Determine whether cancel task or CCP. 



If Cancel Task 

3 If task being cancelled is in DSM 
supervisor, wait until done in supervisor. 

4 — Check task I D and program name. 

— If not found, not in relation, or task 
in allocation, send message. 

5 — Mark task to be terminated. 

— Make termination task dispatchable. 

— Set user function must complete. 

— Send OK message. 

If Cancel CCP 

6 Mark CCP — cancel in communication 
area. 



i 



Message 
mod ule 
$CC4EC 
9P.3060 



r 



Output i 



$CC4CP 
Chart PC 
via 

$CC4TR 
Chart OT 



I $CC4WT 
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Message to 

system 

control 
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via 

$CC4TX Chart OT 
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area $CCCOM 










$TMFLG 
• $TMBSY 


$DPFLG 
• DPFSMC 


$DPFLH 
• DPSMC 


$FLGB 

• #CRCHN 


User 
TCB 


Termination 
TCB 






TCBJOB 

• TCBCON 

• TCBTRM 


TCBTSK 
• TCBDSP 




TCBTSK 
• TCBATV 
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$CC4CJ9P.3610 

via 

$CC4TX Chart OT 
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<°>CPTCB 




TCB 




<°>LUSTB 






l . 








User TCB 


TCBJOB 

• TCBALC 
' • TCBCAN 

• TCBTRM 








r P 


^ termination. 

2 Scan command processor TUB- 
chain to send CCP-canceled message 

* to command capable terminals. 
If invite already scheduled, first 
stop invite. 

3 Send cancel OK message to system 




• 


TCBJOB 
• TCBALC 




u 


TCBTMD 


TCBTSK 
• TCB RUN 










TUB 




TCBNXT 






< *" I 


TCBTUB 








TUBCHR 
• TUBCMN 
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TP 110 
Interface 
$CC4IS 
Chart PP 










TUBAT1 

• TUBONL 

• TUBSWC 






r* 










— i 


r-s. 


Message 

to 

terminal 










TUBAT2 
• TUBUS 






1^ 


• TUBERP 

• TUBSPF 
TUBTUB 




Parameter list | 














CXOPC 


1 




- 


TP110 
interface 
$CC4IS 
Chart PP 










CXOPL 
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CXTUB@ 
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Message 
to system 
console 
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Chart OT 
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i Input i 
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i Process i 



$CCCOM common 



$FLGB 



@RITCB 



@LUSTB 



$DPFLH 



w 



fO 1 



TCB 



TCBTSK 



TCBJOB 



TCBNXT 



TCBCDE 



Do syntax checking; if in error, exit to 
message module, with TAXPRM value 
set. 



CDE 



CDENAM 




TCB Common Functions Below 

2 If command is USERS: 

- Set on #SUINT and #SUALL of 
$FLGB. 

- Set off TCBATV in TCBTSK. 

- If @RITCB is equal to TCB being 
checked and DPRITbit of $DPFLH 
is on, set on TCBRSM bit to cause 
registers to be restored upon exit. 

3 If command is IN IT: 

- Set on #SUINTof $FLGB. 

- Search TCB chain starting with 
@LUSTB, if TCB is in allocation, 
set off TCBATV bit. 

4 If command is COMMANDS: 

- Set on #SUCMDof $FLGB. 



O 
3 

3 
O 



If command is task and program 
name: 

- Find TCB with equal TCB ID. 

— Make sure task is running check 
TCBRUN bit. 

— Compare CDENAM with input 
name. 

- Check if task already suspended 
TCBATV off. 



- Set off TCBATV bit of TCBTSK. 

- Compare TCB address to @RITCB. 
If equal and DPRIT bit of $DPFLH 
is on, set on TCBRSM to cause 
registers to be restored when task 
gains control. 

6 Set on $CPI I and $CPFR of $CPFLG to 
invite input and free input buffer. 
$CPFLG is in $CPWK. 



Lb Output i 
■fcpnAPP J ■ 
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r 9P.3Q6 



$CC4CP 
Chart PC 



System 
console 



Common 
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$FLGB 



a=Of 



TCB 



TCBTSK 

• TCBRSM 

• TCBATV 



$CPWK 



$CPFLG 



$CPII 



$CPFR 



Diagram 9P.3630. $CC4SS (Models 8, 10, and 12) 



$CC4EP 9P.3060 



CO 

o 

CO 



■ Input i 



From $CC4PK 9P.3040 

\ ^ ■■ Process i 



$CCCOM common 



$FLGB 



@RITCB 



@LUSTB 



$DPFLH 



rp> 



TCB 



TCBT5K 



TCBJOB 



TCBNXT 



1 Do syntax checking; if in error, exit to 
message module, with TAXPRM value 
set. 



TCB Common Functions Below 

2 If command is USERS: 

- Call $CC4ST with TAXPRM-1 
set to zero. 



If command is IN IT: 

- Seton#SUINTof$FLGB. 

- Search TCB chain starting with 
@LUSTB, if TCB is in allocation, 
set off TCBATV bit. 

If command is COMMANDS: 

- Seton#SUCMDof$FLGB. 

If command is task and program 
name: 

- Call SCC4ST with TAXPAR I 
pointing to end of data. 



^^ $CC4EP 
^k 9P.3060 

rr 

$CC4CP 
Chart PC 



r 



Output i 



^^ System 
console 



Common 



=OHj 



6 Seton$CPIIand$CPFR of $CPFLG to 
invite input and free input buffer. 
SCPFLG is in $CPWK. 






$FLGB 



Bt=OT 



M>a 



TCB 

TCBTSK 

• TCBRSM 

• TCBATV 



$CPWK 
$CPFLG 
$CPII 
$CPFR 



$CC4EP 9P.3060 



Diagram 9P.3635. SCC4SS (Model 4) 
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$CCCOM common 
1 



$FLGB 



@RITCB 



@LUSTB 



SDPFLH 



@LCB#1 




Process ■ 



TCB 



->■ 



TCBTSK 



TCBJOB 



TCBNXT 



TCBTUB 



TCBCDE 



TUB 



TUBLCB 



TUBAT2 



CDE 



CDENAM 



V 



TCB Common Functions Below 

1 If command is USERS: 

- Seton#SUINTand#SUALLof 
$FLGB. 

- Set off TCBATV in TCBTSK. 

- If @RITCB is equal to TCB being 
checked and DPRITbit of SDPFLH 
is on, set on TCBRSM bit to cause 
registers to be restored upon exit. 



Note: Before suspending task, make 
sure it does not own line 2 and that i 
is not in DSM. 



J7 



LCB 



$BDDEV = X'88' 



LCBPLQ 
LCBPL@ 



PARM LIST 



~H PLCHN PLOPC 



00 




If command is task and program 
name: 

- Find TCB with equal TCB ID. 

— Make sure task is running check 
TCBRUN bit. 

- Compare CDENAM with input 
name. 

— Check if task already suspended 
TCBATV off. 



• Output 



- Set off TCBATV bit of TCBTSK. 

- Compare TCB address to @RITCB. 
If equal and DPR1T bit of $DPFLH 
is on, set on TCBRSM to cause 
registers to be restored when task 
gains control. 

3 Seton$CPIIand$CPFRof $CPFLG to 
invite input and free input buffer. 
$CPFLGisin$CPWK. 
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Diagram 9P.3640. $CC4ST (Model 4) 
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TPRECA 



TPEFFL 



$CC4PK 9P.3040 
"■^ I > pi Process 

— =o l 



$CCCOM 



©LUSTB 



@LUSTB 



#CURUS 



TCB 



TCBTSK 



TCBCDE 



TCB ID 



f4 



=>B 



COMMANDS: 

Check if commands are suspended 

#SUCMD. 

Yes move a one to TAXPRM and go 

to Q to handle. 

Else set TAXPRM for message and 

exit. 

USERS: 

If #SUALL on call, go to Q . 

Else set TAXPRM for message and 

exit. 

INIT: 

If #SUINT not on, set TAXPRM for 
message and exit. 

If #SUALL on, set TAXPRM for mes- 
sage and exit. 

Test for allocation pending #APEND 
of $AMFLG and not busy $AMBSY 
of$AMFLG. 

If true, move ATWO to TAXPRM and 
gotoQ. 

Test if allocation busy $AMBSY of 
$AMFLG. 

If busy, find the allocation task. 
Start with @LUSTB of $CCCOM and 
compare to $AMTCB field. 
Equal compare is allocation. 
If found, set on TCBATU bit of TCB. 
Set off #SUINT of $FLGB. 
Exit with TAXPRM set for OK mes- 



* 



I 



$CC4EP 
9P.3060 



$CC4CP 
Chart PC 



■ Output i 



TCB 



TCBTSK 
• TCBATU 



$CCCOM 



==> 



+ t3 



$CC4RF 
9P.3650 



9P.3645 (Page 2 of 2) 



$FLGB 

• $SUINT 

• #SUALL 



Diagram 9P.3645 (Part 1 of 2J. $CC4RE 



9P.3645 (Page 1 of 2) 



■ Input i 



13 

TCDE 



CDENAM 



te 



Process 
4 



-o 

o 



Task ID: 

Find equal ID; start at @LUSTB and 
compare TCBID to input. 
Not found, set TAXPRM for message 
offset and exit. 

Compare input program name to 
CDENAM; not equal, set TAXPRM 
for message and exit. 
Check task in termination. 
TCBTRM bit on yes, set message off- 
set in TAXPRM and exit. 
No, set on TCBATV to make task 
active. 

Check if #SUALL on. 
If yes, count all tasks with TCBATV 
and TCBRUN bits on and TCBALC 
bit off. 

If count equals #CURUS, then all 
tasks are now active. 
Set off #SUALI_ and set on #SUINT. 

5 Set on bits to invite input and free the 
input buffer. 
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Check TAXPRM bits for operation. 
A one is commands. 
A two is allocation TCB set up. 
Else users is assumed. 

For USERS: 

For each task TCBRUN is on, set on 
TCBATV. Set off #SUALL and 
#SUINT of common. 

Common exit. 

For COMMANDS: 

Set off #SUCMD of common. 

Start at @TUBQ. For each terminal 

meeting the following tests, send a 

message. 

Bits on: TUBONL,TUBCMN. 

Bits off: TUBDTA.TUBAPP, TUBUS, 

TUBIIQ. 

Store TUB address in parameter list. 

Common exit. 

For INIT: 

Set off #SUINT of common. 
Start at @LUSTB of $CCCOM. 
Find TCB with TCBRUN bit off. 
Set on TCBRUN, TCBATV, TCBDSP. 
Set on DPREG, DPDSP. 
Move $AMEPA field to TCBARR allo- 
cation entry point. 
Common exit. 



5 Exit with message offset in TAXPRM. 
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^> 1 If MLTA looping OLT active, print 

"" message and return. 



2 Set termination busy and dispatchable 
if nothing active. 



|"p:^> 3 If prior 

J I 4 Issue sti 

I invite ir 



shutdown request. 



stop invite to ail currently active 
inputs. 



C^ 5 issue Freemain if OP-end has occurred. 



6 Dequeue each TUB from invite input 
queue. 
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Send shutdown message. 
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1 Find operand start. 

Scan for a blank or comma to validate 
operand input. 

To Transfer Control Move Offset Value to 
TAXTID 

2 Blank found: 

Go to $CC4C2 if replies. 

Go to $CC4C3 if TE RMADDR. 

Go to $CC4C4 if terminals. 

Go to $CC4C5 if users. 

Go to $CC4C6 if queue. 

Operand invalid, go to message module. 

3 Comma found: 

Go to $CC4C3 if TE RMADDR. 

Go to $CC4C4 if terminals. 

Go to $CC4C7 if users. 

Operand invalid go to message module. 

4 Set bits on to invite input and free the 
input buffer. 

Exit is to one of the following as determined 
in 2and 3. 
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and exit. 

2 Load first list on chain. 

Check PLCHN for more on queue. 
If no more, set last switch. 
> PLTCBA field is TCB. 

Move TCBI D to print line. 

3 Check if header already printed. 
No print header. 

Print detail line by branching to resident 
code with parameter list pointed by 
ARR. 

4 Check switch. 

If set, return to command processor 

by $CC4TR. 

Else repeat from 2. 
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and exit. 

2 Load first list on chain. 

Check PLCHN for more on queue. 
If no more, set last switch. 
► Display message again. 

3 Check if header already printed. 
No print header. 

Print detail line by branching to resident 
code with parameter list pointed by 
ARR. 

4 Check switch. 

If set, return to command processor 

by $CC4TR. 

Else repeat from 2. 
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Scan buffer for comma or blank. 
If blank, print all names in TNT chain; 
if comma, oniy one name printed. 
If name entered more than six charac- 
ters, give error message. 

Comma found, compare name to 

TNTNAM. 

If found, set switch for one line of print. 

If not found, set message offset in 

TAXPRM and go to error module. 

Load address of TNTTUB and pass to 

next step. 

Load address of first TNT and save. 

Check first byte of TNTNAM. 

If blank, check next entry. 

Move name to print line from TNTNAM. 

Check TNTTUB for pointer. 

If none, no physical ID for this name. 

Check TNTMCT for zero value. 

If non-zero, load TNTTNT to get TUB 

pointer from prime TNT. 

Move physical ID from TUBID to print 

line. 

Check if TNT and TUB point to each 

other. 

If not move ASTRIC to print line. 

Move address of console TUB to param- 
eter list and branch to resident code 
to print. 

Check switch to see if done. 

Chech TNTSTP to see if done. 

If yes, set bits to invite input and free 

input buffer. 

Exit to caller by $CC4TR. 

If no, repeat by going to 3 with next 

TNTinXR2. 
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1 Find operand start. 

Scan a blank for a request to display all 

terminals. 

Comma is request for one terminal to be 

displayed. 

2 Comma found: 

Is next character an apostrophe? 
> Yes, store address in TAXPRM. 
No, request is by symbolic name. 
Compare input name to terminal name 
in TNTNAM, starting with @TNTQ. , 
Not found, set TAXPRM for message. 
Found set switch for one line of print. 
Check TNTMCT for zero value. 
Non-zero, load TNTTNT to point to 
prime TNT. 

Load TNTTUB for TUB address. 
Save for set up routine. 
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3 Set up routine for printing all lines. 
Start at @TUBO. 

For each FSB on TUBFSB chain, add 1 

to FSB count. 

Move TUBID to print line. 

IsTUBONLbiton? 

No, move off to print. 

Are TUBDTA and TUBCMD off? 

Yes, move I NIT to print. 

Is TUBCMN on? 

No, move STBY to print. 

Are TUBDTA and TUBCMD on? 

Yes, move data to print. 

Is TUBDTA on? 

Yes, move data to print. 

IsTUBREQon? 

No, move AN'N' to print line. 

Is TUBOLT on? 

Yes, move OLT to print add constant to 

output length. 

IsTUBERPon? 

Yes, move ERP to print, add to output 

length. 

Use TUBTCB, move TCBID to print line. 

4 Branch to resident code for printing 
point to parameter list with ARR. 

5 Check switch to see if print done. 
No return to set up routine with next 
TNT in XR2. 

6 Branch to $CC4TR (Chart OT) to return 
to command processor. 
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$CC4C9 9P.3780 

Process ■b^^mmmh 
1 Check TAXPRM for zero value. 



Non-zero is a return from $CC4C9, so 
use value for next TCB to process. 
Zero, start from last user TCB<s>LUSTB. 
If return from $CC4C9, set switch for 
header printed. 

Find a TCB whose TCBRUN bit is on. 
No TCB found, call message module with 
message offset in TAXPRM. 
Found start setup. 
On last TCB go to 6. 

Check header switch if not on branch to 
resident code to print with parameter 
list address in ARR. 

Save the current TCB address in TAXPRM 
for next transient. 

Test for task suspended TCBATV off. 

Yes,SUSPND in status line. 

Test for task dispatchable TCBDSP on. 

active in status. 

Convert wait mask from TCBWMK, move 

to status I ine. 

Test TCBPRT, TCBMFU and TCB 142 

for each on, add one to unit record 

count. 

Count each TUB chained from TCBTUB. 

Test for allocation task TCBALC on. 

Yes, skip core conversion. 

Convert core, move CDELNG to work 

area, add CDEDFF. 

Move to print line. 

Now move program name from CDENAM 

field to print. 

Add length constant to output length to 

print allocation with print line. 

If allocation task program name is in 

buffer, use @TUPST to find and move 

program name from the buffer. 

Move adcons for DTF counting to $CPWK 

for use by next transient. 
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5 Call next transient to set up count of 
DTF's and to output the print line. 

6 When last found, determine if active 
TCBRUNbiton. 

Yes, go to 3. 

No, check TAXPRM for value set by 

$CC4C9. 

None, return with message offset in 

TAXPRM. 

At least one task processed, check if 

#DFLOD is non-zero, indicates DFF 

active. 

If active, call $CC4CA. 

Else exit to message module. 
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^j^l Check if any i OB on aiiocation queue 
@TUPST. 

If none, issue message with offset in 
TAXPRM. 

P_l^>2 Move program name from buffer to 
print line. 

Move terminal name from TNT name 
field to print line. 

3 Move console TUB address to parameter 
list. 

Print header line if not yet done. 
Print line with program and terminal. 
If more TUB'S on queue, repeat step. 



4 Set on bits to invite input and free the 
input buffer. 
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1 Compare Q n 6rsnd to last. 

If equal, go to routine to output last 
task ID. 

2 Is input numeric task I D. 

Compare ID to TCB chain starting with 

@LUSTB. 

No match, set TAXPRM and exit. 

3 Check that TCB RUN bit is on and 
TCBALC bit is off. 

Exit to message module if either check 
fails. 

4 Test TCTJOB for TCBPRT,TCBMFU, 
TCBN41 , TCB142 unit record devices. 
Branch to 7. 

5 For each TUB, move physical and sym- 
bolic name to print and branch to 7. 

6 For each disk DTF, move name to print 
line and branch to 7. 

7 Common print routine: 

- Store ARR. 

- Store XR2. 

- Move adcons passed by ARR to 
parameter list. 

- Add value of four to ARR stored 
value. 

- Move console TUB address to param- 
eter list. 

- Branch to resident code to print. 

- Return to routine by new ARR value. 

8 Branch to $CC4T R for command pro- 
cessor (Chart OT). 
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Load from TAXPRM pointer to buffer, 

passed by caller. 

Check that ID is in quotes. 

OK save I D; else set message offset in 

TAXPRM. 

Compare input ID to TUBI D starting 
with @TUBQof $CCCOM. 
If found, go to set up; else set message 
offset in TAXPRM and exit. 

Print set up. 

- For each FSS on TUBFSB chain, add 
one to count. 

- IsTUBONLbiton? 

No — move off to print. 

- AreTUBDTAandTUBCMDoff? 
Yes — move INIT to print. 

- TUBCMNoff? 

Yes — move STBY to print. 

- TUBDTAandTUBCMDon? 
Yes — move CMDI to print. 

- TUBDTAon? 

Yes — move data to print. 

- TUBREQoff? 

Yes — move an 'N' to print. 

- TUBOLTon? 

Yes — move test to print and add 
constant to print length for output. 

- TUBERPon? 

Yes — move ERP to print and add 
constant to print line length for 
output. 

- Use TUBTCB address, move TCB I D 
to print. 

- Use TUBTNT address, move TNTNAM 
to print. 

Use @KMTCB for console TUB move to 

parameter list. 

Branch to resident code. 

ARR for list. 



5 Return by $CC4TR transient return. 
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1 Move adcons placed by $CC4C5 from 
$CPWK area internal. 

Used to fill in parameter list. 

2 Address of TCB being processed is passed 
by caller in TAXPRM field. 

Load address and use TCBFBM to set up 
DTF test. 

3 Address first DTF from $CCCOM field 
of @DFCT. 

If zero value no DTF, go to print routine. 
Else test each DTF for DFUSE of this 
TCB; add to count for each match. 
Move total count to print line. 

4 Branch to resident code to print a line 
with parameter list from ARR. 

5 On return, compare TCBN XT to $CCCOM 
field @LUSTB. 

If equal, end of TCB chain. 

Return to command processor if DFF 

field of #DF#S is zero; if non-zero, go 

to $CC4CA. 

Else load address of next TCB and store 

in TAXPRM and call $CC4C5 again. 
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^ 1 Check if #CURUS is non-zero indicating 
- active tasks. 

If not, go to message module with mes- 
sage offset in TAXPRM. 



2 Move console TUB address to parameter 
list for $CC4IS use @KMTCB for con- 
sole. 

3 Move value from $CCCOM at #DF#S to 
work field. 

Add to work field from #DF1 LN and 
#DF2LN number of 256 byte blocks 
used by DFF now in work. 

4 Convert work field value to number of 
blocks of core used. 

Move value to print line. 

5 Branch to main line code to do printing. 

6 On return, return to command proces- 
sor by $CC4TR". 
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PCTAT1 

• PCTMFU 

• PCT142 

• PCTPRT 
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PCTNUT 
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Set the default attributes to the 
requesting terminal. 



^^^2 Set up the allocation work area 
| I for subsequent routines: 

• Set PCT address. 

• Determine what resources are 
required and set routing bits 
for each. 



If no bits are on, halt with a U— , 
AL (allocation error). 



Exit to the first allocation proces- 
sor whose routing bit is on in the 
allocation post mask. 
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$CC4CR 9P.4020 or$CC4AD 9P.4060 or 
$CC4TB 9P.4070 or $CC4UR 9P.4080 via 
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If this program needs DFF, allocate 
main storage for it and the output 
hold areas and load $CC4DF. (Not 
available for remap.) 

If this program uses DFF, allocate 
main storage for output hold areas 
(remap only). 



2 Find an available contents directory 
entry to use. 



$CC4RM 
Chart OZ 



$CC4FM 
Chart OZ 



■ Output i 



DSM load 
See note 



Matching CDE found reload 
in place. 



I 





$CCCOM 




$AMWK 






#DFBEG 






#DFEND 




$AMFLG 
• $AMDFF 




#DF1@ 


#DF2@ 








$MVFLG 















Yes 



-No 



If program must run dedi- 
cated, is any other program 
running? 



•No 



If program in storage and 
reusable, do not reload. 



t Otherwise 



Was a CDE found? 

I No Yes 



^ 



CDE 

=[> | cdeent" 



TAXPRM 
^> | CDE@ 



$CC4AD 9P.4060 $CC4CS 9P.4030 $CC4CT9P.4040 

$CC4TB 9P.4070 via via 

$CC4UR 9P.4080 $CC4TX Chart OT $CC4TX Chart OT 

via 

$CC4TX Chart OT 

or 

$CC4AM Chart PF 

via 

$CC4TR Chart OT 



Note: See IBM System/3 Models 4, 6, 8, and 10 
Disk Systems System Control Program 
Logic Manual, SY21-0502. 



• Diagram 9P.4020. $CC4CR 
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m Input i 



3 
o 



TAXPRM 



CDt@ 



$CCCOM 



@UABGN 



@UAEND 



$CCCOM 



@CDORG 



$CCCOM 



$CC4CR 9P.4020 via $CC4TX Chart OT 



$AMWK 



$AMPCT 



Program 

characteristics 

table 



PCTSZ 



PCTDFF 



PCTCS 



PCT#S 



PCTENT 



PCTLNK 



PCTAT2 






Process i 



CDE 



CDEATR 

• CDETCB 

• CDENEP 

• CDECOR 



Allocate main storage from the user 
program area. 

• Add in user DFF sizes if used. 

• Force to a user program area 
boundary if program is never 
ending program. 



Adjust UPA boundaries if 
program is NEP. 



$CC4RM 
$CC4GM 
Chart OZ 



■ Output i 



*? 



CDE 



CDEATR 



CDEENT 



CDELNK 



CDE DFF 



'1st entry retry 



$AMWK 



$AMPCT 



PCT 
L-H PCTDFF" 



#DFLOD 




TCB 


@CURTB 


^ 


TCBDFF 




#DF1LN 


TCBNXT 


#DF2LN ; 






#DF#S 




@UPA 




$MVFLG 





2 If storage allocation fails attempt 
(one time) to purge CDE's describing 
f^> storage, but are inactive. 



$CC4FM 
Chart OZ 



CDELOD 



CDES1Z 



$CCCOM 



@UABGN 



@UAEND 



CDE 



' Not 1st Entry 



3 Purge DFF and the output hold areas 
| if in storage and not in use or needed. 
I"«L If remap, never purge $CC4DF. 

DFF No DFF to Purge 




CDEATR 
• CDECOR 



$CCCOM 



Fail 



$CC4FM 
Chart OZ 



#DFLOD 



#DFEND 



#DFBEG 



$CC4AD 9P.4060 


1 OK 


$CC4TB 9P4070 


1 Successful 


$CC4UR 9P.4080 


1 allocation 


via 


1 


$CC4TX Chart OT 


f 




$CC4CT 




9P.4040 




via 




$CC4TX 




Chart OT 






• Diagram 9P.4030. $CC4CS 
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$CC4CR 9P.4020 $CC4CS 9P.4030 
via $CC4TX Chart OT 



m. Input i 



CDE 



TAXPRM 



| CDE@ 



$AMWK 
- | $AMPCT~ 



CDEATR 

• CDECOR 

• CDESER 



CDEAT2 
■ CDEPAK 



CD ECS 



CDELOD 



14. 



PCT 



PCTAT1 

• PCTDPL 

• PCTMTS 

• PCTNEP 



$CCCOM 
j jjiPFLOD 



$AMWK 



$AMFLG 
• $AMDFF 



$EDFA 



DFF 

' ' module 



$CC4DF 
(PV) 



Table of resident 
CCP addresses in 
this module 
$CC4CT (macro) 



TAXPRM 
| CDE@ 



$CCCOM 



@TUPST 



@PUCNT 



TUB 
- H TUBDML" 

















^1 If required, load/reload program into 






DSM 
load 
See note 





















*2 Initialize the CDE from the PCT and 
bind CDE to TCB. 



■ Output i 

CDE 



CDEATR 

• CDEDPL 

• CDEMTS 

• CDENEP 

• CDE DAT 

• CDESER 

• CDETCB 

• CDECOR 



TCB 



3 Indicate storage allocate complete. 



TCBDMG 

• TCBNEP 

• TCBMTS 



TCBCDE 



TCBDFF 



$AMWK 



If DFF module $CC4DF was loaded 
during this allocation, relocate its 
references to the resident CCP module. 



Error dF 
sub-halt 



\<5 Increment the program request count 
for this program. 



, CP HALT 
Chart OV 



$AMWMK 

• WPBFK 
$AMPMR 

• WPBFR 



DFF 
module 



$CC4DF 



If DFF is used, else 



CDE 



| CDESTA | - 



Program use 
count table 



This program 
entry 
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$CC4DA 9P.4050 via 
$CC4TX Chart OT 



$CC4AD 9P.4060 
$CC4TB 9P.4070 
$CC4UR 9P.4080 
$CC4A2 9P.4090 
via $CC4TX 
Chart OT 



Note: See IBM System/3 Models 4, 6, 8, and 10 
Disk Systems System Control Program 
Logic Manual, SY21 -0502. 



Diagram 9P.4040. $CC4CT 



$CC4CT 9P.4040 



■ Input i 



$CCCOM 
Common 







Sg>CURTB 




















TCB 
















TCBDFF 






TCB ID 






TCBCDE 














CDE 




I— >■ 








CDEDFF 




CDEFDT 








Process ■ 



1 Find the begin address and length of 
PAS for this task. 

2 Initialize pointers to TT and FDT areas. 

3 Initialize the constants in the COPY and 
*E ALT text areas, and in the IOB. 

4 Determine which transient to call next. 



■Output i 



PAS 



PASITT 



PAS FDT 



PASTID 



PASCES 



PASEUE 



PAS N FT 



PASEFT 



PASDFL 



PASOCM 



PASEU® 



PASEUC 



PASCP@ 



PAS I OB 
• IOBRB 



PASIOB 
• IOBFLG 



PASRFN 



$CC4AD 9P.4060 $CC4TB 9P.4070 
$CC4UR 9P.4080 SCC4A2 9P.4090 
via $CC4TX Chart OT 



This transient is called only if DFF will be used 
by the program (CDEDFF is not zero). 



Diagram 9P.4050. $CC4DA 
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■ Input i 



$AMWK 
| $AMPCT h 



$CCCOM 
@CURTB 



$CCCOM 



CCP 

short DTF 



DFUSE 



DFADD 



$CC4A1 9P.4010 
$CC4CR/CS/CT 9P.4020/30/40 
via $CC4TX Chart OT 



PCT 



PCTNLT 



PCTNDT 



TCB 



TCBID 



ft. 



Process i 



@>TUPST 




@DFCT 


TUB 




| TUBFSB 


t±i 



PCT 



PCTDTD 



PCTMDE 
• PCTSYM 



File 

specification 

block 



FSBSYM 



FSBNXT 



l^> 1 Calculate the PCT disk entry address 
and set TCB to indicate allocated 
disk files. 



r 



Output i 



PCT 



PCTMDE 

• PCTSHR 

• PCTLOD 

• PCTADD 

• PCTNRU 



■^ 2 Find each disk file entry DTF. 



V> 3 Allocate each disk file. 



TCB 



TCBDMG 
• TCBDA 



CCP 
short DTF 



B=C> 



Samwk 



$AMWMK 

• WPBTUB 

• WPBUR 



If all disk files are allocated, indicate 
not to come back to this routine. 



>5 Can allocation 
continue? 



I 



6 Exit to next 
allocation 
processor. 



DFADD 



DFUSE 



DFATT 

• DPNCUR 

• DPNPND 



SAMWK 
$AM#DA | 



J 



$AMWK 



$AMWMK 
• WPBDA 



$AMPMK 
■ WPBDA 



No, allocation 

must wait 

$CC4AM Chart DF 

via 

$CC4TR Chart OT 



$CC4TB 9P.4070 

$CC4UR 9P.4080 

$CC4AZ 9P.4090 

via 

$CC4TX Chart OT 



Diagram 9P.4060. $CC4AD 



■ Input i 



$CC4CR/CS/CT 9P .4020/30/40 
$CC4AD 9P.4060 $CC4A1 9P.4010 
via $CC4TX Chart OT 

Process i 



$AMWK 
$AMPCT 
PCT 



PCTNLT 



5 



PCTLTD 



SCCCOM 
@TNT 

Terminal 
name table 
TNTTUB 






I PCTTAS P =C>H 



Line 

control 

block 



Terminal 
unit block 



LCBTCB 
SCCCOM 



@CURTB 



@CPTCB 



@TAS 





TUBAT1 

• TUBREQ 

• TUBSWC 


TUBLCB 






TUBTCB 



Terminal 
attributes 
table 



-*■ 



$AMWK 



$AMWMK 
• WPBUR 



Find the TUB for each program 
selected terminal in the PCT, 



2 Determine if the TUB is already 
allocated to this task. 



3 If the TUB is owned by the 
command processor, allocate it 
to this task. 



■Output) 



n=S> 



$AMWK 








Current 
TCB 


$AM#LT 








TCBTUB 










Line control 


TUBTNT 




block 


TUBTCB 




LCBTCB 




TUBAT2 

• TUBDTA 

• TUBCMD 

• TUBAPP 


LCBATC 


Command 
processor 
TCBTUB 



If owned by a user task, indicate 
that allocation needs it and, if on 
a switched line, that the line is 
needed too. 



B=OL 



Set the terminal attributes according 
to the PCT. 



If all terminals allocated indicate not to 
come back to this routine. 



If allocation can 
continue, exit to 
next allocation 
processor 



If allocation 
must wait 



$CC4UR 9P.4080 
$CC4A2 9P.4090 
via $CC4TX Chart OT 



$CC4AM Chart PF 
via $CC4TR Chart OT 



TCB 



$AMWK 

:£> |$am#lt T =T>S 

Line control 
block 



w LCBATR 
T^ •LCBAPP 



Terminal 
unit block 
:£>! TUBAT2 



TUBAPP 



TUB 
^ > TUBCAJ5 | 



$AMWK 



$AMWMK 
• WPBTUB 



$AMPMK 
• WPBTUB 



CO 
CO 
CO 



Diagram 9P.4070. $CC4TB 



to 

CO 



$CC4DA 9P.4050 
$CC4A1 9P.4010 



$CC4CR 9P.4020 
$CC4CS 9P.4030 



$CC4CT9P.4040 
$CC4AD 9P.4060 



p Input i 



$CCCOM 







TCB 


@CURTB 


> | 




TCBNXT 






TCTJOB 

• TCBMFY 

• TCB14L 

• TCBPRT 



I 




PCT 


| $AMPCT 


►- 




J 1 




PCTAT1 

• PCT142 

• PCTMFU 

• PCTPR2 











$AMWK 



$AMWMK 



H 



$CC4TB 9P.4070 
via $CC4TX Chart OT 



Process ■ 



For each unit record device (MFCU, 
3741, 1442, printer), determine if 
device is available. 



If available, bind it to the current 
task (allocation). 



p Output i 



When all devices are allocated, set 
unit record device allocation com- 
plete. On the Model 12, if the 
device is the printer and it is spool- 
ed, it is not allocated. 



If device not available, set unit 
record device post needed indica- 
tion. 



^—^ 5 If all resources are allocated, go to allo- 
cation final routine. 



T 



No, allocation 
must wait 



I 



TCB 



TCBJOB 

• TCBMFU 

• TCB 142 

• TCBPRT 

• TCBN41 



$AMWK 



$AMWMK 

• WPBUR 
$AMPMK 

• WPBUR 



$CCCOM 



$DVPST 

• $DVMF4 

• $DV142 

• $DVPRT 

• SDUN41 



Yes, complete 



$CC4AM Chart PF 

via 

$CC4TR Chart OT 



$CC4A2 9P.4090 

via 

$CC4TX Chart OT 



Diagram 9P.4080. $CC4UR 



■■Input i 
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SCC4CT9P.4040 $CC4AD 9P.4060 $CC4UR 9F.4080 
$CC4DA 9P.4050 $CC4TB 9P.4070 via $CC4TX Chart OT 



$CCCOM 



@TUPST 



@CURTB 



Terminal 
unit block 



_ I ^^ Process i 

Vtkz 



TUBPST 



TUBTUB 



TUB IN Q 



"r 



TPRECA 



TPEFEL 



task unless it is console and no data 
was input. 



2 Free input buffer if no data was 
input: 
Post communications task. 



TUBINQ 



$CPWK 



$CPFLG 

• $CPNEP 

• $CPR4H 



3 Put requesting TUB on current task 
input, queue if more TUB's (MRT's). 



User task 

control 

blocks 



TCBTSK 
• TCBRUN 



=c> 



4 Post command processor if this was 
a never ending program and program 
request hold queue is active. 




5 If there is more work for allocation, 
see if a TCB is available and set it up 
to run. 



6 Exit to give control to the user pro 
gram. 




$CC4AM Chart PF via 
$CC4TR Chart OT 



Diagram 9P.4090. $CC4A2 



CO 
CO 
0) 



$CC4TM Chart PL via $CC4PI Chart OT 
■ Process ■ 




Find a TCB to terminate and if abnormal 
termination, go take a dump and tell 
system operator. 

Set CDE attribute byte based upon type 
of program and type of termination. 



$CC4TW 
9P5020 
via 

$CC4TX 
Chart OT 



Go free any unit record or disk de- 
vices allocated to terminating task. 



Go free any teleprocessing devices 
allocated to the terminating task. 



Free DFF line buffer if applicable. 



Dequeue DSM transient area if task 
owns it. 



Reinitialize the terminating TCB. 

Look for more tasks to terminate clear 
suspend all if last active decrement # 
users. 



9 Set up allocation task if necessary. 
10 Exit if no more work. 
CCP shutdown or cancel. 



Diagram 9P.5010. $CC4TD 



$CC4EJ 9P.5070 
via $CC4TX Chart OT 



Quiesce 
termination 



$CC4TM Chart PL 
via $CC4TR Chart OT 



F 



$CC4PS 
Chart OJ 



SCC4LT 
9P.7300 
via 

$CC4TX 
Chart OT 



$CC4TN 
9P.5040 
via 

$CC4TX 
Chart OT 



$CC4PS 
Chart OJ 



Output i 



TCB 




TCBCMP 

• TCCINV 

• TCCEOT 

• TCCNEJ 



STMWK 



$TMTCB 



ST 



CDE 



CDEATR 

• CDECOR 

• CDETCB 

• CDESER 



DSM transient 
area routine 
^> | NCXTAB [ 

TCB 



=o 



Reset all 
fields in 
TCB 



$CCCOM 



SFLGB 

• #SUALL 

• #CURUS 



TCB 



TCBTSK 

• TCBATV 

• TCB DSP 
•TCB RUN 



TCBARR 



TCBFLG 

• DPREG 

• DPDSP 



$CC4TD9P.5010 



■o 
o 



i Input i 



$CC4TX Chart OT 
i^^mm^ | ^p Process ■ 



$TMWK 



$CCCOM 



$TMFLG 
• $TMDMP 



$TMTCB 



=S>H 



#DUMP# 

#MXDMP 

#CPFLQ 

@CSTRT 

#NSEC 



SKWWK 



#KMSWT 

• #KMBSY 

• #KMSWL 



See note 
I NCSYS@~ 

System 

communication 
area 
I NC@CIO t 



DSM 
$$COIH 



$CCCOM 



KMFLG 
• FLGOUT 



@KMQTB 



Console I/O 
parameter lists 



PLCHN 



PLTCBA 



PLOPM 
• QP$SYS 



jr 



1 If a dump has not been taken on the 
current termination pass and there is 
sufficient dump space, take a dump. 



■ Output i 



2 Dequeue all pending user console I/O 



J^> for the terminating task 



NCEIOS 

and 

NCEIOW 



See note 



o 



$CCPFILE 



All of 

main 

storage 



$CCCOM 



$CC4TK 9P.5025 

via 

$CC4TX Chart OT 



#DUMP# 



@CSTRT 





Console I/O 
parameter list 










PL$OPM 
• OPNPST 


PLCHN 






TAXPRM 






Bit? 






TAXTID 






ID for 
$CC4TK 
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* Diagram 9P.5020. SCC4TW 
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$CC4TW 9P.5020 



^Inputs 



TAXPRM 
Bit 7 



■- t f Process. 



$TMWK 
I" STMTCB " 

Terminal 
unit block 



Terminating 
TCB 



TUBID 





TCB ID 




TCBTUB 








TCBCDE 


TCBCMP 


— »■ 


CDE 




\ CUE NAM | 



^> 1 Determine if system parameter list. 



•2 Print message to system operator to 
tell who terminated dump #. CCP 
cancel. TCB CMP code. 



r 



Outputi 



Console I/O 
parameter list 



3 Exit to continue task termination. 



$CC4IS 

Chart PP 



PLOPC 



Message 526 or 
Message 530 



Note: See IBM System/3 Models 4, 6, 8, and 10 
Disk Systems System Control Program 
Logic Manual, SY21-0502. 



$CC4TD 
9P.5010 



Diagram 9P.5025. $CC4TK 



$CC40R 9P.7030 via $CC4TX Chart OT 
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B BlSp^Sl 



Termination 
work area 
p -| STMTCB 

$CCCOM 



Task control 
block 



$DVPST 

• $DVPRT 
• $DVMFU 

• $DV142 



TCBJOB 

• TCBPRT 

• TCBMFU 

• TCB142 






4 



TCB 



$CCCOM 



TCBDMG 
• TCB DA 



Sector queue 
block 



SQBFLG 

• SQBOWN 

• SQBEND 



SQBTCB 



$FLGA 
• #DSKFS 



@SQB 



@DFCT 



Short DTF's 



Allocation 
work area 



$AM#DA 



$AMTCB 



DFUSE 



DFADD 



DFATT 

• DFTAPP 

• DFXAPP 

• DFAAPP 



DFNDTF 



For each unit record device allocated 
to this task, see if allocation needs 
it. 



$CCCOM 



2 Post allocation if all needed devices 
have been freed. 



3 If task owns any disk files, free any 
encumbered sector queue blocks. 



S 



ZZZ^>> 4 Deallocate owned disk devices and 
I »J check allocation needs. 
Post allocate if necessary. 



$CC4PS 
Chart OJ 



$CC4RQ 
Chart ON 



$DVPST 

• $DVPRT 

• $DVMFU 

• $DV142 

• $DUN41 



I 



$CC4PS 
Chart OJ 



S> 



XR2 




Sector 
queue 
block 







Short DTF 



5 Do terminals need deallocating? 
Yes No, Exit 



DFUSE 



DFADD 



DFATT 

• DFXAPP 

• DFTAPP 



Allocation 
work area 
$AM#DA 



I 



$CC4TN 9P.5040 via 
$CC4TX Chart OT 



$CC4TD9PS010via 
$CC4TX Chart OT 
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Diagram 9P.5030. $CC4TF 
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$CC4TD 9P.5010 $CC4TF 9P.5030 via SCC4TX Chart OT 
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ID 
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i Input i 



$CCCOM 

@TMTCB 



$TMWK 



] | $TMTCB ~| 



fr. 



Line control 
block 



TUB 



$MDAT2 
• $MAOPN 



$BDATR 
• SBCOPN 



TUBCHR 
• TUBLNE 



TUBAT1 
• TUBSWC 



TUBLCB 



TPEFFL 



TPRECA 



Diagram 9P.5040. $CC4TN 



Process i 



Temporarily allocate each terminal 
owned by the terminating task to the 
termination task. 



JS, ^^ Stop any TP operations to each device 
1 -J if task isn't terminating normally. 
-^ Set specif ic OP codes dependent upon 
device and line type. 



B=g 



3 Freemain buffer if input received 
during stop operation. 



4 Invoke termination terminal restart 
routines. 



r Output i 
Terr 
TCE 



$CC41S 
Chart PP 



CMFMRT 
Chart QQ 





Termination's 

TCB 

TCBTUB 

TUB 


Terminating 
TCB 
| TCBTUB | 

TAXPRM 
| • TPABN j 




TUBTCB 


TUBING 


EK^I 







> 








I/O parameter 
list 








ARR 




PLOPM 




BKJ= 


PLOPC 








PLTUBA 




PL$RTC 

















$CC4TP 9P.5050 via $CC4TX Chart OT 



CO 
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■ Input i 



$CC4TY 9P.5060 $CC4TN 9P.5040 via $CC4TX Chart OT 

■ Process mmm^m 



TAXPRM 



Bits 0,2, 3, 
4, 5, 6, 7 



Termination 
work area 



$TMTCB 



Line control 
block 



LCBATR 

• LCBAPP 

• LCBNIT 



LCBATC 



$MDAT2 
•$MA0PN 



$BDATR 
• $BC0PN 



$CCCOM 



$FLGB 
• #CPCAN 



$FLGA 
• CPSHUT 



@CPTCB 



^ 



Task control 
block 



TCBINQ 



TCBCDE 



S3 



TUB 



TUBLCB 



TUBAT1 

• TUBREQ 

• TUBSWC 

• TUBKNS 



TUBCHR 

• TUBLNE 

• TUBCMN 



TUBAT3 

• TUBERP 

• TUBOLT 

• TUBSWL 

• TUBSPF 



TUBAT2 
• TUBIIQ 



o— { 



Contents 
directory 
entry 



CDEAT2 
• CDEEMG 



Is: 



■=^ 



!> 



= ^ jjj 



Determine if initial or subsequent entry. 



Process each TUB on the terminating 
tasks chain. 



Set parameter control bits for 2nd 
restart transient and invoke it. 



Subsequent 



p Output i 



Termination tasks 
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operation, post the command pro- 
cessor. 
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Diagram 9P.5060. $CC4TY 



If the terminal is switched and has 
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minal. 



2 Determine if any I/O is to be done to 
the terminal and do it if needed. 
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Post the allocation task if necessary. 
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Put the TUB back to its owning 
system task (command processor or 
communications). 
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1^ 3 Wait for OP-end, and exit to dispatcher 



to process it. 



li — i^ 4 Set to ignore MLTA interrupts. 

^5 Clear BSCA interrupt handler. 
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6 Disable console request key. 

Print shutdown message. 
8 Load and relocate $CC5SH. 



^9 Set TCB save areas for $CC5SH. 
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Note: See IBM System/3 Disk Systems System 
Control PLM, SY21-0502. 
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1 If OP code or modifier invalid, terminate 
with code '01'. 

2 If PLINL = 0, terminate - 'OE'. 

3 If no invite outstanding — non-never 
ending program, terminate — '12'. 

4 Find TUB with completed invite to 
satisfy accept. 



i> 5 If console and requestor, release the 
console TUB. 

i If no completed invites: 

A. If no TUB's on non-never ending 
program TCB. 

B. If the only TUB's with invites out- 
standing are BSCA and another TUB 
owns the same line, terminate — '1 D'. 
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Dequeue TUB from invite input TUB 
queue. 
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4 Move symbolic terminal name to record 
area from TNT. 



5 If error, clear the record area to blanks. 



— 1^ 6 If no error, move data to record area 
and Freemain invite hold buffer. 
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Send release messages and re-invite com- 
mand capable terminal if shutdown is 
not pending. 



2 Set TUB bits, modify system console 
message. 



Remove TUB from user TCBTUB; chain 
and put it on command processor 
TCBTUB chain. 

If already input queued from the invite, 
take TUB from user INQ-chain and put 
it on command processor INQ-chain. 
Post command processor. 
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1 If release OP code. 

2 If acquire OP code. 

3 If not get attributes. 

4 If PLRECA not large enough. 

5 Set allocation status. 

6 If undefined symbolic name. 

7 If valid request. 
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3 Set record/block length. 

4 Set terminal attributes. 

5 Set line number. 

6 Move data to record area. 
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Validate operation 

If OP for subterminal name 
or console 

or TUB belongs already user task 
or set terminal attributes and TUB 
owns the line. 

Set TCB-completion code and exit. 

Indicate if only set attributes. 



Check if terminal is available 
In the following cases it's not: 

• Terminal in E RP. 

• Terminal not on command. 

• Processor TCB-chain. 

• Allocation or program-request pend- 
ing for terminal and it is a never end- 
ing program. 

• Terminal offline. 

• Input queued for terminal. 

• Terminal not in initial mode. 
Set user return code. 



If stop polling failed and input isqueued, 
take TUB from user TCBINQ and put it 
back on command processor TCBINQ 
and post command processor. 
Terminal not available. 
Set user return code. 
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is available. 

— If not, set user return code. 

2 On acquire, get standard attribute set on 
set terminal attributes the new set. 

- Validate attributes set for the ter- 
minal. 

— If invalid, set TCB completion code 
and exit. 

4 Put attribute set into TUB, set LCB for 
switched line. 
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1 If invite scheduled, issue stop polling 
request. 



£^ 2 Take TUB from command processor 
TCBTUB-chain and put it on the use* 
TCBTUB-chain. 

3 Give TUB the current TCB and TNT 
address and set in data mode. 
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cation for next module. 
If any error set to completion code. 
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Error exit 
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Send release message to command 
capable terminal, modified if shutdown 
is pending. 



Re-invite terminal if invite has to be 
done. 



Disconnect if it is a switched terminal 
and release keep or not command 
capable. 



4 Always re-invite BSCA disconnected 
switched terminals. 



Take the TUB from user TCBTUB-chain 
and put. 



6 If already input queued from the invite, 
take TUB from user TCBINQ chain and 
put it on command processor TCBINQ 
chain and post command processor. 

7 Move invite input count into third para- 
meter list element. 

8 Switched line not keep, put command 
processor TCB@ into LCBTCB. 

9 Switched and requesting TUB. 
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Move WCC and user's length of data to 
PAS. 

If 'reset MDT' specified in WCC, clear 
IFTinTT. 



If name in data does not match a 
field name in FDT, place termination 
code and record position into PAS 
return. 

If field is not an output field, incre- 
ment indicator to next field. 

If 'type', 'cursor' or modify 
data indicators are invalid or if at- 
tempting to modify input field. 
Place termination code in PAS and 
also the record position and return. 
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B=> 



6 Verify amount of data provided by user. 
If incorrect, place termination code in 
PAS and return. 

7 If attempting to erase an output or 
SPD field, place termination code 
in PAS, record position, and return. 
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Ht^> 1 Move all information from the from TT 
entry to the to TT entry. 
TT entry addresses are in PASTOD and 
PASFRD. 



TUB 
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Save terminal internal BSCA ID from 
TUB in PAS, and terminal type of 'to' 
terminal ('from' TUB address in PL$RTC, 
to' TUB address in PLTUBA). 

Access the polling list (pointed to by 
'LCBPOL'). 

Search polling list for matching BSCA 
Internal ID and save control unit and 
device address for each terminal. 



5 If the ID was not found in the polling 
list, if the terminals are not on the same 
control unit, or if the 'from' terminal 

is not online, move termination code to 
PAS and return. 

6 If the model numbers of the 'to' and 
'from' terminals do not match, move 
a termination code into PASTC and 
return. 

If user defined length is not 6 or 7, 
move termination code to PASTC and 
return. 



name > ccc 



j^g 8 Move default ccc to 'copy' text area in 
-\S PAS if ccc not provided by user. 



If ccc is given by user, move it to text 
area. 

Finish building up the 'copy' text and 
modify the users parameter list to use 
the text in PAS. 
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1 Determine if there is a term ination code 
which requires this message. (See note.) 
If not, return. 



there is, calculate the position in the 
record area where the error occurred and 
convert to decimal. 
Move result to message. 

3 I ssue the message through console 
management. 
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Note: The termination codes for which this mes- 
sage is given are EE, EF, FO, F1, and F4. 
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i n«-*.u » f.aiA nomp in the user record 
area to a field name in the FDT. 

2 Calculate the text length needed for 
the Put Override. 

3 Place the text length into PAS. 

4 Determine if blocking is needed or not. 
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^ 1 Save user's registers and return address. 



i— p> 2 Point XR2 to user's parameter list. 



3 Set address of user's record ; 
user's parameter list. 



4 I nvoke CCP via general entry to perform 
communication operation. 
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Output i 



Subroutine 
save area 



XR1 



XR2 

Return address SsJ^JR] 



> [XR2| 



$CC4II 
Chart PP 
via 
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Chart OR 






5 Restore user's registers. 
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Return to user program 



Par ameter list 

V/// ///A 



OP code 



Output length 



Maximum 
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, (record area) . 
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Terminal 
name 
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Parameter list 
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input length 
(if in put) 
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Registers 
| ARR|XR1jXR2 ) 

(Inline code) 




DrQ£OCC j 



BCCPFIO I 



Argumen t list 

YZZZZZZZk 



00 



Record area 



Terminal 
name 



-tt-i 



Data area 

1H 



One character per 2 bytes: char/blank 
Paramete r list 

—^ZZZZZZZZl 



OP code 



Output length 



Record area 



length 



^y 1 Save user's registers and return address. 



"^^ 2 Point XR2 to parameter list. 



S^ 3 Set address of user's record area into 
user's parameter list. 



:J^ 4 Compress record area to one character 
per byte. 



5 Invoke CCP via general entry to perform 
communications operation. 



6 Expand record area to one character per 
2 bytes. 



7 Restore user's registers. 



■ Output! 



Subroutine 
save area 



_ save died . 



00= 



XR1 



XR2 



Return address 



XR2 
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Return to user program 



Parameter list 

VZZZZZZZZA 



OP code 



Output length 



Record area 
length 



Address 
(record area) 
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Terminal 

name 
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Parameter list 
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Effective 
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Diagram 9P.6310. CCPFIO 
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RPG II IPCR/OPCR 




Process i 



Diagram 9P.6320. SUBR92 



If this routine is not used with 'special' 
file logic, terminate the task. 

If indicator 91 is on, ignore the requested 
operation, clear the record area if an in- 
put operation, and issue a completion 
code of 91— . 

Build up the internal parameter list from 
the output record area if an output oper- 
ation, or from the array if an input oper- 
ation. 

If this is an output part of put-then-get, 
store the output record in input physi- 
cal record area, and return to RPG II pro- 
gram. (See notes.) 

5 If output or input length is invalid, ter- 
minate the task. 

^^> 6 Issue the operation through CCP. 

7 Convert the return code and set on indi- 
cators 91 or 92 if appropriate. 
Move return code to array, and if an in- 
put operation, to the record area. 

-1^8 Convert length (or outstanding invites) 
to decimal, place it in third element, and 
if an input operation, move it to the 
record area. 

Return to RPG II program via IPCR/OPCR. 
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Chart PL 
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RPG II 
program 
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Parameter 
array 
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RPG II ROCA 



DTP 



DFCMP 



RPG II program 



J 



Notes: 



A. For a put-then-get operation, the output 
length is stored in the record lenqth part 
of the DTF. 

B. For a put-and-invite operation, the 'put' 
is executed first, then the 'invite' OP code 
is placed in the internal parameter list and 
step 6 is executed again. 



i Input i 



DTF 



[XR2[— »- 



DTFCMP 



RPG II program IPCR 

-fer 



RPG II program IPCR 

■ Process i 
1 Store return address in DTF. 
r 2 Move in 'normal' completion code. 



3 Modify above instruction to move 'EOF' 
completion code. 

4 Return to RPG II program IPCR. 



RPG II program IPCR 
(See note) 



am Output ■ 



•*— | XR2 j 



DTFCMP 



Note: On second and succeeding calls to this rou- 
tine, an 'EOF' completion code will be re- 
turned in the DTF. 
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SUBR91 
XLVL' 
AL2 (ARY) 
XLI'L' 
AL2ILRA) 



1 



TNAME l 



E— 



ROCA 






Array 



Return code 



OP code 



Output length 



Input length 



■ Process ^ ^^^m 

1 Sto re registers and parameter array 
address. 

2 If register 1 does not point to ROCA, 
terminate the program. 

n^> 3 Build up an internal parameter list. 
i e Convert the operation code. 

• Convert the lengths to binary form. 

• Move record area high order address 
to parameter list. 



4 Call CCP to execute the operation. 

5 Convert return to decimal and place in 
the array. 

6 Convert returned length to decimal and 
place in array. 

7 Return to RPG II calcs. 
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RPG II program 
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Diagram 9P.6340. SUBR91 



RPG II program 
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Process i 



Save the first 4 RLABL information 
within the routine. 

If indicator is on, set up to move fields 
to the record area. 
If off, set up to move data from the 
record area to the fields. 

Move the data in the proper manner, 
each field from left to right, contiguous 
to the previous field. 

4 If data area is too small to contain all 
fields, issue program termination code. 

When finished moving all fields, return 
to next RPG II calcs instruction. 



■■Output i 
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FLDA FLDB FLDC FLDN 

&1 — II — I □□ 



RCDADR 
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$CC4TI 
Chart PL 
via 

$CC4IG 
Chart OR 



RPG II program 



Note: Fields are moved as if all of them are alpha- 
numeric. 

If the data area is less than 256 in length, a 
field should be defined for the record area. 
If the area is more than 256, an array should 
be defined and the RLABL must contain 
the array name indexed by the constant 'V. 
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$CC40C Chart PI via $CC4PI Chart OT 
■ Process i 



Communication 
area $CCCOM 



@CURTB 



TCB 



W' 



i — ^ 1 Locate the caller's RIB to determine the 
type of request. 

Exit if close request or normal open 
request. 



TCBSAV 



TCBARR 



TCBJOB 



=>U 



XR2 



DTF Chain 



DTFDEV 



DTFATR 



TU 



<rf 



2 If sort BAM, access open build extent 
table, then exit. 

3 If sort workfile, close request return. 

4 If request is to set new limits for indexed 
sequential processing, set the C/S of the 
DSM limits transient into $CC40C and 
return. 

5 If FORTRAN pseudo-open request, 
clear the DTF open/close work area and 



If sort file, allocate request, and symfiles 
supplied with sort request, check FSBs for 
any that may be used by this DTF and 
move short DTF name into user DTF. 

If allocate request, search the DTF chain 

for special file and unit record DTF's. 

Exit if a unit record device is not owned 

by the task. 

Allocate special file and unit record 

DTF's. 




Diagram 9P.7010. $CC4QP 



$CC4QC Chart PI 
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Process i 



DTF Chain 



XR2 



DTFDEV 



DTFUPS 



DTFATR 

• ALOC 

• OPEN 



DTFCHA 



DTFCHB 



=>D 



^> 1 Clear DTF register save areas for use as 
open/close work areas. 
If request is to close, go to 6. 



Open Request 



2 Examine all DTF's in the forward 
chain. 

Disregard DTF's which are already 
open or which fail the UPSI test. 
Set TAXPRM routing bits. 

■ 3 Exit if a unit record or special file 
DTF has not been allocated. 

4 Set open bit for special file DTF's. 

5 Determine next load of open: 
• If printer DTF to open. 



If MFCU or 1442 DTF to open. 



If disk DTF to open. 



If no DTF's to open. 
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Diagram 9P.7020 (Part 1 of 2). $CC401 
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Process i 




Close Request 



6 Examine all DTF's in the chain. 
Use the forward chain if the caller is 
a user task, the backward chain if 
the caller is the termination task. 
Disregard DTF's which are not open. 
Set TAXPRM routing bits. 

7 Reset open and allocated bits for 
special file DTF's. 

8 Determine next load of close: 
• If printer or PTAM DTF to close. 



• If MFCU or 1442 DTF to close. 



• If disk DTF to close. 

• If no DTF's to close. 
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DTF Chain 



DTFATR 

• ALOC 

• OPEN 



DTFARR 
• OCACT 
■ ODISK 
•OFORTN 



DTFXRS 



DTFARR 



Diagram 9P.7020 (Part 2 of 2). $CC401 



$CC4OT9P.7140 
$CC4L2 9P.7310 



$CC4TD 9P.5010 
$CC4LT9P.730O 
$CG401 9P.702Q 



$CC4039P.7110 
$CC405 9P.7160 
$CC407 9P.7170 



$CC408 9P.7190 
$CC409 9P.7200 
via $CC4TX Chart OT 



$CC4L4 9P.7330 $CC402 9P.7100 



■ Input 




XR2 



DTF Chain 



DTFDEV 



DTFCHA 



DTFCHB 



DTFPRB 



DTFFtCL 



DTFARR 

• PINDEX 

• PDATA 

• OCACT 

• ODISK 



Termination 
work area 



@TMWK 



TCB 
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3 



TCBCMP 



Process i 



F=0 



£> 



If open requested by shutdown, exit. 
If close requested by termination, go to 

5. 

If unsuccessful open/close request, set 
completion code in $CC40C and exit. 
If successful close, go to 3 . 

Normal Open 

2 Add any opened DTF's in the forward 
chain to the appropriate open DTF chain. 
Go to 4. 

Normal Close 

3 Remove any closed DTF's in the forward 
chain from the open DTF chains. 
Restore record length in DTFCHA. 

4 Return to $CC40C to prime or purge 
buffers. 



$CC40C 
Chart PI 
Entry 
• point 
OCRET2 

Entry 
point 
OCRET3 



■■Output i 



DTF Chain 



Termination Close 



^>5 If unsuccessful close, go to 7 . 



=C>7 



Purge buffers for disk file DTF's. 
Restore record length in DTFCHA. 

If task is being normally terminated, 
and if close was unsuccessful or a disk 
error occurred while purging buffers, 
set the terminating tasks completion 
code. 



$CC40C 
Chart PI 
Entry 
point 
OCRET4 



Disk I OS 



Disk wait 
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$CC401 9P.7020 via $CC4TX Chart OT 



Process i 




1 Search the forward chain for a printer 
DTF to open. 
If end of chain, go to 5. 

1^ 2 Exit if print buffer is not on a X '7C 

boundary. 



Format the DTF. 

Use default values from the system com- 
munication region if page size or record 
length was not specified. 
Load the printer data address register 
and forms length register. 
Build a print IOB. 



4 Set new page size in the system commu- 
nication area. 
Go to 1 to process the next DTF. 



Determine the next load of open: 

• If MFCM or 1442 DTF's to open. 

• If disk DTF's to open. 

• If no more DTF's to open. 
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CCP transient 



TAXPRM 
• OLD2 



DTF Chain 



DTFATR 
• OPEN 



DTFPNL 



DTFOFL 



DTFSVA 



DTFLRL 



DTFPRA 



PIODAT 



PIOFLG 



DTFCMP 
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Diagram 9P.7100. $CC402 (Models 8, 10, and 12) 
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1 »5 


1 CCP Transient 






BDFMSK 
BDFCHA 
DTFARR 
DTFDEV 






DTF to open. If end of chain go to 6. 
2 Set up page size and overflow; if page 




•L 


$CC40R DTF Chain 




> 3 Initialize record length, space, skip 
end print position, completion code 
and op code fields. 

4 Initialize printer IOB. 

5 Insert DSM printer transient $$SLP1 
C/S into DTF. 

Go to 1 and process next DTF. 

6 Determine next load of open: 
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CCP Common Area 
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BDFOVF 
BDFATT 

• ECSOCH 

• OPEN 
BDFCOM 
BDFEPS 
BDFSPA 
BDSPOS 
BDFDMA 
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Diagram 9P.7105. SCC402 (Model 4) 
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$CC401 9P.7020 $CC402 9P.7100 
via $CC4TX Chart OT 



DTF Chain 



DFRDEV 



DFRCHA 



DFRCHB 



DFRARR 
• OCACT 
e ODISK 



DFRATR 

• PRINT 

• iNPT 

• OUTPT 

• DUALIO 



DFRRIO 



DFRERP 



DFRPUB 



DFRSTA 



DFRSVA 



DFRPTB 



TAXPRM 
• OLD4 



Uh 



■ Process 

1 



F> 



Search the forward chain for an MFCU, 
3741 or 1442 DTF to open. 
Go to 5 if end of chain. 

Build read, punch, and print lOB's. 
Clear print and punch buffers to blanks. 
Exit if print buffer is not on a X'OO' 
boundary. 

Format the DTF. 

If print file, load the MFCU print data 

address register. 

If dual buffering is used for input, set 
the end of file indicator to avoid priming 
the input buffer. 
Go to 1 to process the next DTF. 

Determine next load of open: 

• If disk DTF'stoopen. 

• If no more DTF's to open. 
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• ENDFIL 
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Diagram9P.7110. $CC403 



$CC4OP9P.7010 $CC401 9P.7020 $CC402 9P.7100 
$CC403 9P.71 10 via $CC4TX Chart OT 
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Process 
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TUB 



TUBAT1 
• TUBREQ 



TUBFSB 



FSB 



FSBNXT 



FSBSYM 



FSBPHS 



XDT 



XDTNAM 



Relative SDF 



Positions 



n=> 2 



SDF 



Search the forward chain for a disk 
DTF to process. 
Exit if end of chain. 

If FSB's are queued to the requesting 
terminal's TUB, search the indexed 
XDT's for a matching file name. 
If an XDT name matches the DTF file 
name, go to 4. 



DFNAME 



DFATT 



DFFLA 



DFUSE 



DFADD 



Communication 

area 

@CURTB | 

TCB 



TCBFBM 



3 Search the SDF queue for a matching 
j-m k. file name. 

"^^J E xit if not fou nd . 



|P|J> 4 Save the SDF address in the DTF open/ 
"* close work area. 

Exit if the open request is a FORTRAN 
pseudo open. 

WJ*> 5 Compare the DTF attribute bytes against 

I the SDF attributes. 

Exit if the method of access is incom- 
patible with the CCP mode of open or 
if the file was not allocated to the caller 
at assignment. 

Calculate the DTF field mapping byte 

and store in the DTF open/close work 

area. 

Go to 1 to process the next DTF in the 

forward chain. 
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$CC404 9P.7120 via $CC4TX Chart OT 
■ Process ■■ 
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DFDEV 






DFRCL 
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Set Q-byte, SWA index, record length 
and file organization from the short 
DTF into the callers DTF. 
Set the DTF completion code to X'40' 
to indicate old file. 

If the organization is indexed, set the 
key length and displacement from the 
short DTF into the DTF. 



i Output i 
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DTFCMP 



DTFKL 
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$CC40C Chart PI 
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■■ Process ■■ 
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• Diagram 9P.7140. $CC4QT 
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1 If sort work DTF, go to 5. 

2 If output file, reset DFNXR to start of 
file. 



P> 3 Move disk addresses from short DTF to 
PTAM DTF. 

4 Build an IOB. 

5 Build sort MVF table. 

6 Normal disk open. 



■Output) 



$CC40R 
'9P.7030 

$CC40R 
'9P.7030 



$CC405 9P.7150 



DTF 



DTFDEV 



PTFEOF 



PTFNXB 



PTFEND 



PTFSTD 



PTFEOF 



PTFWKB 



IOB 



IOBQB 



IOBRB 



IOBCB 



IOBSB 



IOBDAT 



IOBDTF 



SDF 



DFNXR 



MVF 



XTA Record Count 
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$CC40T 9P.7140 via $CC4TX Chart OT 
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DFDEV 



DFATT 



DFRCL 



DFXTA 



DFXTB 



DFEOF 



DFNXR 



DFKXA 



DFKXB 
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DFKXP 
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C^ 1 Search the forward chain for a disk DTF 



E*£> 



Communication 
area $CCCOIV1 
i— | @CURTB | 



TCB 

U h TCBCDE \ - 



CDE 



CDEAT2 
• CDESDB 



to process. 

If end of chain, go to 6. 



2 Compare the record length, and key 
length and displacement for indexed 
access of the DTF to the SDF. 
Exit if not equal. 



3 Set TAXPRM routing bits to indicate 
device type and shared I/O specification. 



4 Round DTF block size to a multiple of 
256. 



>s 



Examine the DTF field mapping byte 

and move disk addresses from the SDF 

to the DTF accordingly. 

If access is consecutive output, reset the 

next record pointer in the SDF to the 

start extent of the file. 

Go to 1 to process the next DTF. 



6 Determine the next load of open: 

• If relative record number conversion 
is needed. 

• If shared I/O and 5444 DTF's to 
open. 



If 5444 DTF's to open. 



If 5445 DTF's to open. 
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DTXEOF 
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CCP transient 
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1 Search the forward chain for a disk 
DTF to process. 
If end of chain, go to 3 . 



2 Determine which conversion routine is 
necessary. 

If direct access to a non-direct SDF, 
convert DTFEOF (5444 files) or 
DTXEOF (5445 files) to a relative record 
number. 

If non-direct access to a direct SDF, 
convert DTFEOF to a disk C/S/D (5444 
files) , or DTXEOF to a disk C/H/R/D 
(5445 files). 
Go to 1 to process the next DTF. 



3 Determine the next load of open: 

• If shared I/O and 5444 DTF's to 
open. 

• If 5444 DTF's to open. 

• If 5445 DTF's to open. 
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9P.7170 
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DTFDEV 



DTFIOB 
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$CC405 9P.7160 $CC406 9P.7160 
via $CC4TX Chart OT 
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TAXPRM 



OLD8 




1 Search the forward chain of DTF's for 
a 5444 DTF to process. 
If end of chain, go to 6. 

2 Build a data IOB in the area provided by 
-j^ the user program. 

Build a second data IOB if dual buffer- 
ing is used. 

3 If indexed file, build an index IOB. 
If random access, leave IOB C/S set to 
zero. 
Set index buffer to X'FF's. 

4 Set DTF indicator bite and completion 
code. 

Move C/S of next record into data lOB's 
unless the file is random or direct. 

5 Adjust the key pointer in the DTF for 
indexed and direct files. 
Set the address of the master track 
index for indexed random files. 



O' 



Determine next load of open: 

• If 5445 DTF's to open. 

• If indexed sequential or dual buf- 
fered consecutive file to open. 

• If DTF processing is complete. 
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DTFMIX 
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$CC405 9P.7 1 50 SCC406 HP. / 1 bU 
via $CC4TX Chart OT 
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Process i 



1 Search the forward chain for a 5444 
^ > DTF to process. 

Go to 3 if end of chain. 



CCP transient 



TAXPRM 
• OLD8 



=^2 Build a data job and an index IOB for 
indexed files. 

Set DTF fields to post open format. 
Go to 1 to process the next DTF. 



^^3 Determine next load of open: 
5445 DTF to open. 
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$CC405 9P .7150 $CC407 9P .7170 $CC406 9P .7160 
$CC40S 9P. 7180 via $CC4TX Chart OT 
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Diagram 9P.7190. $CC408 (Models 8, 10, and 12 Only) 



Process i 



1 Search the forward chain of DTF's for a 
5445 DTF to process. 
If end of chain, go to 6. 

^ 2 Build a data IOB in the area provided by 
£^ the calling program. 

Build a second data IOB if dual buffering 
is used. 

3 If indexed file, build an index IOB. 
If random access, leave IOB C/H/R set 
to zero. 
Set index buffer to X'FF's. 

4 Set DTF indicator byte and completion 
code. 

Move C/H/R of next record into data 
lOB's unless the file is random or direct. 

5 Adjust the key pointer in the DTF for 
indexed and direct files. 

6 Determine next load of open: 
If any buffers need priming. 
If DTF processing is complete. 
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DTFATR 



DTFCHB 



DTFIOB 



DTFPRB 



DTFKBF 



DTFARR 



• OCACT 

• ODISK 

• PINDEX 
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m Process i 



1 Search the forward chain for opened disk 
DTF's. 
Exit if end of chain. 



If 5445 buffers need priming and the 
read would extend into cylinder 200, 
decrement the IOB N-byte until the 
C/H/R/N is valid. 

If a C/H/R/N cannot be obtained, reset 
the priming indicator. 



If double buffered input file, prime the 
index buffer and set DTFPTR to point 
to the first record. 
Set DTFKPR to point to first key. 



If I/O error while priming, set comple- 
tion code in TAXPRM and exit. 



Go to 1 to process the next DTF. 
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$CC4TD 9P.5010 via $CC4TX Chart OT 
■ Process n 



Termination 
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TCBDTF 



TCBCDE 
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CDELOD 



CDELNG 



Open unit record 
and special file DTF's 



DTFCHA 



Communication 
area $CCCOM 



$FLGA 
• #DSKFS 



@DFCT 
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SOF queue 



DFCHN 



Open disk DTF's 



DTFCHA 



DTFPRB 



Ui 



[ Remove open special file and unit record 
DTF's from the TCBDTF chain. 

I Search the open disk DTF chains for 
DTF's within the bounds of the user 
program. 

Remove DTF's from the open chains 
and add to the queue of unit record and 
special file DTF's. 

File Sharing Systems Only 

3 If an IOB is queued for update to a . 
shared file, remove it from the queue! 



4 If the task had no open DTF's, or the 
task is being terminated because of a 
close error, exit. 

Otherwise, 
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$CC401 9P.7020 via $CC4TX Chart OT 
■ Process ■■ 
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DTFSUA 



PIODAT 
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DTF-OBV 



PTFNXB 
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DTFATR 



DTFCHB 
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Search the forward DTF chain (the back- 
ward chain if termination is the current 
task) for a printer or PTAM DTF to 
close. 
If end of chain, go to 3. 



Output i 



TAXPRM 

• CLD3 

• CLD4 
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If PTAM file, locate its corresponding 

short DTF. 

If output file, clear the current adder 

address and update the next record 

pointer in the SDF. 

If printer DTF, restore the saved page 

size in the system communication region. 

Restore the DTF to the pre-open format. 

Go to 1 to process the next DTF. 



3 If Model 4, exit. 




CCP transient 



TAXPRM 
• CLD2 



Determine the next load of close: 
3741 , MFCU or 1442 DTFs to close. 
If no more DTFs. 
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$CC401 9P.7020 $CC412 9P.7310 
via $CC4TX Chart OT 
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TAXPRM 
• CLD4 




Process i 



Search the forward chain (the backward 
chain if termination is the calling task) 
for a 3741 , 1442, or MFCU DTF to close. 
Go to 3 if end of chain. 



■Output i 



CCP transient 



2 Restore the DTF to the pre-open format. 
Go to 1 to process the next DTF. 



f7=J> 3 



Determine next load of close: 
If disk DTF's to close, exit. 
If no disk DTF's to close. 



TAXPRM 
• CLD3 
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$CC4L3 9P.7320 via $CC4TX Chart OT 

■ Process h 



SDF 



@CURTB 



@DFCT 



TCB " 



TCBID 



DFNDTF 



DCHHN 



DFADTF 



DFNXR 



XRS 



DTF Chain 



DTFDEV 



DTFATR 



DTFCHA 



DTFCHB 



DTFPRB 



DTFNXR 



DTFNXK 



DTFARR 

• OCACT 

• ODISK 



Diagram 9P.7330. SCC4L4 
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Search the forward DTF chain (the back- 
ward chain if termination is the current 
task) for a disk DTF to process. 
Exit if end of chain, 
rf termination is the current task, go to 
3. 

Locate the corresponding SDF for the 

DTF. 

Exit if not found. 

Restore the filename in the DTF from 
the short DTF. 

If the DTF is the current adder, clear the 
current adder address and update the 
next record pointer in the SDF. 

If buffers must be written, set buffer 
purge indicators in the DTF. 
Go to 1 to process the next DTF. 
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DTFARR 

• PINDEX 
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DTFATR 
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$CC4L4 9P.7330 via $CC4TX Chart OT 




i Process i 



1 Search the forward DTF chain (the 
backward chain if termination is the 
current task) for a disk DTF to process. 
Exit if end of chain. 



2 If the DTF owns any SQBs, call the 
SQB release routine to free them. 



3 Restore the DTF to the pre-open 
format. Go to 1 to process the 



„ $CC40R 
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$CC4RQ 
Chart ON 



next DTF. 
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Process i 
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DTFDEV 
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If entered for the first time, get the ad- 
dress of the CCP communications area 
and entry point of CCP wait. 

Test the device for busy or not ready. 

— Invoke CCP wait if the device is busy. 
Do not trace the wait invocation. 

— If the device is not ready now, but 
was ready the last time it was tested, 
notify the system operator and invoke 
CCP wait. 

Trace the wait invocation. 

— If the device is not ready and the 
system operator has been notified, 
invoke CCP wait. 

Do not trace the CCP wait invocation. 

Call the DSM unit record data manage- 
ment module to perform the I/O opera- 
tion. 



$CC4WT 
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See note 1 
$$XXXX 
DSM unit 








record 




data 




manage- 




ment 




See note 2 
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area $CCCOM 






$DPFLH 
• DPNTRC 



Note 1 : See IBM System/3 Disk Systems Data 
Management and Input/Output Super- 
visor Logic Manual, SY21 -051 2. 

Note 2: This routine is described in this PLM. 



Return to calling program 
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$CC4CM 
Chart QA 



Communication 
parameter list 



PLOPM 



PLOPC 



PLOUTL 



PLRECA 



PLTUBA 



If 



Process i 



User record area 



Getmain 

parameter 

list 



If operation involves invite input: 

— Indicate keyboard can be enabled. 

— If no put, post requestor and return. 



OB 



If system put no wait: 

— Attempt to get hold buffer. 

— If Getmain fails, indicate this in 
parameter list, go to 3. 

— If Getmain works, move para- 
meter list and record area to 
hold buffer and post requestor. 



3 If operation involves put or put no 
wait, add it to console output queue. 



4 If operation is must complete before 
CCP can resume, exit. 



$CC4PS 
Chart OJ 



$CC4GM 
Chart OZ 
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#KMSWT 
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Diagram 9P.8030. $CC4X1 (Model 4 Only) 
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Chart QA 
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Determine type of key or condition: 

- Error completion code or return 
key. 

— Command key 7, go to 2. 

— Command key 8, go to ^-^_ 

- PROG start or enter+ 



- Erase key, blank buffer and set 
KMCRT to zero, go to 4. 

— Backspace key, subtract one from 
KMCRT and blank that displace- 
ment in buffer, go to 4. 

— Wait for typamatic function on 
tab and backspace keys to be 
released. 

- All other keys, go to 4. 

2 If current display not in file anymore, 
go to 3. 

Set screen end equal to screen start 
and call the display backward routine. 

If current display not in file anymore, 
set to display oldest messages in file. 

Set screen start equal to screen end • 
and call the display forward routine. 



Enable keyboard and return. 




Return 



<§ Diagram 9P.804O. $CC4X2 (Model 4 Only) 
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$CC4X2 
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Process ■ 



1 When return key is pressed, setup 
parameter list and buffer to display _ 
input buffer. 

2 When too many characters are keyed, 
setup parameter list and buffer to ~ 
display error message. 



"1 



3 When there is a keyboard hardware 
error, setup parameter list and buffer 
to display error message. 



4 Set to reenable keyboard after op end 
on display. 
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Console Work Area 
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Display Parameter 
List 
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— T^^ Control Characters 
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Screen buffer 
input or error 

message 



Diagram 9P.8050. $CC4X3 (Model 4 Only) 
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Input data area 



Get main 
parameter list 



$CC4X8 

9P.9010 



If 



Process i 



1 If input is reply, exit. 
i 2 If program request: 

Getmain for hold buffer. 



L— ISk [ 



- If Getmain fails, exit and pass error 
message. — 

- If Getmain succeeds, move data to 
hold buffer. 

3 Build parameter list in the console TUB 
to represent the command input. 

4 Queue the console TUB onto the com- 
mand processor input queue and post 
the command processor. 
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Diagram 9P.8060. $CC4X4 (Model 4 Only) 
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$KMWK 
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#KMFNX 

#KMBFR=Z 



Input 
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NCSYS@ 
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Sys. Comm. Area 
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Keyboard IOB 



KMFLG 
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$CC4CM 
Chart QA 
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—\^ 1 If called for initialize keyboard enabl 
J\ bump return addr by 3. - 




4 



2 If current screen end is equal to current 
next pointer, turn off field light 8. 



I 



H T^ "* lf ke yboard already enabled, return. 

B "^ 4 If keyboard management busy, go to 7. 

I 5 Set up fields in keyboard JOB. . 

—iJ> 6 Blank input buffer. ^^^ZZ^ZZH 



& 



7 Enable keyboard. 



=C>H 



8 If CCP is shutdown, write last sector to 
$CCPLOG, disable the keyboard, turn off 
field lights, and post $CC4EJ. 
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management TCB 



@CMTCB 
— T^l TCBIAR 



— j^ Field light 8 on operator 
console is turned off. 

Keyboard !OB 



- .eye 

I KMC 

Lr=^> KMC 



KMCNT - Length 
KMCRT - Count 
KMFLG - Flag 
£> KMCOM - Completion 
KMBUF _ 



Input 

Buffer 



Diagram 9P.8070. $CC4X5 {Model 4 Only) 
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Process i 



=^> 1 Search the console input queue to find 
parameter iist for this reply. 

2 If not found, set address of error 
message and exit. 

3 Dequeue the parameter list off the 
console input queue. 

4 Post the user. 



5 Move the data to the user record area. 
'6 Set user parameter list. 
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Diagram 9P.8080. $CC4X6 (Model 4 Only) 
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#KMWK 
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parameter list 



PLOPC PLCHN 



H PLTCB 



PLRECA 
PLOUTL 



Task control block 



JTCBCDEl ITCBID] |TCBTSK| 



Contents directory entry 
->-j Program name 
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Chart QA 




Process i 



1 Wait on IOB if necessary. 



=0 



2 Build message prefix in disk buffer 

3 Move message to disk buffer. 

4 Turn off field light 8. 

5 Update next console log entry poi 

6 Write to disk if one sector full. " 

7 Check if display on screen is still 
in file. 

8 Dequeue output request. 

9 Post requestor if waiting. "* 



Disk 
Wait 



10 Queue put-then-get request. 

11 Turn on field light 7 for put-then-get 
1^ 12 If move output on Q, go to 1. 
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Console work area 

#KMSW2 
• #KMWAT 
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Console output buffer 

$CCCOM 
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^^^ @KMFSTB 

Communication 
parameter list 
PLCHN 

Field lights 
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9P.8040 



H 



Process i 



£> 1 Wait on disk write if necessary. « 

f> 2 Move input area to next spot in disk buffer. 



3 Compress record in disk buffer and set 
length. 



I 



£> 4 Upd; 



ate next console log entry pointer. 



5 Start write to disk if one sector full. 



6 Check if display on screen is still in file. 



$CC4X4 
9P.8060 



DISK 

wait 
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Length (1 byte) 
text 



Can be in second 
half of transient 
area two. 
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Chart QA 



rr 



Note: The $CC4X9 routine is renamed $CC4K9 
on Model 4 CCP installation. 



Diagram 9P.9010. $CC4X9 (Model 4 Only) 
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1 Wait on disk IOB if necessary. -*• 

2 Build system prefix. 



3 Move message to buffer. ■ 

4 Turn off field light 8. 

5 Compress out the rightmost blanks. - 



Call 

SCC4XA 

9P.9020 



Disk 

wait 



lb 



r 



Output i 



Console work area 
#KMWK 



#KMBOU 



#KMWK2 
j*p #KMWK4 



K-rFKMWK 



^ 



FF I | CI Message xx j 



i Input i 



Console work area 
$KMWK 



#KMWK2 
#KMWK4 

#KMFNX 



#KMSWT 
• #KMXXE = 
#KMXCT 

Disk output buffer 



$CC4X9 
9P.9010 



FF I | CI Message xx 



Process i 



^ 1 Set length before and after message ■ 
—\? in buffer. 



I 1 



console log file entry pointer. 



— j^* 2 Update next 



3 Start write to disk if one sector full. -*■ 

4 Check if display on screen is still in file. • 

— **> S If request by called transfer control to 
routine at C/S address in #KMXCT. < 



=>Q 



B= 



Disk 
I OS 



=03. 



r 



Output i 



Console work area 
$KMWK 



I 1^ #KMSW2 

IY • #KMTHR 

_J • #KMIJO 

=V> #KMFNX — 



=0 



#KMBOU 



iFFI 4 C1 Message l 4 



Diagram 9P.9020. $CCAXA (Model 4 Only) 
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$CC4CM Chart QA, 
$CC4X2 9P.8040, 
$CC4XF 9P.9050 



Console work area 
$KMWK 



#KMBOU 

#KMBIN 

#KMIOB 

#KMFNX 

#KMFSE 




Current sector 



Output 
Input 



Process i 



1 Wait on disk IOB if necessary. Move -*» 
second sector of output to first sector 
in buffer. 



2 Read three sectors ending " with the 
sector in #KMFSE (display end). 



^^ 3 Scan the three sectors starting with the 
displacement in #KMFSE until the 
screen is full. 



4 Calculate new screen start pointer 
#KMFSS. 



5 Pass pointer to message to display on 
first line of screen and a count of the 
number of lines to display to the next 
phase. 




Diagram 9P.9030. $CC4XB (Model 4 Only) 
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9P.9040 



$CC4XB 
9P.9030 



■ Input i 



<*r 



Process i 



Console work area 
$KMV\JK 



1 If screen is not full of messages, move 
blanks to part of buffer. 



#KMWK2 



Points to first 
message for screen 



Er 



#KMWK4 = 
Count of lines 
for screen 

#KMBIN 



Three sectors 



of console 



log file 



rSX^ndjj 



< ^ 2 Determine if message will take one or 

■* i- —— . ~^.^nnn Cr\r r\nO linO flH 



two lines on screen. For one line, go 
to 6. 

3 For two lines, determine if message can 
be split at a blank. 

4 If no split at position 40. 



6 Move message and pad with blanks 

up to 40 char. ~ 



mm t^y 7 If screen is not full, go to 2. 



8 Move 3270 control character to 

buffer. Set buffer address and length 
in parameter list. 



$CC4MX 

Move 

Routine 



■*S 5 If yes, move two parts of message and j— 
' V l pad with blanks up to 40 char. < j *■ 

■* 1 * 



$CC4MX 

Move 

Routine 



=Ob 



■ Output i 



Console work area 
$KMWK 



i— #KMBSO 

#KMBIW 



c 



£> 



0=£ 



400 Bytes 



The screen buffer is built 
in area X and moved to 
area Y 

#KMOPL Parameter List 

_)>> PLRECA 
""^ PLOUTL 

PL$0PM 



■v 

o 



3 Diagram 9P.9040. $CC4XC (Model 4 Only) 
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$CC4CM Chart QA, 
$CC4X2 9P.8040 




Process i 



=C>G 



£>H0 



Q> 1 Wait on IOB if necessary and move 
___jj second output sector to current output 

BJ t sector. 



Disk 

wait 



]f 



Output i 



J 



=^>g 



2 Read three sectors for console log file"t 
starting with the C/S in #KMFSS. 



-*- 



Disk 
I OS 



H £ > 3 Scan con sole log file entries beginning 

* at the one pointed to by #KMFSS. ^>H 



T 



Disk 
wait 



■VUU I ai mo umb pumtea to Dy fFK.MFSS. 

^H0 I B 111 ^ 4 If the next entry is found before the I 

1 screen is full, call set screen end equal ' f ^^W 

to next and call $CC4XB. j «^"* w 

5 When the screen is full, update screen I 

end pointer and call $CC4XG. * " ^ HII 






Output 
Buffer 



— f Input -JS^ia 
Buffer ~W^lS 



$CC4XB 
9P.9030 



6 Pass $CC4XG pointer to last message 
on screen and count the lines. 



T 

$CC4XG 
9P.9060 



Diagram 9P.9050. $CC4XF (Model 4 Only) 



Q 






0: 



a 



Console work area 
$KMWK 



z£> #KMFSE 
#KMBOU 
#KMBII\I 



T^ #KMWK2 
^S, #KMWK4 
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A/ote: 

#KMWK2 contains the pointer to the 
last message for the display. 

#KMWK4 contains the number of lines 
in the output (9 or 10). 



■ Input i 



Console work area 
#KMWK2 = 
#KMWK4 ZZZ 

#KMBIN 



Three sectors 



of console 



log file 



$CC4XF 
9P.8090 



=>H 



I — Process i 

J. 

-j ^V 1 Deter 



=c> 



Determine if message is one or two lines. 



2 If the message is two lines, split it at a 
blank, if possible. 

3 Move the second half of a two-line 
message . 

4 Move a one-line message or the first 
half of a two-line message. 



|P|— -^> 5 If the screen is not full, go to 1 . 



6 Set control characters and parameter 

list. 




SCC4MX 

Move 

Routine 
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Diagram 9P .9060. SCC4XG (Model 4 Only) 



w 



9-400 



Chapter 10. Shutdown 



Introduction 

CCP Shutdown allows the system operator to terminate 
CCP and return control to Disk System Management. 
CCP Shutdown is invoked via either the Shutdown 
command, which allows all currently executing 
or queued user programs to complete, or the Cancel 
CCP command, which immediately terminates all 
user programs. The Shutdown module, $CC5SH, 
is loaded from the object library, relocated by transient 
$CC4EJ, and executed in the user program area. For 
information on how all programs that are running 
are informed that Shutdown has been requested, see 
index entries CCP End Of Job and Termination. 

The system requirements for Shutdown are the same as for 
Startup and CCP Execution: 

• 5404 Processing Unit (64K of MOSFET memory) 

or 

5410 Model A1 5 Processing Unit (24K of main 

storage)— Model 10 

or 

5412 Model B17 Processing Unit (48K FET memory)- 

Model 12 

o 5444 Model 2 Disk Storage Drive-Model 10 
or 

5447 Model 1 Disk Storage Drive-Model 4 
or 
3340 Model C2 Direct Access Storage Facility -Model 12 



Method of Operation 

Shutdown (Figure 10-1 and Diagram 10M.0100), 
which runs under control of the Termination Task, 
changes the ID in Termination's TCB to the character 
S, indicating in the CCP trace table that Shutdown is 
now executing. Since certain parts of the Command 
Processor's TCB are used as work areas by $CC5SH, 
the TCB chain field (TCBNXT) is set to zero to assure 
that the Command Processor is not given control by 
the Dispatcher. 



Build and Close Disk DTFs 

Shutdown closes all disk files by building a normal 
disk DTF from each of CCP's short DTFs. A DTF is 
built by setting the file attributes, device code, and 
record length from the short DTF into an 85-byte 
area set aside to contain the full DTF. The DTF also 
contains an IOB address, which points to a 52-byte 
area, and a data area address, which points to a 512-byte 
area. CCP File Open is now called twice to build 
the DTF and IOB in a format suitable for DSM Close. 
If the open was not successful, error message 507 
is printed and Shutdown proceeds to close the next 
disk file. If Open was successful, the file is closed by 
calling true DSM Close via General Entry with a RIB 
of 83. The true General Entry address is obtained from 
an area within $CC4IG, General Entry Intercept. 
This action occurs for each short DTF in the system. 



• 5471 Printer-Keyboard 

• 5203 or 521 3 or 1 403 Printer 

• Teleprocessing line (BSCA, MLTA, or local display 
adapter) 
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Shutdown command 



$CC4SH | 9P.3660 




Process shutdown 
command 







Cancel command 



All user programs 
terminate normally 
(See End of Job 
Chapter 9.22-77 
and termination 
9.2-66) 



$CC4CJ | 9P.3610 




Process cancel 
command 







$CC4CX I 9P.3620 



Process cancel 

command 



$CC4TMl 9P.2010 



Termination resident 
routine 



$CC4SH — Shutdown command processor 

SCC4CJ — Cancel command processor 

$CC4CX — Cancel command processor 

SCC4TM — Termination resident routine 

$CC4TD — Termination control routine 

$CC4EJ - End of job transient 

$CC5SH - CCP shutdown 

DSM — Disk system management 



$CC4TD | 9P.5010 



Termination control 

routine 

• Note 1 



$CC4EJ | 9P.5070 



End of Job transient 
Load $CC5SH 



$CC5SH | 10M.0100 



Shutdown — close all 
files, return system 
to normal running 
status 



T 



Note 1: See Chart 9M.0250 for overview description 
Note 2: See IBM System/3 Disk Systems System 

Control Program Logic Manual SY21 -0502 



DSM j Note2 



DSM end of job 



i Input ■ 



$CCCOM 



Short DTF 



From $CC4EJ 9P.3060 

^1 | jm Process i 



@DFCT 



@CDORG 



@PCA 



@IOW 



@IOS 



@DMP 



@CURTB 



DFDEV 



DFNAME 



DFNDTF 



1 Build a full DTF from each short DTF. 



Program 
communication 
level area 



NPDTF@ 



NPSCH2 



NPCCOM 



=D> 



System 

communication 
area 



NCSYS@ 



NCSCH1 
NCCONF 



NCCORE 



2 Open the file to complete DTF build. 
If error. 



3 Close the file. 



HZ^> 4 Restore system entry points and system 
status. 



■ Output i 



via NCENTR 

— »■ 



Chart PI 
$CC40C 
open 
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TCB 
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TCBCMP 


CDEAT2 
• CDESDB 


TCBCHN 






TCB ID 




TCBCDE 





















via NCENTR 



See note 

DSM 

close 



10M.0100 
(Part 2 of 3) 



Error message 

#507 



DSM entry pionts 
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• NCEIOS 

• NCEIOW 
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Note: See IBM System/3 Models 4, 6, 8, and 10 
Disk Systems System Control Program 
Logic Manual, SY21-0502. 



• Diagram 10M.0100 (Part 1 of 3). Overall Flow of Shutdown 
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10M.0100 
(Part 1 of 3) 



■ Input i 



$CCCOM 



LCB 



@LCB#1 



(3MLTAD 



$FLGB 

• #PUCNT 



@PUCNT 



@>PTXCS 



#CPFLQ 



@PTX 



$BDDEV 



LCBCHN 



14 



MLTA 

adapter 

DTF 



Process ■^^■h^mi 
^ 1 Close BSCA files. 



fC> 2 



Close MLTA lines. 



Program 

usage 

counts 



PCT 
index 




3 Update program usage counts: 

• Read PCT from $CCPF I LE if error. 

• Update counts. 

• Write PCT to $CCPF I LE if error. 



OD 




10M.0100 
(Part 3 of 3) 



Note 1 : See IBM System/3 Disk Systems Data 
Management and Input/Output Super- 
visor Logic Manual, SY21-0512. 

Note 2: See IBM System/3 Multiple Line Terminal 
Adapter RPQ Program Logic Manual, 
SY21-0527. 

Note 3: See IBM System/3 Models 4, 6, 8, and 10 
Disk Systems System Control Program 
Logic Manual, SY21-0502. 



Diagram 10M.0100 (Part 2 of 3). Overall Flow of Shutdown 
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• #CPCAN 



@CTRAC 



=>H 



Trace 

control 

block 



ADDRIOB 



In-code 

trace 

table 



Trace 
IOB 




Process i 



■ Output 



1 Clear end of table to 'FFFF' 



J^ 2 Set wrap and last bits. 



3 Write final trace entry to $CCPF I LE. 



If error. 



H— 1> 4 Write ended message. 



To DSM end of job via NCENTR 
with RIB-'84' (see note) 
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Note: See IBM System/3 Models 4, 6, 8, and 10 
Disk Systems System Control Program 
Logic Manual. SY21-0502. 



3 Diagram 10M.0100 (Part 3 of 3). Overall Flow of Shutdown 
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Restore DSM Entry Points 

The next step in Shutdown is to restore the low main 
storage addresses of CEFE, General Entry, Disk I0S, and 
Disk Wait. If this is a DPF system, the I AR of the other 
program level is stored and set to point to a U-halt within 
$CC5SH for non-remap or within $@9CIN for remap in 
order to prevent the other program level from referencing 
the low main storage entry points while they are being 
restored. The low main storage entry points are then 
restored from areas in the CCP Communications Area 
where they were saved during CCP startup. The other pro- 
gram level is now released to continue processing. 



Close BSCA Lines 

All LCBs in the system are scanned, starting at the 
first LCB pointed to by LCB #1 in the CCP Communica- 
tions Area. If a BSCA LCB is found, the line is closed 
via DSM Close. This continues until all LCBs have 
been processed. 



Close MLTA Lines 

The address of the MLTA adapter DTF is in the CCP 
Communications Area (@MLTAD). If MLTA is present, 
the MLTA Close transient ($$ML$A) is called to close 
the adapter DTF, which causes all line DTFs to be 
closed. 



the entire sector has been updated and it is rewritten 
to SCCPFI LE. If the write was unsuccessful, error 
message 505 is printed and the remaining counts are 
bypassed. Counts are updated from a main storage 
Program Usage Count Table, whose address is in the 
@PUCNT field in the CCP Communications Area. The 
table contains a two-byte count for each PCT entry. When 
a PCT index entry of X'FFFFFFFFFFFF' is passed, all 
PCT entries have been updated and written to $CCPFILE. 



Write Out Last Disk Trace Entry 

If CCP Trace to Disk was turned on by the system 
operator, the trace control block is found from the 
@CTRAC field in the CCP Communications Area. 
If the address of the next entry equals the address 
of the end of the resident trace table, the table is 
exactly filled. If the table is not completely filled, 
the remaining area in the resident table is filled with 
FF. This is done via the CCP Move Routine, $CC4MX. 
Bits 1 and 2 are set on in the first byte of the last 
entry in the resident table to indicate the last entry. 
If the disk address of the next entry is equal to the 
address of the first entry on disk, this group of entries 
causes the table on disk to wrap; therefore, bit 2 is 
set on in the first byte of the first entry to indicate 
a wrapped table. The resident table is now written to the 
next available address on disk using the trace IOB, the 
address of which is located in the trace control block. 
If a disk error occurs, error message 506 is printed. 



Update Program Usage Counts 

If the Program Usage Count option was selected at 
CCP generation, a sector of PCT entries is read from 
SCCPFI LE. If the read was not successful, error 
message 504 is printed and the remaining counts are 
not updated. If the read was successful, the program 
name in the PCT is compared to the first name in the 
PCT index. The index is a main storage table containing 
the program name corresponding to the last PCT 
entry in each sector on disk. If the names are equal, 



Print Final Message and Exit 

Message 503 is now printed, indicating that Shutdown 
or Cancel has completed, depending on what was 
requested by the system operator. This is determined 
by testing the #CPCAN bit in $FLGB field of the CCP 
Communications Area, which indicates that a Cancel 
was requested. Control is now returned to Disk System 
Management via an exit to General Entry with a RIB 
of 84 for end of job. 
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Figure 10-2. Storage Layout During Shutdown 



CCP Shutdown ($CC5SH) 

ENTRY POINT: SHNTRY 
CHART: R'M 
FUNCTION/OPERATION: 

- Calls CCP Open to build a full DTF from the CCP 
pseudo disk DTF. This DTF is built in an area 
within this routine. 

- Calls true system close to close the rebuilt disk 
DTFs. 

- Scans the LCB chain to find and close each BSCA 
DTF via system close. 

- Closes the MLTA adapter and line DTFs via the 
MLTA close transient, $$ML$A. 



- Restores the following system addresses: 

- Dump address at 0000. 

- General Entry at 0004. 

- I OS address at 0008. 

- Wait address at OOOC. 

- Resets the CCP running bits in the System Communi- 
cations Area. 

- Updates the program usage counts by reading the 
PCTs from $CCPFILE, incrementing the usage 
counts, and writing the PCTs back out to disk if 
the option was selected. 

- Writes out to the disk trace table the last main 
storage trace entry if disk trace is on. The wrapped 
indication is set on in the table, if appropriate, and 
any remaining area in the trace entry is cleared to 
FFFF. 

- Writes to the system operator a final Shutdown 
message indicating that Shutdown has completed. 

- Exits to system EOJ. 
INPUT: 

- Pointers in the CCP Communications Area. 

- Pointers in the System Communications Area. 

- Address of true NCENTR located within $CC4IG. 

- PCTs, residing within $CCPFILE on disk. 

- PCT index in main storage. 

- Program usage count table in main storage. 

- Trace entry and the trace control block in main 
storage. 

OUTPUT: Output will be the closed files and the system 
will be reset to normal running status. If a disk 
error occurs, one of the following messages is 
printed on the console: 

- 504 disk error occurred while reading PCTs. 

- 505 disk error occurred while writing PCTs. 

— 506 disk error occurred while writing final 
disk trace entry. 

— 507 error occurred while closing file XXXXXXXX. 
EXITS: System EOJ. 

NOTES: This program runs in the user program area and 
is loaded and called by $CC4EJ. Relocation of 
external references, such as $CCCOM, is also done 
by $CC4EJ via the table at the start of $CC5SH 
and a similar table within $CC4EJ. 
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SCC5SH 

****A1********* 

* * 

* ENTER * 

* * 



*****B 1********** 

• * 
♦SET CURRENT TCB* 

* ID TO 'S' » 



***************** 



*****C1 ********** 

* ZERO THE * 

* CURRENT TCB * 

* CHAIN POINTER • 

* * 

***************** 



*****D1********** 



SET OFF DON'T * 

•close pieis BIT* 



OSE DTP'S 
IN NPEOJ 



***************** 



***** El ********** 



•POINT TO FIRST * 
* SHORT DTF * 



'***************** 
**** 



**** u 
SHNEXT .* 
Fl 



Gl 



mi 



*, 



*. 



*****F2********** 



•CLEAR DTF BUILD* 
->* AREA TO ZERO *- 



*****E3********** 
*SET DEVICE CODE* 

* AND FILE * 
->*ATTRIBUT6 FROM *- 

* SHORT DTF * 

* * 
***************** 



*****E4*********+ 

* * 

* STORE IOB AND * 
>* DATA AREA * 

♦POINTERS IN DTF* 

* * 
***************** 



SHOPEN V PI/01/A3 
*****F4********** 

*$cc«ac * 



***************** 



•* IS THIS «. NO 

*. A DPF .* , 

». SVSTEH .* v 

*• .* ***** 

*• -* *002* 

* YES * Bl* 

i * * 



* CALL OPEN VIA * 

* GENERAL ENTRY * 



***************** 



V 
• *. 

G4 *. 
-* HAS *. 
* OPEN *, NO 
SUCCESSFUL? .* 



.♦ 



*. .* 
* YES 



8P.0500 
*****G5********** 
*$CCWTD * 



***************** 



*****H1 ********** 

* * 
•STORE IAR FROM * 

• OTHER PROGRAM * 

• LEVEL * 

* * 
***************** 



*****J 1********** 



• HALT OTHER 
•LEVEL WITH 'U 



***************** 



SHCLOS V SEE NOTE 
*****H4* ********* 

* * NCENTR * * 

* * CLOSE THE * * 

* * FILE * * 

* *(RIB-'83' ) * * 



* * 



* * 



***************** 



V 

***** 
*002* 
* Bl* 



SHNDTF V 

*****J4********** 



♦GET NEXT SHORT * 

* DTF ON CHAIN * . 



***************** 



NOTE: SEE IBM SYSTEM/3 
DISK SYSTEMS, SYSTEM 
CONTROL PROGRAM 
LOGIC MANUAL, SY21-05O2 
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***** 
*001* 
* HI* 



SHSTRD V 

*****01 ********** 

* RESTORE CEFE, * 

* NCENTR, ins, * 

* AND WAIT ENTRY * 

* POINTS * 

* * 
******** ** ** **** # 



*****C1*** ******* 

* * 

* RESET CCP * 
♦RUNNING BITS IN* 
*SYS. COMM. AREA* 

* * 
***************** 



****** 1 ********** 

* RESET NOHALT * 

* STATUS IN * 

* PROGRAM LEVEL * 

* COMM. AREA * 

* * 
***************** 



El *. 
.* *. 
* OPF *. YES 

SYSTEM? .* 

*. .* 

*. .* 

*. .* 

* NO 

I 



*****£ 2********** 



* RELEASE OTHER * * GET FIRST LCB * 
->*LEVEL FROM HALT* >* IN THF SYSTEM * 

* * A * * 



***************** 



***************** 



SHYUP SFE NOTE 1 

*****F4********** 

* * * * 
*. VFS * * NCENTR * * 

.*_.: >* * CLOSE THE * * 

« * * FILF * * 

* * * * 
***************** 



♦GET NEXT LCB IN* 
* CHAIM * 



***************** 







V 

,* 








H3 

* 


* 


NO 
* 


* 


END 
LCB 


S 



SHCLSO 

. * 



Hi 



.* 



** 



IS MLTA 

>*. PRESFNT? 

*. • 

*. .* 

*. .* 

* YES 



***** 
*C1»* 
* HI* 



SEE IBM SYSTEM/3 

DISK SYSTEMS 

SYSTEM CONTROL PROGRAM 

LOGIC MANUAL, SY21-0502 

SEE IBM SYSTEM/3 
MOOEL 10 DISK SYSTFM 

^mInaE aMptFR RPO n „ 7 

PROGRAM LOGIC MANUAL, SY21-"527 



*****J4** ******** 



* POINT TO »LTA * 

* ADAPTER DTF * 



ft*************** 



V SEE NOTF 2 

*****K4********** 



* * $$ML*A * * 

* *CLOSE MLTA * *- 

* * LINFS * * 



*********** 



V 

***** 
*rt03* 
* 11* 
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***** 
*or>2* 



SHHLCL .*. 

Bl *. 
.* USAGE *. 
.* COUNTS *. no 

*. REOUESTED? .* 

*. .* 



***** 

*C04* 
* Bl* 



*****C1********** 

*GET FIRST ENTRY* 
*IN PCT INDEX IN* 

* HAIN STORAGE * 

* * 
***************** 



V 
.*. 

Dl *. 

• * *. 

END flF *. 
PCT 
.ENTRIES? .* 



V 

***** 
*00<t* 
* BI* 

* * 



V SEE NOTE 
*****F1 ********** 

* * * * 

* *NCEIOS READ* * 

* *A SECTOR OF* * — 

* *PCT ENTRIES* * 

* * * * 
***************** 



->* *NCEIOW WAIT* *- 



.* . READ *. NO 

->*. SUCCESSFUL .*— 



***************** 



*****F 3 ********** 

* UPDATF USAGF * 
♦COUNT FROM MAIN* 

* STORAGE COUNT * 

* TABLE * 

* * 
***************** 



*****G3 ********** 



LOOK AT NEXT 
PCT ENTRY 



***************** 



8P.P50C! 

*****F4** ******** 

*$CCWTO * 

* * 

->* PRINT MESSAKF * 

* 504 * 

* * 
***************** 



***** 
*00A* 
* Bl* 



I 

V 

.*. 

H3 *. 

.* *. 

NO .* END OF *. 

— *. SECTOR OF .* 

*. PCT'S .* 



SHADO ) 

*****HS ********** 



* LOOK AT NEXT * 
•PCT INDEX ENTRY* 



SHWRIT V SEE NOTF 

***** j 3 ********** 

* * NCEIOS * * 

* * WRITE IT ** 

* * BACK TO * * — 
tCCPFTLE 



* * 



* * 



***************** 



->* *NCFIOW WAIT* *- 

* * * * 

* * * * 
***************** 



SEE IBM SYSTFM/3 
DISK SYSTEMS SYSTEM 
CONTROL PROGRAM LOGIC 
MANUAL, SY21-05O2 



***************** 
A 



YES 



J5 *. 
.* *. 

.* WRITE *. 
->*. SUCCFSSFUL? .* 

*• .* 



V 8P.0*"D 
*****K5********** 

*$crwTn * 



***** 

*oo** 

* ni* 



-* POINT MESSAGE * 
* 505 * 



***************** 
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3-BJ 



I: 

***** 

» * 



SHNOCT 



V 
.*. 
61 

*" IS 

TRA — 

*. 



*. TRACE TO .*- 

%DISK ON?..* 

*. • * 

*. .* 

YES 



* H3 * 

* • 
**** 



•c** s "dfcr"**:-S2- 



...sui 

• ..FRIED? .* 

*• *.* 

m. .* 

YES 



OX/Ol/Al 
i *****C2********** 
**CC*MX * 

* * 

->*CLEAR REMAINDER* 

* OF TABLE TO * 

* X'FFFF' * 
***************** 



*****01********** 



15S 



.Bt 



02* "*. 

.♦THIS CAUSE**. 

->*. TABLE ON DISK. 

*.T0 WRAP? .* 

*. .* 

*. .* 
* NO 



YES 



*****D3 ********** 

* SET WRAP * 
->* INDICATION IN * 

* FIRST ENTRY * 

* * 
***************** 



SHPUT 



V SEE NOTE 



*****E3 ********** 

* * * * 

* * NCEIOS * * 

* *WRITE ENTRY* * 

* « ON DISK * * 

* * * * 
***************** 



V SEE NOTE 
**«**F3********** 



* *NCEIOW WAIT* * 



***************** 



.* WRITE *. NO 
*. SUCCESSFUL? .* 



**** 

V * ■ 

* H3 *-> 



8P.0500 
*****G*********** 
*$CCWTO _ * 

^•"print'Sessage * 

* 506 * 

* * 
***************** 



**** V 
SHNOTR .*. 

H3 *. 
.* *. 
.*■ CANCEL *. YES 
*. REQUESTED .* 



*****H4********** 

* * 

* MOVE IN * 
->* 'CANCEL' TO * 

* MESSAGE * 

* * 
***************** 



SHNCAN V 8P.0500 

*****J3 ********** 
*»CCWTO * 

♦"pRINT^MisSAGi"* 

* 503 * 

* * 
***************** 



SEE NOTE 
V 

****K3********* 

* * 
*NCENTR RIB-' 84'* 

* * 
*************** . 



NOTE: SEE IBM SYSTEM/3 

§YlTEM Y CONT«nL PROGRAM 
LOGIC MANUAL, SYZ1-"5C? 



Chart RM (Part 4 of 4). CCP Shutdown ($CC5SH) 



Program Organization 10-11 



10-12 



Page of SY21-0531-2 
Issued 24 June 1977 
ByTNL: SN21-5530 



Chapter 11. Disk-to-Printer $CCPFILE Dump Program and Log List Program 



Introduction 

The Disk-to-Printer Dump Program ($CCPDD) is a stand- 
alone CCP support program that runs under control of 
DSM. It must be used whenever the contents of $CCPFI LE 
main storage dump data or trace table data is to be dumped 
to the printer. Data is read from the disk, formatted 
according to printer size and data content, and printed on 
the system printer using printer data management routines. 
It does not run in the other program level or partition on 
a DPF system while CCP is running. 

$CCPDD runs on any configuration that supports CCP. 



Method of Operation 



OCL Required 

The following OCL must be used to initiate the running of 
program $CCPDD: 

// LOAD $CCPDD,uu 

// FILE UNIT-xx,NAME-$CCPFILE,PACK-nnnnnn 

// RUN 
where uu is the disk unit on which $CCPDD resides, xx is 
the disk unit on which the $CCPFILE dump data resides, 
and nnnnnn is the packname on which $CCPF I LE resides. 
Follow this OCL with additional OCL records which speci- 
fy what is to be dumped. Terminate the operation of this 
program with a /*. 



Program Options 

All dump options are selected by use of a control statement, 
which begins with // DUMP. A main storage dump can be 
specified by a control statement of the following form: 

// DUMP n 
where n is the dump number. All main storage dumps 
residing on $CCPFILE can be asked for by the control 
statement // DUMP ALL. A partial main storage dump 
can be specified by the OCL statement: 

// DUMP n,x'aaaa',x'bbbb' (Models 4, 8, and 10) 
// DUMP n,x'aaaaaa',x'bbbbbb' (Model 12) 
where n is the specified dump number (1 — 9), aaaa is the 
beginning main storage address, and bbbb is the ending 
main storage address. In this case, beginning addresses are 
rounded down to the next hex 100 address and the ending 
address is rounded up. Multiple dump selection requests 
can be made during one run. 

See Diagram 1 1 M.01 00 for an overview of $CCPDD and 
Figure 11-1 for a diagram for locating $CCPFILE dumps 
and traces. 
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■ Input i 



DSM 



System 

communication 
region 



NCCONF 



Sysin device 



//DUMP IN 



//DUMP TRACE 



//DUMP ALL 



/* 




lW. 



Process ■ 



^^1 Determine if CCP is running in other 
program level. 
If yes, give message and go to EO.I. 

2 Allocate and open $CCP FILE. 



For each control statement from sysin, 
do the following: 

^^3 Read dump control record from 
sysin. 

Check syntax; if error, give message 
to syslog. 



■ 5 Initialize disk DTF to c/s value for 
specified storage or trace dump. 
Read disk, format data, output to 
printer via printer data management 
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Output ■ 



Terminate message 
to syslog 



• 4 Validate $CCPFILE initial charac- 
ters; save count of dumps. 
Save disk c/s bytes for storage 
dumps, and trace dumps. 



6 If /*,goto EOJ. 




Note: See IBM System/3 Models 4, 6, 8, and 10 
Disk Systems System Control Program 
Logic Manual, SY21-0502. 



End of job routine (See note) 
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Note: All dumps begin on a track boundary, 
Figure11-1. Schematic of Locating the Traces and Dumps 
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Program Organization 



Disk-to-Printer $CCPFILE Dump Program ($CCPDD) 

ENTRY POINT: DD0000 

CHART: RZ 

FUNCTION: Selectively dumps from disk, main storage 

memory, or trace dumps which were previously 

written on $CCPFILE by CCP. 
INPUT: 

— Control information from SYSIN. 

- Data to be printed from $CCPFI LE. 
OUTPUT: Main storage dump or trace table dumps to 

printer. 
EXIT: System end of job routine. 
EXTERNAL REFERENCES: $$LPRT (printer I/O module) 



DSM 



Initialization 



Core dump routine 



Trace table dump routine 



Printer I/O subroutines 



Messages, constants, etc 



Disk 10 subroutines 



Printer output area 



Field of zeros (256) 



Field of X'FF' (256) 



Sysin input area 



Disk IOB and disk data 
input area (256) 



$CCPDD 



Figure 11-2. Storage Layout during SCCPDD 
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DDOOOO 

****A1********* 

* * 

* ENT ER * 

* * 

««**«*******«** 



.*. 

Bl *. 

.♦RUNNING IN* 
*. OTHER 

*. LEVEL? . 



*****C 1***+**** 



♦ALLOCATE £ OPEN* 
* $CCPFILE * 



********* 



02-C2 
02-C5 

***** 

**°oT* 



*****B2 ********** 

* * 

* TERMINATE * 
>* MESSAGE TO * 

* SYSLOG * 

***************** 



I NOTE 1 
V 
****C2********* 

* * 

* ECJ * 

* * 
*************** 



02-C2***** 
02-C5*C03* 
02-F5* 04* 
2- J 5 * * 
03-02 * 



000020 V 

*****D2********** 



* ZERO INTERNAL 
->* FLAGS. 



***************** 



.* 96 ■ *. NO 

. POSITION .* 

*. PRINTER? .* 



*****E2********** 

*HODIFY CODE FOR* 

* 120 POSITION * 

->* PRINTER-llST * 



***************** 



ft****Fl* ********* 

* * 

* READ DUMP * 

* CONTROL FROM * 

* SYS IN * 

* * 
***************** 



Gl *. 

.* *. 

INPUT 

DATA='/*' 

"*. .♦" 

*. .* 
NO 



DD0021 

*****HL********** 
♦LOG INPUT DATA * 

* I F SYS IN £ * 

* SYSLOG NOT * 

* EUUAl * 

* * 
***************** 



*****G2********** 

* * 

* FINIShED * 
>* MESSAGE * 



***************** 



NOTE 1 
V 

#***H 2********* 

* * 

* ECJ * 

* + 
*************** 



Jl *. 
. * is *. **** 

YES .*INPUT DATA *. NO * * 

— *. A COfMENT .* >* B3 * 

*. RECORD .* * * 

* . .* **** 

*. . * 



**** 

* * 

* A5 * 

* * 
**** 



*****A5+********* 

* * 

* READ 1ST SECTOR* 
— >* OF $CCPFT.LE * 

* * 

* * 

***************** 



V 
CC0024 .*. 

B3 *. 

.* *. 

.* POS. 

*. 1-7 INPUT* 

♦ ••//DUMP' . 

*. .* 



C3 *. 

.* 
* POS. 9 

OF INPUT 
*. BLAUK 
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* 82 *<— 

* * 

**** 



NO .* 

— *. 



* H4 * 

* * 
**** 



#*** 

* * 

* H4 * 

* * 

**** 



* POS . 
9-11=' ALL' 



». YES 
.* >*SET 



*****D4 ********** 
* * 

SET ALL FLAG, 



DUMP NO.= l *- 

* * 

* * 
***************** 



E3 *. 

.* *. 

* POS. * 

9-13=TRACE 

*. .* 

*. .* 

*. .* 

* NG 



*****E4********** 

* * 

->*SET TRACE FLAG * 

* * 

* * 
***************** 

!< - 



FILE *. 

CHARACTERS . 
■.VERIFY OK.* 
*. .* 

*. .* 

YES 



* SAVE NO. OF * 

* TRACKS FOR * 

* TRACE * 

* * 
***************** 



*READ 2ND SECTOR* 
* OF SCCPFILE * 



***************** 



* SAVE COUNT OF * 

* MAXIMUM DUMP * 

* NUMBER * 

* * 
***************** 



F3 *. 








F5 *. 










.* POS. *. NO 
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*. .* 






.* TRACE *. YES 
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*. .* 1 




**** 




*. .* 1 


*. .* V 
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*. .* V 


*YES **** 
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* NO ***** 
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.* 
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* 


. BLANK .* 
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*. .* 
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DDC030 V 
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* STORAGE * 
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* SAVE * 
***************** 
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* * I 

* H4 *->] 

* * ( 
**** 1 

V 
*****HA********** 

* * 
*MSSSAGE TO HALT* 
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***************** 
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NOTE 1: IBM SYSTEM/3 DISK SYSTEMS 

SYSTEM CONTROL PROGRAM 
LOGIC MANUAL, SY21-0502 
NOTE 2! POS. 11-29 FOR MOOEL 12 
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***************** 
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***************** 
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***************** 
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***************** 
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INTRODUCTION TO $CCPLL (MODEL 4 ONLY) 

The log file dump program ($CCPLL) is a standalone 
CCP support program that runs under the control of DSM. 
It must be used whenever the contents of $CCPLOG file 
is to be printed. Data is read from the disk, formatted 
according to message lengths, and printed on the system 
printer using printer data management routines. 

$CCPLL will run on any configuration that supports CCP. 



METHOD OF OPERATION 
OCL Required 

The following OCL must be used to initiate the running 
of program $CCPLL: 

// LOAD $CCPLL, uu 

//FILE UNIT-xx, NAME-$CCPLOG, PACK-nnnnnn 
// RUN 

where uu is the disk unit on which $CCPLL resides, xx is 
the disk unit on which the $CCPLOG file resides, and 
nnnnnn is the packname on which $CCPLOG resides. 

See Diagram 1 1 M.0200 for an overview of $CCPLL. 



PROGRAM ORGANIZATION 

Disk-to-Printer $CCPLOG File Program ($CCPLL) 

ENTRY POINT: $CCPLL 

CHART: YY 

FUNCTION: Print all of the CCP messages which were 

previously written on $CCPLOG by CCP. 
INPUT: Data to be printed from $CCPLOG. 
OUTPUT: CCP messages printed on printer. 
EXIT: System end of job routine. 

EXTERNAL REFERENCES: Allocate, open, printer 
DM. 



DSM Supervisor 
$CCPLL code 

CAM 

Disk DTF 

Disk IOB 

$CCPLOG file input area 

Messages, constants, etc. 

Printer output area 



$CCPL.L 



Storage Layout During $CCPLL 
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Chapter 12. Standalone Dump Programs (Models 8, 10 and 12 Only) 



Introduction 

Four MFCU loadable dump programs are provided as part 
of the CCP feature of DSM. Each dump differs from the 
others only in the specific character chain or train it is 
meant to run with. The four dumps are: 

Program Name Chain/Train Supported 

CCPDAN AN2/LC2 (48 character standard) 

CCPDHN HN2 (48 character COBOL/FORTRAN) 

CCPDPN PN2 (60 character) 

CCPDTN TN5 (1 20 character upper/lower case) 

These card loadable dump programs are provided in case a 
severe error situation has destroyed the linkage in main 
storage to the DSM CEFE dump program. The availability 
of these dump programs itself emphasizes the importance 
of obtaining a main storage dump when attempting to 
diagnose an error condition while executing CCP. 

The use of these dump programs is not necessarily limited 
to CCP execution time error conditions. The dumps are 
entirely generalized and can be used to dump main storage 
at any time. 



Main Storage Requirements 

The dump program itself occupies (and therefore destroys 
the contents of) 768 bytes of main storage. In addition, 
the bootstrap loader used to bring the dump program into 
main storage occupies the first 256 bytes of main storage. 



Machine Requirements 

• 5424 Multifunction Card Unit. 

• 5203 or 1403 Printer, with chain/train of a character set 
matching the dump program selected. 



Method of Operation 

When PROGRAM LOAD is pressed with the Load Selector 
Dial set to CARD, a bootstrap loader is brought into main 
storage in bytes X'00-FF'. The loader issues halt CU. 

The system operator dials an address, the leftmost two digits 
of which specify the high order position of the storage 
location at which the dump program is to be loaded (for 
example, 60 for load starting at X'6000'). The system 
operator then resets the halt. (For dump procedure and 
load addresses, see IBM System/3 Models Wand 12 
Communications Control Program System Operator's 
Guide, GC21-7581.) 

The loader then loads the dump program into the 768 
(X'300') bytes at the specified location, and turns control 
over to the dump program. The dump program issues halt 
5E. 

The system operator selects the bounds of storage to be 
dumped by dialing the high order digits of the address of 
the first and last 256-byte block to be dumped. That 
is, xxyy is dialed indicating that locations X'xxOO' through 
X'yyFF' are to be dumped. The system operator then 
resets the halt. 

The dump program dumps the selected area of main storage 
to the printer. Each print line dumps 32 bytes of main 
storage, both in hex and in character form. (A period (.) 
is displayed for an unprintable character.) On a 5203 with 
96 character positions, not all the character representations 
can be printed; the dump is double spaced. Duplicate sets of 
32 bytes are not printed, but are represented by an extra 
blank line in the dump; however, the last 32 bytes of a 
dump are always printed even if they are duplicates. 

The dump program then returns to the 5E halt. The system 
operator can select another area of main storage to dump. 
The dump programs never issue an EJ halt. 
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Figure 12-1. Storage Layout of Dump Program 



Card-Loadable Main Storage Dump Programs (CCPDAN, 
CCPDHN, CCPDPN, CCPDTN) 

ENTRY POINTS (from card bootstrap loader): 

- CCPDAN 

- CCPDHN 

- CCPDPN 

- CCPDTN 



CHART: ZN 

FUNCTION: Dumps main storage to printer. 
INPUT: 

- Main storage address bounds from operator via 
ADDRESS/DATA switches; on a 5E halt, the operator 
sets: 

- Switches - 1 - High order digits of dump start 
address. 

- Switches 2 - 3 - High order digits of dump end 
address. 

— Contents of main storage itself. 

OUTPUT: Hex and character representations of the contents 
of the selected area of main storage. Each line repre- 
sents 32 bytes of storage and contains: 

- The address of the first of the 32 bytes. 

- The hex representation of the 32 bytes. 

- The character representation of as many of the 
32 characters as are printable and that will Pit in 
the available print positions. 

(The first line of output appears after an eject to a 
new page. A page length of 66 lines is assumed - 
page overflow ejection is performed.) 
HALTS, NORMAL: 

- An initial 5E halt is issued to permit the operator to 
set the ADDRESS/DATA switches to the bounds of 
the dump. 

- Upon completion of dumping specified area of storage, 
return to halt 5E. ADDRESS/DATA switches may be' 
reset, permitting selection of another area of main 
storage to be dumped. 

HALTS, ERROR: 

- If, after a 5E halt, the setting of switches - 1 
(start address) is greater than the setting of switches 
2-3 (end address), the 5E halt is immediately 
re-issued. 

- If a printer error occurs, a PC halt is issued. Upon 
pressing START (or HALT/RESET), the error line 
is retried and dumping continues. 
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Chapter 13. Installation Verification Program 
(CCPIVP) 



Introduction 

CCPIVP is the installation verification program provided 
with CCP. After being included in an Assignment Build 
($CCPAS) run, it can be used to verify a satisfactory 
generation of CCP. This program is distributed in two 
forms on the CCP distribution pack: 

1. Object module CCPIVP that has been link-edited to 
include the necessary disk data management modules 
($$CSOP, $$CSIP). The link edit map for this module 
is contained in Figure 13-1. 

2. Relocatable module CCPIVR that has not been link- 
edited. Using the optional link edit statements punched 
during generation, CCPIVR can be link-edited to create 
a new CCPIVP that includes the necessary disk and 
printer data management modules to test the use of 
the printer under CCP. 

On Model 4 CCPIVP is included, already link edited, and 
ready to run with the 5213 printer. 
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Program request from terminal (optional) 

Program request from console, input data for disk 
record, selection of printer or console for disk file 
output, responses to error messages 

Prompting or error messages 



Disk records from created file 

Disk records based on data with the program request 
and console input 

Disk records from created file 

Optional printing of created file 



*CGIVFILE is the filename used in the disk DTFs 
within CCPIVP. If symbolic files are being used, the 
actual file name may differ according to the assign- 
ment set. 

•On Models 8, 10, and 12, printer data manage- 
ment modules are optionally link edited based 
on the installation's needs. 

If link edited from an RPG II pack used during CCP 
generation, the modules would be $$LPRT, $$UPRT. 
If link edited from a non-RPG II pack used during 
CCP generation, the modules would be $$LPRT, 
$NLPRT. 



Data path through CCPIVP 



System printer 



Method of Operation 

CCPIVP can be requested either from a command terminal 
or the console. Once loaded, CCPIVP communicates solely 
with the console, receiving input records and building disk 
records in a consecutive file. Based upon input from the 
console, the created file is dumped to either the console 
or the system printer. 

Figure 13-2 shows: 

— One or more copies of CCPIVP running under CCP. 
If more than one copy of CCPIVP is to be run con- 
currently under CCP, the following conditions must be 
in effect: 
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Figure 13-2 (Part 2 of 2). Main Storage Map of CCPIVP Running 
Under CCP 



a. Multitasking (MAXEUP>1) must be supported. 

b. Symbolic files must be used. Each copy of 
CCPIVP requires one disk file. 

c. CCPIVP must not be link-edited to use the printer. 

d. Sufficient main storage must be available for 
multiple copies of CCPIVP (approximately 4K 
per copy). 

— Flow of data through a copy of CCPIVP. 
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Figure 13-2 (Part 1 of 2). Main Storage Map of CCPIVP Running 
Under CCP 



FUNCTIONS VERIFIED 

The CCP functions that can be verified by running CCPIVP 
include: 

— Program load from the console, and data with the 
program request. 

— Program load from a terminal, and data with the 
program request. 

— Resource management-core, disk and printer (if link- 
edited with CCPIVP). 

— The following opcodes to the console: put-wait, 
put-then-get, put-no-wait. 

— Accept input op code to the requester. 

— Release terminal op code to a non-console requester. 

— If symbolic files are supported, use of the symbolic 
files and the /FILE terminal operator command. 

— Multitasking (if supported) under CCP: 

a. If symbolic files are used, and 

b. CCPIVP does not use the printer. 

— Open, create, and close a consecutive disk file. Open, 
list, and close the created file, verifying these file 
functions under CCP. 

— If printer data management has been optionally link- 
edited, use of the printer under CCP. Use of halt/syslog 
under CCP by forcing a halt on the printer. 
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CCPIVP HALTS 

CCPIVP issues stand-alone halts (HPLs> if: 

- An unexpected return code was received from CCP. 

— An unrecoverable printer or disk error occurred and 
control was returned to CCPIVP. 

These halts should not occur and are given primarily so that 
dumps of main storage can be taken immediately upon 
detection of the condition. 



Halt UO (ABD 1245 on Model 4) 

Reason: This copy of CCPIVP was requested by a terminal 
and the release operation code failed. 

Recovery: 

- Press the HALT/RESET or START key; CCPIVP will 
go to end-of-job. 

— Take a dump of the main storage contents by pressing 
SYSTEM RESET and START, or by using the appropriate 
stand-alone main storage dump program. 

Halt H1 (ABD on Model 4) 

Reason: Return code other than 00 or 01 received from 
accept input operation (can only happen if data has a 
program request). 

Recovery: 

- Press the HALT/RESET or START key; error message 
is written, input data required. 

— Take a dump of the main storage contents by pressing 
SYSTEM RESET and START, or by using the appropriate 
stand-alone main storage dump program. 

Note: If you enter the correct data and length of data and 
get error messages from CCPIVP, this may indicate that the 
CCP is passing invalid information in the parameter list or 
record area. 



Halts U2 - UA 

Reason: An unexpected return code: not 00 received on an 
output operation or not 00 or 01 received on an input 
operation. U2 through UA correspond to a particular 
operation issued in the program at a particular time. 



Recovery: 

- Press the HALT/RESET or START key; completion 
code is printed on the console and input is required. 

— Take a dump of the main storage contents by pressing 
SYSTEM RESET and START, or by using the appropriate 
stand-alone main storage dump program. 

Note: Model 4 CCPIVP does not use the U6 and U8 halts. 

After pressing the HALT/RESET or START key on a U2 
through UA halt, the following is printed: 

TNAME-ssssss, UNEXPCTD RET CODE rrrr ENTER TA OR xx 

ssssss ■ Symbolic terminal name of console (5471), 

always CONSOL. 
rrrr = Return code in hexadecimal. 

TA = Operation retried, 

xx = Any characters other than TA; program goes 

to EOJ. 



Halt Ud (A BD 123 on Model 4) 

Reason: An error has occurred using the disk file and 
control has returned to the application program indicat- 
ing a non-recoverable condition. 

Recovery: 

- Press the HALT/RESET or START key; CCPIVP goes 
directly to EOJ. 

— Take a dump of the main storage contents by pressing 
SYSTEM RESET and START, or by using the appropriate 
stand-alone main storage dump program. 



Halt UP (ABD2345 on Model 4) 

Reason: An error has occurred in using the printer and 
control has returned to CCPIVP indicating a non- 
recoverable error. 

Recovery: 

- Press the HALT/RESET or START key; CCPIVP goes 
directly to EOJ. 

— Take a dump of the main storage contents by pressing 
SYSTEM RESET and START, or by using the appropriate 
stand-alone main storage dump program. 
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Program Organization 





OVERLAY 


LINKAGE EDITOR 


CORE 


USAGE MAP AND 


CROSS REFERENCE 


LIST 


START 


CATEGORY 


NAME AND 




CODE LENGTH 


REFERENCED 




ADDRESS 








ENTRY 


HEXADECIMAL 


DECIMAL 


BY 






1500 









CCPIVR 




0C04 


3076 








2104 




2 




$$CSOP 




001D 


29 


CCPIVR 






2121 




2 




$$CSIP 




0027 


39 


CCPIVR 






2148 




2 




$$SRBR 




0079 


121 


$$CSIP 


$$CSOP 




21C1 




2 




$$SRUA 




0026 


38 


$$CSIP 


$$CSOP 




21E7 




2 




$$SRDF 




001C 


28 


$$CSOP 






2203 




2 




$$SRTC 




001C 


28 


$$CSIP 


$$CSOP 


$$SRDI 


2203 








DMSRLO 














2214 








DMSRTC 








$$CSIP 


$$CSOP 




2217 








DMSRER 








$$CSIP 


$$CSOP 


$$SRDI 


221F 




2 




$$SRMO 




0081 


129 


$$SRBR 






22A0 




2 




$$SRSB 




0043 


67 


$$SRBR 






22E3 




2 




$$SRDI 




0038 


56 


$$SRSB 


$$SRBR 




2302 








DMSRPD 








$$SRSB 






22FB 








DMSRRD 








$$SRSB 






231B 




2 




$$SRBP 




002F 


47 


$$SRSB 


$$SRUA 




OL100 I 


THE 


TOTAL 


CORE USED BY CCPIVP IS 


3658 DECIMAL. 






OL101 I 


THE 


START 


CONTROL ADDRESS 


OF THIS 


MODULE 


IS 1500, 


» 




0L104 I 


TOTAL NUMBER OF LIBRARY SECTORS REQUIRED 


IS 16 







NAME-CCPIVP,PACK-CCPOBJ,UNIT-Rl,RETAIN-P,LIBRARY-0 



Note: This version of CCPIVP is not link edited to run 
with the printer. 

Figure 13-3. Siample Linkage Edit Map of CCPIVP {Models 8, 10, 12) 
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Installation Verification Program (CCPIVP) 

ENTRY POINT: CCPIVP 

CHART: ZP 

INPUT: 

— Data with program request (8 characters). Specified 
to be MM/DD/YY but can be any 8 characters. 

— Input from console to build disk file (3 characters). 

— Input from console to end input for disk file {/*). 

— Input from console to dump to printer or console 
(P for printer, any other character for console). 

— Input from created disk file-DDD*PPPPPPPP*NNN 
where: 

— DDD — three characters keyed from input 2 above. 

— PPPPPPPP - 8 characters keyed with program 
request. 

— NNN - 3-digit record count kept by CCPIVP. 

— Input from console when unexpected return code 
message issued: 

— TA — try again, repeat failed operation. 

— Any other character, go to abnormal end of job. 
OUTPUT: 

— Messages to console - normal operational messages: 

— Prompting messages. 

— End of job. 

— Disk records to console or printer. 

— Messages to console — errors: 

— Invalid data with program request. 

— Data from console not 3 characters or /*. 

— P entered from console but printer data manage- 
ment not included at link edit. 

— Abnormal end of job. 

— Unexpected return code. 



EXTERNAL ROUTINES: 

- $$CSOP — consecutive output data management. 

- $$LPRT, $NLPRT - for printer on non-RPG II 
packs (Models 8, 10, and 12). 

- $$LPRT, $$UPRT - for printer on RPG II packs 
(Models 8, 10, and 12). 

- $$BDMC (Model 4 CCPIVP) 
EXITS, NORMAL: 

- Disk file build complete. 

- End of job for CCPIVP. 

EXIT, ERROR: Program has encountered unrecoverable 

errors; disk file closed. 
NOTES: 

- Two disk DTFs; both use filename CGIVFILE. 

- In order to handle symbolic files and release of 
requester, both DTFs are opened before input is 
accepted so that the actual file name is placed in 
both DTFs when closed. 

- CCP Generation, Assignment and link edit must be 
run before loading under CCP. 

- $$LPRT is a weak EXTRN (Models 8, 10, 12 
CCPIVP). 

- Stand-alone halts are issued when 'should not occur' 
situations occur: 

— Unexpected return codes. 

— An unrecoverable disk or printer error has occurred 
and CCPIVP has received control. 

These halts are issued at different points within CCPIVP 
providing the user with places to dump main storage. 
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tcpivp 

ft *+*A2* ******** 

* * 

* ENTFR * 

* * 
*************** 



SEE NOTF 
***** A3 ********** 
♦ALLOCATE, OPEN * 

* DISK OUTPUT * 
->*(DSKFLO>, INPUT* 

•(OSKFLTI RTF'S * 

* * 
ft**************** 



****+B3********** 

* * 

* SET UP ACCEPT * 
♦INPUT nPEPATION*- 



***************** 



I 

V 
ft** **C3 ********** 

* SET UP * 

* REOUESTER "ISC, * 

* TO CONSOLE - *- 

* 'PUT-NO-WAIT" * 

* * 
***************** 



NOTF: BOTH FILES ARE OPENED TO ENSURF 
ACTUAL FILENAMES APPFKR IN OTF 



ZP/C5/A1 

*****R4**ft*ftftftfcft* 

*CG1I0 * 

* * 

>* t/n INTERFACE * 

* WITH CCP * 

* * 
***************** 



ZP/P5/B1 

*****C4********** 
*CGIROS * 

->* i/o'interface"* 

* WITH CCP * 

* * 
***************** 



V 

.*. 

D3 *. 

**** .* *. 

* * YES .* WAS *. NO 

* G3 *< *. REOUESTER .* 

* * *. CONSOLE .* 
**** *. .* 

*. .* 



*****04********** 

•SET UP RELEASE * 
->* TERMINAL *- 

* OPERATION * 

* * 
***************** 



ZP/05/B1 

*****0 5 ********** 

•CGIROS * 

->*"t7o"tNTERFAci"* 
* WITH CCP * 

***************** 



.* RELEASE *. NO 

. OP RETURN .* 

*. CODE .* 



ft ****E4ft*ft ******* 



***************** 



ZP/05/C1 

****E5 ********* 
♦CGIEJF * 

* abnormal'foj * 

*************** 



*****G2** ******** 

* * 

* * 

* hpl 'Ui' *<- 

* * 

* * 
***************** 

)**** 
# * 

->* H4 * 
* * 
**** 



* MOVE 'CONSOL' * 

* INTO SYMBOL * 

* TERMINAL NAME * 

* * 
***************** 

**** I 
*005* I 

* E3 *->) 

* * | 
**** V 

CGI005 .*. 

G3 *. 
<0 OR.* *. 
>1 .* ACCEPT *. ■ 

*. OP RETURN .*- 

*. CODE .* 
*. .* 
*. .* 
' -0 



.* ACCEPT *. NO 
*. INPUT LEN = .* 



,* 
* YES 



*****J3 ********** 
*MOVE DATA WITH 






****H4********* 
v *CGIEM1 * 

>*- 

A * ERROR MSG 

*************** 

ft*** 
ft * 

* H4 * 

* * 
**** 



***************** 



**** 

*t>02* 

* R4 *-> 



**** 
CGI015 

*****K 3 ********** 

* * 
*SET UP PUT MSG * 

* 1 *- 



***************** 



ZP/05/A1 

*ft***K4*********ft 
*CGIIO * 

* ft 

->* I/O INTERFACE *— 
* WITH CCP * 

ft ft 

ft*#*ft**ftft ******** 



V 

***** 
*00 2* 
* A2* 
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***** 
*001* 
* K4* 



.* *. 

.* PUT *. NO 

*. RFTURN CODE .* 

*. "0 .* 



**•* 

* * 

* B2 *-> 



**** 
CGI020 V 

*****R2********** 

* + 
•SET UP PUT HSG * 

* 1A *- 



**•* 

* > 

* CI ' 

* 
**** 



***************** 



CI 



END OF 
JOB 



.SEE NOTE 
*. 

*. 



C2 



*. 



* YES 



•***0l ********* 

JS'iliL. * 



* PUT *. NO 

RETURN CODE .* 

*. "0 .* 

*. .* 

*. .* 
* YES 



*****D2* ********* 



♦SET UP PUT MSG * 
* IB *- 



***************** 



V 

.*. 

E2 *. 



**** 
•005* 
* F3 *-> 



,* 
' YES 



**** 
CGI040 * 

*****F2********** 

* * 

* SET UP * 

* PUT-THEN-GET *- 

* MSG IC * 

* * 
***************** 



vimu 1 



• * 



****•<; ]***i 
JCGIM|_ 

ru "iiou?iJi*"": < -' < --" 

* 
****** *********** 



*****A3********** 



->* HPL 'U2' 



***************** 



ZP/05/A1 

*****B3*4******** 
♦CGIIO * 

* * 

->* I/O INTERFACE * 

* KITH CCP * 

* * 

***************** 



*****C 3 ********** 

* * 

* * 
->* HPL <W *- 



***************** 



ZP/05/A1 
*****D3********** 
*CGIIO * 

* * 

->* I/O INTERFACE * 

* WITH CCP * 

* * 

***************** 



*****E3********** 



***************** 



ZP/05/A1 

*****F3********** 
♦CGIIO • 

*-.-——.. — _„.* 

->* I/O INTERFACE * 

* WITH CCP • 

* ♦ 
***************** 



T 

*♦♦* 

• * 

♦ Gl ♦ 



♦ P-T-G ♦ 

RETURN CODE 
*. "0 .♦ 



5? 



->♦ 



*****G3********** 

* * 

* * 
HPl 'UA' *- 



***************** 



ZP/06/AI 
*****A4** ******** 
*fGTFMR * 



->* GENFR/ 
* msg 



ERROR * 

FTOY * 

TINE * 

w******** 



.*.SFF NI1TF 
B4 *. 
.* *, 

.* END [IF *. YF 

*. JOB .* — 

*. .* 

*• •* 

*. .* 
« NO 
I **** 
I *P01* 
->* K3 * 
* * 

**** 
ZP/06/A1 
*****C4********** 
•CGIEMR * 

* * 

->* GENERAL ERROR * 

* MSG RFTPY * 

* ROUTINE * 
***************** 



.♦.SEE NnTE 
D4 ♦. 
.♦ ♦. 
.♦ ENO OF ♦. YES 

*. JOB .* 

♦ . .♦ 

*. .* 

*. .* 
* NO 
j **** 
I * * 

->* R2 * 
* * 

*•♦♦ 
ZP/06/A1 
*****£4********** 
♦CGIEMR * 



7P/0VC1 
****ft *.********* 
♦CGIEJE * 

*~abnormal~eoj * 
*************** 



ZP/05/C1 

ins********* 



♦♦♦♦I 
•CGIE, 



**** 

->* GENERAL ERROR ♦ >* CI * 

♦ "SB RETRY * * ♦ 

* ROUTINE * ***♦ 
***************** 



I 

.*_ 

F4 * 

.♦' END OF 

JOB 



NO 



». YES 

.♦ 



ZPY05/C1 

*»**F5****«**e* 



♦rGIEJE 

->*- 



* 



* SEE NOTE 



*****G4* 
•CGIEMR 



E 3ig 4 REfs? OR : 



WAS /* 
ENTERED 



V 
.*. 

J2 *. 
.* WERE *. 
.* EXACTLY 3 
*. CHARS 
*. ENTERED . 



TWO BRANCH INSTRUCTIONS FOLLOW ThS BRANCH TO 



•003* 

* A2* 



CGIEMR. THE FIRST IS FOR 
FOR ABNORMAL END OF JOB. 
EITHER BRANCH (TO CGIEMR 



csiemJ re 

4-4 OR *8I 



THE SECOND IS 
-"TURNS TO 



• Gl * 

• * 
*•** 



*****K2********** 

* 1. ADD 1 TO * 

* COUNTER. 2. * 
*MOVE KEYED OATA*- 
*T0 DISK RECORD.* 

* * 
***************** 



*****K3 ********** 

* * tiCSQP - * * 

* «PUT TO DISK* * 
->• * - SEE PLM * *- 

* * SY21-05U * * 

* * * * 
***************** 



K4 *. 

.* *. 

•DISK * 

ERROR 



*. 



**** 

* * 
-•>* F2 * 

* * 
***• 



****K 5********* 
*CGIIO * 

*"l7n"lNTERFAci"* 

*************** 



Chart ZP (Part 2 of 6). Installation Verification Program (CCPIVP) 
13-8 



***** 
♦002* 

• H2* CGICKS 
* * *****A2********** 
* * CLOSE DISK * 
I • OUTPUT AND * 

— >*INPUT DTP'S TO * 

•SAVE DISK FILE * 
* NAME * 
***************** 



CGI055 V 

*****B2********** 



*SET UP PUT MSG 
* 2 



***************** 



ZP/05/A1 

*****B3 ********** 
*CGIIO * 



***************** 



*****C3********** 



RETURN 
CODE = 



.* >* HPL <U5< 






***************** 



B4 *. 

.*' END OF **. YE 
*. JOB .* — 
*. .* 

*. .* 
*. .* 

* SEE NOTE 



*««**C /,********** 
•CG1EMR * 
* * 

>* GENERAL ERROR * 

* M5G RETRV * 

* ROUTINE * 
***************** 



THIS PORTION 
n/a TO MODEL 
C2 YES GOES 
DIRECTLY TO 



♦SET UP PUT MSG 
* 2A 



***************** 



2P/05/A1 

*****D3********** 
♦CGI 10 _ i * 

->*"T73 INTERFACE™* 

* WITH CCP * 

* * 

***************** 



I NO 

.*. 

04 *. 

.* *. 

.* END OF * 

*. JOB 



YES 
* > 



E2 



*. 



.* RETURN *. NO 

*. CODE - .* 

*. .* 

*. .* 
*. .* 
* YES 



*****E3 ********** 

* * 

* * 
->* HPL 'U6> *- 

* * 

* * 
***************** 



"**SEE NOTE 
A 



ZP/06/A1 
*****E4* ********* 
*CGIEMR * 

* * 

->* GENERAL ERROR * 

* MSG RETRY * 

* ROUTINE * 

***************** 



CGI070 V 

*****F2********** 



♦SET UP PUT MSG * 

♦ 2B ♦- 



***************** 



ZP/05/A1 

*****F3********** 
*CGIIO * 

* * 

>* I/O INTERFACE * 

* WITH CCP * 

* * 
***************** 



.* END OF 
». JOB 



*. YES 

. * 



G2 



*. 



*****G3 ********** 



.* RETURN 
♦. COOE - 
*. •* 

*. .* 

*. .* 
* YES 



nW s to°S5deS 
SIre'ctly* 6 

004, A2 



°r8 



r 



CGIOSO 

*****H2********** 



SET UP 

PUT-THEN-GET 

MSG 2C 



***************** 



ZP/05/A1 

*****H3********** 
♦CGI 10 



* SEE NOTE 



t ZP/06/A1 

*****G4********** 
♦CGIEMR * 

* * 

->* GENERAL ERROR * 

* MSG RETRY * 

* ROUTINE * 
***************** 



* >* 



* . * 



***************** 



***************** 



1 NO 




H4 *. 

*. 

ENO OF *. YES 

JOB .* 

.* 
.* 
*. .* 

* SEE NOTE. 



J2 *. 
.* *. 
* RETURN *. N 
CODE *0 OR .*- 
*. 1 .* 
*. .* 
*. .* 
* YES 



*****J3 ********** 



* > 



ZP/06/A1 
*****J4********** 
♦CGIEMR * 

* — -* 



***************** 



ZP/05/C1 

****H5 ********* 
•CGIEJE * 

• AbNORMAL EOJ * 

*************** 



***** 

♦ 004* 

* A2* 



NOTE: THESE ARE NOT ACT 



clic 



INSTRUCTIONS. 



TWO BRANCH INSTRUCTIONS FOLLOW THE BRANCH TO 
CGIEMR. THE FIRST IS FOR RETRY, THE SECOND IS 



FOR ABNORMAL END OF 

EITHER BRANCH '" " 



... _. JOB. CGIEMR RETURNS TO 
ITO CGIEMR +4 OR +8). 
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***** 
4003* 

* J2* CGI090 .*. 
* * A2 *. 

* .* *, 

I .* 1ST *. 

>*. IXPUT CHAR . 

*. - P .* 
*- .* 
*. .* 
* NO 



*****A* ********** 
4 SET DUMP DISK * 

* FILE BUILT TO * 
->*PRINTER SWITCH *- 

* ON * 

* * 
***************** 



CGI 100 V 

*****I52** ******** 



♦OPEN DISK INPUT* 
* DTF * 



***************** 



«4 *. 
.* HAS *. 
.* JJLPPT *. NO 

->*. LINK-FOtTEO .* 

*. .* 
*. .* 
*. .* 
* YFS 



4****R4********** 



* ALLOCATE. OPEN * 

* PRINTER OTF * 



***************** 



ZP/05/G1 

****A ********** 
*CGIEM4 * 

* LINK-EDIT MSG * 

*************** 



* C2 *-> 



**** 
DISKIN V 

*****C2********** 

* * $*CSI'' - * * 

* *GET DSK PEC* * 

* * - SEE PLM * * 
SY21-0512 



* * 



* * 



***************** 



V 

.*. 

02 *. 



DISK 
ERROR 



.* 
. .* 

* NO 



.* ; 



****D3********* 
*CGIIO * 

"T75~INTiPFAci"* 

*************** 



62 *. 
• * *■ 

END OF *. YES 

• FILE .* 

. .* 

*. .* 

*. .* 
* NO 



**** 
*CGIE. . 



53********* 
N 



.* PRINTER *. YES 
*. SWITCH ON .* 

*• .* 



*****F 3****4***** 

* PRINT A OISK * 

* RECORD AND * 
->* PERFORM * 

* SPACING. LINE * 

* CONTROL * 
***************** 



ZP/05/A1 


CGI 1*0 ' ' 


.*. 






*****Gl********** 


*****G2********** 


G3 *. 


**4**G4*******4*4 




♦CGIIQ * 


* MOVE DISK R6C * 

* TO CCP I/O * 


.* *. 


* * 




»——-—.._..—* 


.* *. YES 


* * 




* I/O INTERFACE *< 

* WITH CCP * 


* AREA. SET UP * 


*. ERROR .* 


- — >* HPL 'UP' * -> 


♦PUT OF DISK REC* 


*. .* 


* * 




• * 


* TO CONSOLE * 


*. .* 


* * 




***************** 


***************** 


*. .* 
* NO 
j **** 
1 * * 
->* C2 * 
* * 
**** 


4*4************** 






V 








.*. 




.*. SEE NOTE 


ZP/0S/C1 




H2 *. 


*+***H3 ********** 


H4 *. 






.* *. 


* * 


.* *. 


****H!> ********* 




.* RETURN *. NO 


* * 


.* END OF *. YES V 


1 *CGIEJE * 




*. CODE • .* 




>*. JOB .* 


—>* * 




*. .* 
*. .* 


* * 
+ * 


*. .* 
#. .* 


* ABNORMAL 60J * 
*************** 




*. .* 


***************** 


*. .4 






* YES 




* NO 






1 **** 




1 **** 






1 * * 




* * 






->* C2 * 




->* C? * 






* * 




4 * 






**** 




**** 





THESE ARE NflT ACTUAL INSTRUCTIONS. 

TWO BRANCH INSTRUCTIONS FOLLOW THE BRANCH-TO 

HJ E »tefflIi. ,! Kg T of s J fiE c-giImr WfuHPffi ,s 

EITHER BRANCH <T0 CGIEMR ♦* OR +B1. 
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cgi in 

***#A i ********* 

* * 

* ENTER * 

* * 
*************** 



*****fi ?********** 

* * 

*SAVF APP. POINT* 
>* XR? TO PAtJM *_ 

* LIST, * 

* * 

***************** 



*****fl ^ ********** 

* * 

* SET RATA &PEA * 
->*AnnRFSS IN PftPM*- 

* I I^T * 

* * 
***************** 



CJFF mptf 
*****A4 ********** 

* POANfH TO * 

* GENPRAL PNTOV * 
>*witm rrp RIB TO* — 



Cno 



rp op * 



****&e5********* 

* * 

* DpTHPM * 

* * 
*************** 



***************** 



CGIROS 

****($!*****>(:*** 

* * 

* ENTER * 

* * 
*********** **** 



*****R2********** 

* * 
*SAVF ARP. POINT* 

>* XR? Tp PARM *- 

* LIST. * 

* * 

***************** 



***&*R3********** 

* SFT DfiTA A^EA * 
->*AnDRE^ I" P&PM*- 

* LIST * 

* * 
***************** 



SFF NOTP 
***ft*R4 ********** 

* PBANCH TO * 

* G p NFPAL EMTPV * 
->#WITM f.CP <MP- Tfl* — 

*F*FCUTE CTP OP * 

* CODE * 
***************** 



****PR ********* 

* PFTI1RM * 

* * 
*************** 



CGIEJE 

*#**C3 ********* 

* * 

* ENTFR * 

* * 

*************** 



TGIEJN 

****D1 ********* 

* * 

* ENTER * 

* * 
*********** A*** 



*****C ?********** 

* * 

* SET UP PUT * 
>* ABNORMAL FOJ *- 

A * MSG (EJEMSG) * 



*************** A* 



7P/OVA1 

*****C3**#***#*** 

*rGTIO * 



1 *• 

**** 



* C2 * 

* * 

**** 



*****0 2* ********* 

* * 

* SET UP PUT * 
_>*MOPMAL EOJ HSG *- 

* (EJNMSG) * 

* * 
***************** 



->* I/O INTERFACE 
* WTTH TCP 



***************** 



ZP/05/AI 
*****03 ********** 

♦rGiin * 



->* T/n INTERFACE *- 
* WITH TCP * 



***************** 



**#**D4*** ******* 

* * 

* CLOSE DI*K * 
>* INPUT AND *- 

* PRINTER DTF'S * 

* * 
***************** 



SPF NOTE 

*#**ps; ********* 

* * 

* FHJ * 

* * 
*************** 



CGIEM1 

****pl*****Ut*** 

* ENTER * 

* * 
*********** I**** 



*****E2********** 

* * 

* SET UP * 
->* PUT-THFN-GET *- 

* (EMSG1) * 

* * 
***************** 



*****F3********** 

*CGim * 



_>* ]/n INTEPFftCF *- 
* WITH CCP * 



***************** 



***** 
*n C l* 

* G^* 



CGIEM2 

****F 1 ********* 

* * 

* ENTFR * 

* * 
*************** 



*#***F?** ******** 



SET tfp PUT 
(EMSG2) 



***************** 



ZP/05/41 

*****F 3 ********** 

*rr,un * 




>* I/O INTERFACE * 

* with crp * 

* * 

***************** 


V 

***** 
*002* 
* F?* 



CGIEM4 

****G1 ********* 

* * 

* ENTER * 

* * 
*************** 



*****G2********** 

* * 

* SET UP PUT * 

->* (F«tsr,M *- 

* * 

* * 
*>>*** ************ 



CGIF30 IP/O'j/lil 

*****f;3 ********** 

♦fGIIO * 



->* I/fl INTERFACE * 

* with r.r.p * 



***************** 



**** 

* * 

* r? * 

* * 
**** 



SEE IBM SYSTEM/I DISK SVSTFMS 
SYSTEM CONTROL PRORR4M LOGIC M4NUSL, 
SY21-P5P2. 
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CGI EM P. 

«**»A1********* 



***<)****«** **** 



*****A 2********** 

* SAVE REGS. PT. * 

* XRl TO LEFT 4 
->*8VTE OF RETURN * 

* CODE. PT. XR2 * 

* TO WORK AREA. * 
***************** 



*****B2********** 
•CONVERT 2-RYTE * 
♦HEX RETURN CODE* 

* TO 4-BYTE * 
♦PRINTABLE CHAPS* 

* * 
***************** 



*****C2********** 

* * 

* SET UP * 

* PUT-THEN-GET * 

* (MSGRY1I * 

* * 
***************** 



*****02********** 

* SAVE AND MOVE * 

* TERM NAME TO * 

* M5GRY1. READY * 

* CONSOLE AND * 



V ZP/0VA1 
*****£ 2********** 
*CGHO * 

*~i7o~TntIrf'ace™*' 

* WITH CCP * 

* * 
***************** 



V 

.*. 

F? *. 
.* INPUT * 
.* FROM 
*. CONSOLE - 

"*. .* 
*. .* 
* NO 



*****G2********** 



♦ADD +4 TO SAVED* 
* ARR * 



***************** 



*****H2********** 

* * 

* RESTORE SAVED * 

* TERM NAME * 



***************** 



****J2********* 

* RETURN VIA * 

* SAVED ARR * 

* * 
*************** 



Chart ZP (Part 6 of 6). Installation Verification Program (CCPIVP) 
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Chapter 14. File Recovery Program ($CCPRB) 



Introduction 

The File Recovery Program ($CCPRB) is a stand-alone CCP 
support progrann that runs under control of DSM. 

The Disk File Recovery Program's purpose is to assist the 
CCP user in disk file recovery if the CCP is abnormally 
terminated. 

A normal CCP termination is by the shutdown procedure, 
which includes updating file pointers and closing of the 
files. Any other method of termination is considered ab- 
normal, such as a power failure, a process check, or a U - 
halt. 

A CCP abnormal termination does not update the disk file 
pointers or close the files. This condition leaves sequential 
and indexed files with added records that are inaccessible 
by normal methods. 

$CCPRB must be the first program run after an abnormal 
CCP termination. The IPL must be from the same pack 
for which the CCP IPL process was performed. All disk 
packs that CCP uses must be in their original location and 
online. On a DPF system, the file recovery program must 
be loaded if the same level CCP was running. 



Method of Operation 

The following OCL statements are required: 
// LOAD $CCPRB,unit 
// FILE UNIT-unit,PACK-packname,NAME-$CCPFILE 

//RUN 

The // FILE statement must describe the same $CCPFILE 
that the abnormally terminated CCP used. 

File recovery is based on the format 1's in the SWA built 
during CCP startup. CCP startup saves the first twelve for- 
mat 1's (three sectors) in the $CCPFILE. The three sectors 
saved are placed in the three sectors preceding the CCP 
dump area. When saved, the last three bytes of the first 
format 1 contain a pointer to the last, used format 1 in the 
SWA. 

The file recovery program retrieves these twelve format 1's 
by use of the // FILE statement for the $CCPFILE and the 
dump area pointer in the $CCPFILE directory. The re- 
maining format 1's are retrieved directly from the SWA on 
the system pack. 
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Each format 1 is checked and the following actions taken: 



Open Consecutive Add or Load Files: If the user requests 
the ADD option, the format 1 end-of-data pointer is set to 
equal the end-of-file pointer. 

If the user requests the CLOSE option, the format 1 pointers 
are left as they were. 



Open Indexed Add Files: The end-of-index pointer is set 
to the first free position following the last good key. The 
last good key is determined by searching the added keys 
for the X'FF' following the last added key. The record 
pointed to by the key preceding the X'FF' is checked for 
the same key. If ther keys do not match, the preceding key 
is used for the same check. When a match of keys is found, 
the key location within the record is checked. 



If the record does not end in the same sector that contains 
the key, then the preceding key is used as the last key. If 
the record does end in the same sector that contains the 
key, then this key is used as the last key. All keys between 
the last good key and the X'FF' after the last added key 
are set to X'FF'. The end-of-data pointer is set to the first 
free data position based on the last good key in the index. 



All Other Files: The format 1 's are left as they were. 



Updating the VTOCs: End-of-job updates the required 
VTOCs based on the updated format 1's in the SWA and 
closes all files. 

See Diagram 14M.010Q for an overview of $CCPRB. 
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DSM 



■ Input i 



System pack 




Legend 



$CCPFILE 




Three sectors 
of format 1 's 
CCP startup 
isaved 




CCP data 
files refer- 
enced by 
format 1 's 



o 




Diagram 14M.0100. $CCPRB 



W 



■ Process i 



C^ 



=0 



1 Verify // FILE statement for 
$CCPFILE. 

♦ If no // F I LE statement, more than 
one //' FiLE statement, or not for 
SCCPFILE, issue error message 
and go to EOJ. 

2 Read format 1 's from $CCPF I LE and 
SWA, 

3 Read restore and rewrite SWA index 
sector. 

4 Set // FILE statement bit on in pro- 
gram communication area. 



5 Check each format 1 . 

♦ If Consecutive Add or Load File 
found open: 

Issue message to console and get 
user option. 

♦ ADD — update next available 
record point in format 1 . 

♦ CLOSE — leave format 1 as is. 

♦ If indexed Add File found open: 

Set tag sort bit on in program com- 
munication area. 

Search file index and update next 
available key and next available 
record pointers in format 1 . 
Scratch added key from file index 
if they do not match record. 
All other files, leave format 1 as is. 

6 Log each file found open. 



<*= 



=C>a 

hJ>o 



7 Call EOJ to update the VTOCs and go 
to EOJ. 



<j=o 



EOJ 
See note 



i OutpUt i 



System pack 




c 



Program communication 

area 



NPSCH 2 



NPSCH 3 



Console 



O 



Message to 
enter desired 
option : 
CLOSE or ADD 




CCP data files 




Updated 
index for 
index add 
files 



Updated 
VTOCs 



Note: See IBM System /3 Disk Systems System 

Control Program Logic Manual, SY21 -0502. 



Program Organization 



File Recovery Program ($CCPRB) 

ENTRY POINT: RBEGIN 

CHART: None 

FUNCTION: Recovers added records to CCP files if the 
CCP is abnormally terminated. Recovery is attempted on 
consecutive add, consecutive load, and indexed add files. 

OPERATIONS: 

— Checks for valid //FILE statement for $CCPFILE. 

— Reads three sectors of format 1 's that CCP startup 
saved in$CCPFILE. 

— Reads other seven sectors of format 1 's from SWA. 

— Restores and rewrites SWA index sector. 

— Checks each format 1 and updates as follows: 

— If not open, does nothing. 

— If open direct file, does nothing. 

— If consecutive add or load, gives the user an option: 

CLOSE — Leaves pointers as they were. All 
records added by the last CCP run are lost. 
ADD - Makes end-of-data pointer equal to the 
end-of-file pointer. 

— If indexed add: 

— Sets end-of-index pointer to first free position 
following the last good key. 

— Sets end-of-data pointer to first free position 
determined by the index. 

— Determines the last good key. 

— If all other files are consecutive and indexed, does 
nothing. 

— Logs each file found open. 
INPUT: 

— Three sectors of format 1's from $CCPFILE. 

— Seven sectors of format 1 's from system SWA. 

— Data files opened format 1's point to. 
OUTPUT: 

— Format 1 's in SWA with updated end-of-data and 
end-of-index pointers. 

— Updated VTOC (updated by EOJ) 
EXIT: EOJ is called with RIB of X'84'. 
EXTERNAL REFERENCES: 

— System communication area 

— Program communication area 
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Appendix A. System Directory 



The system directory contains quick -reference tables that 
can be used to find information within this manual as well 
as to find CCP module/phase listings in the Microfiche. 
Each directory table contains: 

• Production pack module/phase names. 

• PID (Program Information Department) pack module/ 
phase names. 

• Entry points. 

• Descriptive module/phase names. 

• A summary of function for each module/phase. 

• Diagram identifications of method of operation and 
HIPO diagrams that describe the modules/phases listed. 

• Flowchart identifications of flowcharts that describe 
the modules/phases listed. 

The directory tables are arranged to reflect the organization 
of the manual. That is, the Generation table is first, the 
SCP Generator table is second, the Assignment Build table 
is third, and so on. Module/phase names within each table 
are arranged in alphabetic sequence; they are not necessar- 
ily mentioned in the order in which the modules/phases 
are executed. 
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Generation/I retaliation 



Module 



PID 
Name 



Entry 
Point 



Descriptive 
Name 



Function 



Method of Program 
Operation ID Organization ID 



$CC1BF $CC1BF EXECBF Build Initial 

Contents of 
$CCPFILE 



Clears $CCPFILE to all blanks. 
Creates initial configuration and 
directory records. 



None 



$CC1BL $CC1BL $CC1BL Creates $CCPLOG Creates $CCPLOG file. 



AB 



AA 



SCC1PP 1 $CC1PP PPEXEC CCP Generation 

Utility 

SCP Generator (Models 8. 10, and 12 Only) 



Module 



PID 
Name 



Entry 
Point 



Descriptive 
Name 



$CGNBX $CGNBX BXI000 Build XREF 

File Phase 



$CGNCM $CGNCM CMI000 Source Com- 
pression Phase 



$CGNIN $CGDRV INI000 



$CGNPE $CGNPE PEI000 



Processor Initial- 
ization Phase 

ESL Output 
Phase 



$CGNPS $CGNPS PSI000 Source/Object 

Output Phase 



$CGNSB $CGNSB SBI000 Symbol Table 

Build Phase 



Prints user input to Generation and 
diagnostics issued. If no errors, punch- 
es or reorganizes input to second pass 
of Generation. 



Function 



Method of Program 
Operation ID Organization ID 



Reads the work file ($WORK2) 3M.0010 

and creates the cross reference 3M.0020 

sort file. Initializes working storage, 
print area, and listing header for 
$CGNSX. 

Processes all source statements 3M.001 

following the control cards. Builds 3M.0020 
the intermediate text file and de- 
codes and tests the source statements. 



Initializes the processor 



Sorts and prints the ESL listing if 
LIST is specified. Initializes 
COMMON for $CGNPS. 



3M.0010 
3M.0020 

3M.0010 
3M.0020 



Generates object code for machine 3M.0010 
instructions and DCs. Puts out 3M.0020 

object code. Builds printer image. 
Prints source statements and generated 
object code. Performs source time 
instructions and processes Group 1 
and Group 2 instructions. 

Assigns the location counter values 3M.001 
and builds the symbol table. 3M.0020 



HA-HF 



BB-BH 



BA 



FA-FF 



GA-GI 



CA-CK 



'Models 8, 10, and 12 only 
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SCP Generator (Models 8, 10, and 12 Only) (continued) 



Phase 



PID 
Naime 



Entry 
Point 



$CGNSF $CGNSF SFI000 



Descriptive 
Name 



Function 



Method of Program 
Operation ID Organization ID 



Symbol Table Tests the intermediate text from the 

Overflow Phase statement following the overflow 

to the end of the text for symbols 
that have been defined previously. 
(Previously defihed symbols are 
marked.) Resolves all references to 
symbols that are defined in the pre- 
sent symbol table. (Resolved symbols 
are marked.) 



3M.0010 
3M.0020 



DA-DD 



$CGNSS $CGNSS SSI000 



$CGNSX $CGNSX SXI000 



Symbol Sub- Substitutes the symbol value and 

stitution Phase attribute from the last (or only) 

symbol table into the intermediate 
text term records. Builds an ESL 
table for module name and EXTRN 
and ENTRY statements. 

Merge and List Merges the XREF sort file. 

XREF Phase Generates the XREF listing. 

Prints the error summary statements. 
Fetches Overlay Linkage Editor 
if object output is required. 



3M.0010 
3M.0020 



EA-EE 



3M.0010 
3M.0020 



IA-IE 



CAM CAM CAM001 Compiler Retrieves or loads as many as 255 

Access Method sectors at a time. 



3M.0010 



JA 
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Assignment Build 



PID Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization ID 



$CCPAS $CCPAS SAOOOO Assignment Build Assignment Build control 

Mainline 



$CC2BL 
$CC2BT 
$CC2DF 

$CC2EA 
$CC2EB 
$CC2EC 
$CC2ED 
$CC2E1 

$CC2E2 
$CC2E3 



$CCYBL BLOOOO 
$CCYBT BT0000 
$CCYDF DFOOOO 



BSCALINE State- Builds LCT table entry, 
ment Processor 

BSCATERM State- Builds TUT table entry 
ment Processor 



DISKFILE/ 
SYM FILE State- 
ment Processor 



$CCYEA 
$CCYEB 
$CCYEC 
$CCYED 
SCCYE1 

SCCYE2 
$CCYE3 



$CC2EA 

$CC2EB 

$CC2EC 

$CC2ED 

$CC2E1 

$CC2E2 

$CC2E3 



$CC2E4 $CCYE4 $CC2E4 



$CC2E5 


$CCYE5 


$CC2E5 


$CC2E6 


SCCYE6 


$CC2E6 


$CC2E7 


$CCYE7 


$CCYE7 


$CC2E8 


$CCYE8 


SCC2E8 



Builds FCT table. 



4M.0100 4P.0100 

4P.01I0 
4P.0120 
4P.0130 
4P.0140 

4M.0100 4P.0500 



4M.0100 4P.0600 



4M.0100 4P.1000 



Error message Contains messages for Assign Build, 

module 

Error message Contains messages for Assign Build, 

module 

Error message Contains messages for Assign Build, 

module 

Error message Contains messages for Assign Build, 

module 

Error message Contains messages for Assign Build, 

module 

Error message Contains messages for Assign Build. 

module 

Error message Contains messages for Assign Build, 

module 

Error message Contains messages for Assign Build, 

module 

Error message Contains messages for Assign Build, 

module 

Error message Contains messages for Assign Build, 

module 

Error message Contains messages for Assign Build, 

module 

Error message Contains messages for Assign Build, 

module 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 



None 
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Assignment Build (continued) 



PI D Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization ID 



$CC2E9 $CCYE9 $CC2E9 

$CC2HK $CCYHK $CC2HK 

SCC2ML 1 $CCYML $CC2ML 

SCC2MT 1 $CCYMT $CC2MT 

$CC2PG $CCYPG $CC2PG 

$CC2SP $CCYSP $CC2SP 

$CC2SS $CCYSS SS0000 

$CC2SY $CCYSY $CC2SY 

$CC2TA $CCYTA $CC2TA 



Error message 
module 



Contains messages for Assign Build. None None 



End of SET Routine Modifies $CCPFILE. 

MLTALINE State- Builds SLCT table entry, 
ment Processor 

MLTATERM State- Builds TUT table entry, 
ment Processor 



Program State- 
ment Processor 

Program State- 
ment Parameter 
List 

Syntax Scan 
Routine 

SYSTEM State- 
ment Processor 



Builds PCT table. 



Lists data only. 



Performs syntax check on param- 
eters of input control statements. 

Builds SIT table. 



TERMATTR State- Builds TAT table, 
ment Processor 



SCC2TN $CCYTN TN0000 TERM Name Builds TNT table. 



4M.0100 4P.1200 

4M.0100 4P.0700 

4M.0100 4P.0800 

4M.0100 4P.1100 

4M.0100 None 

4M.0100 4P.0200 

4M.0100 4P.0300 

4M.0100 4P.0400 

4M.0100 4P.0900 



Assignment List 



PID Entry Descriptive 

Module Name Point Name 



Function 



$CCPAL $CCPAL ALAOOO Assignment List Lists assignment set from specifi 

Module cations. 



Method of Program 
Operation ID Organization ID 



5M.0100 



5P.0100 
5P.0200 
5P.0300 
5P.0400 



User Security Information Build (Models 8, 10, and 12 Only) 



PID Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization ID 



SCCPAU 1 $CCPAU AUOO00 User Security Puts user security data to the user 6M.0100 MU 

Data Module security module on disk. 



iModels 8, 10, and 12 only. 
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Display Format Generator 



Module 



PID 
Name 



Entry 
Point 



Descriptive 
Name 



Function 



$CCPDF $CCPDF BLDFMT DFGR-Build 

LOMMON and 
open files 



$CC2CF $CCZCF 



BLDFMT DFGR-Printand 
diagnose display 
specifications 



$CC2CP $CCZCP $CC2CP 



$CC2CR $CCZCR BLDINP 



Printer Format Generator 



DFGR-Format 
generation print 
and fiie-build 



DFGR-Read 
multiple from 
$SOURCEfile 



PID 
Module Name 



Entry Descriptive 

Point Name 



$CCPPF $CCPPF BLDLOM PFGR-Build 

LOMMON and 
open files 

$CC2CG $CCZCG BLDFMT PFGR-Print and 

diagnose printer 
format 
specifications 

$CC2CQ $CCZCQ BLDFIL PFGR-Format 

generation print 
and file-build 



$CC2CS $CCZCS BLDINP PFGR-Read 

multiple from 
$SOURCEfile 



Builds OLE common area and 
opens $WORK and $SOURCE 
files. 

Logs the display format specifi- 
cations, diagnoses errors, and 
builds the format and common 
area. 

Logs information about the 
printer format being generated, 
and copies the format to a 
$WORK file on, disk. 

Reads display format specifica- 
tions from $SOURCE file. 



Function 



Builds OLE common area and 
opens $WORK and $SOURCE 
files. 

Logs the printer format specifi- 
cations, diagnoses errors, and 
builds the format and common 
area. 

Logs information about the 
printer format being generated 
and copies the format to a 
$WORK file on disk. 

Reads printer format specifi- 
cations from $SOURCE file. 



Method of Program 
Operation ID Organization ID 



7M.0200 MV 



7M.0400 MY 



7M.0500 MZ 



7M.0300 MW 



Method ot Program 
Operation ID Organization ID 



7M.0800 M1 



7M.1000 M3 



7M.1100 M4 



7M.0900 M2 
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Startup 



PID Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization ID 



$CC3CE $CC3CE CEEXEC Build CD Es 



$CC3CX $CC3CX CXEXEC REP Card 

Processor 



Reads REP cards from system 
input, patches code initialized 
prior to $CC3CX 



$CCP $CCP SPEXEC Startup Root Accepts operator specifications and 8M.0100 8P.0010 

Module begins initializing CCP. 



Builds Contents Directory Entry 8M.0100 8P.0150 

blocks. 



$CC3CR $CC3CR CRBEGN Cross Reference Cross-references CCP transients. 8M.0100 8P.0050 

Transients 



8M.0100 8P.0210 



$CC3DF $CC3DF DFEXEC Open Disk Files Opens disk files, completes short 8M.0100 

and Compress DTFs DTFs, builds CCP-built master 
indexes. 

$CC3DL $CC3DL DLEXEC Build Skeleton Validates OCL for disk files, creates 8M.0100 

DTFs and Symbolic and initializes short DTFs, builds 
File Entries symbolic file names and disk file 

reference pointers. 



$CC3EJ $CC3EJ EJEXEC 



Final External 
Startup Phase 



Searches program pack object library 8M.0100 
directory for first level transients, 
sets designated terminals offline, re- 
sets storage bounds for dynamic TP 
buffer and user program area, and 
opens MLTA lines. 



$CC3FB $CC3FB FBEXEC 



Build File 

Specification 

Blocks 



Builds file specification blocks. 



8M.0100 



$CC3FS $CC3FS FSEXEC Facility Suppres- Accepts operator specif ications and 8M.0100 

sion turns on designated suppress bits in 

$CCPFILE. 



SCC3FX SCC3FX FXEXEC DFF Format 

Indexer 



Builds DFF format index in 
SCCPFILE. 



$CC3IP $CC3IP IPEXEC Initialize Program Searches program pack and system 

Control Table pack object library directories 

for programs in program control 
table. 



8M.0100 



8M.0100 



$CC3LD $CC3LD LDEXEC Load Base 

Module and 
Initialize 
$CCCOM 



Loads $CC4, $CC$TR, $CC$SA, 
$CC$BS, $CC$ML and initializes 
many miscellaneous fields in 
$CCCOM. 



8M.0100 



8P.0180 



8P.0170 



8P.0220 



8P.0200 



8P.0080 



8P.0040 



8P.0090 



8P.0100 



Startup A-7 



Page of SY21-0531-2 
Issued 24 June 1977 
ByTNL: SN21-5530 

Startup (continued) 



Module 



PID 

Name 



Entry 
Point 



Descriptive 
Name 



Function 



Method of Program 
Operation ID Organization ID 



SCC3L0 1 $CC3LO LOEXEC 



$CC3MV $CC3MV MVEXEC 



Startup Phase 
Locator 



Load DI : Fand 
#3 into PL1 



$CC3PX $CC3PX PXEXEC Build PCT Index 

$CC3QB $CC3QB QBEXEC 

$CC3RO $CC3RO ROEXEC 

$CC3RT $CC3RT RTEXEC 

$CC3TA $CC3TA TAEXEC 

$CC3TB $CC3TB TBEXEC 



Build Sector 
Enqueue Blocks 

Startup Phase 
Roller 

Relocate 
Transients 



Searches object library directory 
for Startup phases, and initializes 
roller list. 

Initializes $@@BIN and $@CIN, 
sets up ATRs and loads $CC4DF 
and $CC4#3 into PL1. 

Builds index to Program Control 
Table names. 

Builds sector enqueue blocks. 
Loads Startup phases consecutively. 



Relocates CCP transients to 
current execution address. 



Read in Terminal Reads in terminal attribute table. 
Attribute Table 



Build Teleprocessing Builds TP DTF/LCB and related 
Control Blocks control areas for both BSCA and 

MLTA. 



$CC3TC $CC3TC TCEXEC 



$CC3UB $CC3UB UBEXEC 



$CC3US $CC3US USEXEC 



Build TUB 
and TNT 
Entries 

Build Task 
Control Blocks 

Unsuppress 
Facilities 



Builds Terminal Unit Blocks and 
Terminal Name Table. 



8M.0100 8P.0030 



8M.0100 8P.00215 



8M.0100 8P.0160 



8M.0100 8P.0190 



8M.0100 8P.0020 



8M.0100 8P.0060 



8M.0100 8P.0110 



8M.0100 8P.0120 



8M.0100 8P.0130 



Builds user Task Control Blocks. 8M.0100 8P.0140 



Turns off all suppress bits in 
$CCPFILE. 



8M.0100 8P.0070 



Models 8, 10, and 12 only. 
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CCP Execution 



f So" inlry Be^e" "~~ Method of Program 

|Modu.e Na me Point Name Function Operafon ID Organ.zafon .D 

$CC$ML $CC$ML $$MLDT CCP MLTA Trace Loadable CCP MLTA trace None None 

MLT001 Routine routine which builds a circular 

MLT002 trace tab,e for Program level SIOs, 

interrupt level entries, and EXTRNs. 

$CC$SA $CC$SA $CC$SA Trace Halt Service Facilitates halting CCP at specified None PZ 

Aid trace entries. 

$CC$TR $CC$TR $CC$TR CCP Trace Saves information about significant None PY 

events in CCP processing in 
chronological order. 

$CC4AB $CCIAB $CC4AB Diagnose and Processes accept input requests prior 9M.0050 9P.6010 

Process Accept to wait or completion of $CC4 1 1 . 

Input 

$CC4AC $CCIAC $CC4AC Process Satisfied Moves data, Freemains invite buffer, 9M.0050 9P.6020 

Accept Input and returns. 

$CC4AD $CCAAD $CC4AD Disk Allocation Allocates disk files to user program. 9M.0240 9P.4060 

Transient 

$CC4AL $CCSAL $CC4AL First Unit Record Diagnoses allocation requests. 9M.0210 9P.3550 

Allocation Transient 

$CC4AM $CC4AM $CC4AM Allocation Resi- Passes control to allocation transients 9M.0240 PF 

dent Routine or user program. 

$CC4AN $CCSAN $CC4AN Second Unit Sets requests in SWA common 9M.0210 9P.3560 

Record Alloca- sector, 

tion Transient 

$CC4AP SCCSAP $CC4AP Third Unit Record Sets requests in partition index. 9M.0210 9P.3570 

Allocation Request 

$CC4AQ $CCIAQ $CC4AQ First Terminal Validates and checks for terminal 9M.0050 9P.6130 

Acquire Processor available. 

$CC4AS $CCSAS $CC4AS First Assignment Validates assign command and its 9M.0210 9P.3520 

Transient operands. 

$CC4AT $CCSAT $CC4AT Third Assignment Validates STT# operand, changes 9M.0210 9P.3530 

Transient terminal name if necessary. 

$CC4AU $CC5AU $CC4AU Second Assignment Checks that assigned TUB charac- 9M.0210 9P.3540 

Transient teristics are compatible with 

previously assigned TUB. 
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CCP Execution (continued) 



«!L 2? S!^^ _ . Method of Program 



Module Name Point Name Function 



Operation ID Organization ID 



$CC4AX $CCIAX $CC4AX Second Terminal Validates terminal attribute set. 9M.0050 9P.6140 

Acquire Processor 

$CC4AY $CCIAY $CC4AY Third Terminal Stop invites and allocates the TUB. 9M.0050 9P.6150 

Acquire Processor 

$CC4A1 $CCAA1 $CC4A1 Allocation Control Sets up allocation and controls for 9M.0240 9P.4010 

Transient the first pass route control. 

SCC4A2 $CCAA2 $CC4A2 Final Allocations Allocates requesting terminal. 9M.0240 9P.4090 

Transient 

SCC4BA $CCBBA BASTRT 3270 Sense/Status Analyzes 3270 sense/status and logs 9M.0110 9P.2370 

Transient the results. 

$CC4BB $CCBBB BBSTRT Blank Pad For record mode operations, if 9M.0110 9P.232I 

Transient OUTL is less than record length, 

pads to correct length with blanks. 

$CC4BC SCCBBC BCSTRT BSCA Cancel Handles priority stops of line or 9M.0130 9P.2510 

Receive Transient stop invites for system and user. 
Issues cancel to BSCA. 

$CC4BD $CCBBD BDSTRT BSCA ERP Cleans internal indicators after 9M.0160 9P.2341 

Cleanup Transient ERP is run. 

$CC4BE $CCBBE BESTRT BSCA Error Determines error situations and 9M.0110 9P.2330 

Handler/Router handles them. Sets up to log 
Transient conditions to operator. 

$CC4BF $CCBBF BFSTRT BSCA Stop Invite Handles system/user stop invites 9M.0130 9P.2520 

Transient and calls. 

$CC4BI $CCBBI BISTRT DM E Inquiry Analyzes input record for DM E 9M.0110 9P.2320 

Transient character string. 

$CC4BL $CCBBL BLSTRT BSCA Error Logger Logs out operator message to 9M.0110 9P.2340 

Transient console log. 

SCC4BN CCBBN CC4BN Level 2 Interrupt Handles level 2 interrupt. None 9P.2345 

Handler 

$CC4BP $CCBBP BPSTRT BSCA Purge Handles system purge I/O request 9M.0130 9P.2500 

Transient and setup to stop invite if gets 

outstanding. 

$CC4BQ $CCBBQ BQSTRT BSCA Stop Analyzes the LCB line Q for stops 9M.0110 9P.2325 

Invite Queue after BSCA cancels the input from 

Analysis Transient 1 $CC4BC (see $CC4BU for Trans- 
ient 2) 
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FID Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization ID 



$CC4BR $CCBBR BRSTRT 



$CC4BS SCCBBS $CC4BS 



$CC4BT $CCBBT $$BSMT 



Operation Reject Rejects TP requests that conflict 
Transient with current BSCA line operations. 



BSCA Switched 
Line Purge 



Purges operation parameter list 
on a BSCA line. 



BSCA Trace Inter- Interfaces with BSCA trace, 
face 



None 



9M.0110 9P.2360 



9M.0130 9P.2530 



QZ 



$CC4BU $CCBBU BUSTRT 



$CC4BX $CCBBX $CC4BX 



$CC4B0 $CCBB0 BOSTRT 



$CC4B1 $CCBB1 B1STRT 



$CC4B2 $CCBB2 B2STRT 



$CC4B3 $CCBB3 B3STRT 



$CC4B5 $CCBB5 B5STRT 



$CC4B7 $CC4B7 B7STRT 



$CC4B9 $CCBB9 $CC4B9 



$CC4CA $CCSCA $CC4CA 



$CC4CG $CCSCG $CC4CG 



$CC4CJ $CCSCJ $CC4CJ 



BSCA Stop Invite Analyzes the LCB line Q for stops 
Queue Analysis after BSCA cancels (see $CC4BQ 
Transient 2 for Transient 1 ). 



Message Module 
Negative Response 
to Polling 

3270 Format 
Transient 

Minimum System 
Transient 1 



Minimum System 
Transient 2 



Minimum System 
Transient 3 



3735 Sense/Status 
Transient 

3741 Sense/Status 
Transient 

Snap Dump of 
BSCA Trace 

Display User's 
Command for DFF 
Main Storage 

Message Command, 
System Operator 
to Terminal 

System Operator 
Cancel Command 
Processor 



Sets message parameters in 
$CCCOM, and invokes console 
management. 

Formats output for the 3270, 
re-formats the input from the 3270. 

Normal resident code executed in 
the transient area for minimum 
system. 

Normal resident code executed in 
the transient area for minimum 
system. 

Normal resident code executed in 
the transient area for minimum 
system. 

Analyzes 3735 status messages and 
logs the results. 

Analyzes 3741 status messages and 
logs the results. 

Snap dumps the BSCA trace in 
main storage. 

Lists DFF tasks. 



Does a put-no-wait to receiving 
terminal if able to receive; if not, 
calls message module. 

Validates cancel command, sets task 
or CCP cancel indicators. 



None 



None 



9M.0140 



None 



None 



None 



9P.2325 



9P.2342 



9P.2390 



9P.2710 



9P.2720 



9P.2730 



9M.0110 9P.2380 



9M.0110 9P.2385 



9M.0160 9P.2350 



9M.0210 9P.3790 



9M.0210 9P.3400 



9M.0210 9P.3610 
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CCP Execution (continued) 



PID Entry Descriptive 

Module Name Point Name 



"unction 



Method of 
Operation I D 



Program 
Organization ID 



$CC4CM $E000 N/A 



Communications Controls CCP teleprocessing 
Management Task I/O operations. 



9M.0090 
9M.0095 
(Model 4) 



QA through 
QW, RF 



$CC4CN $CCTCN $CC4CN 



Terminal Release Validates release command and frees 
Command the terminal from the program. 

Processor 



9M.Q220 



9P.3260 



$CC4CP $CC4CP $CC4CP 



CMD Processor Routes control to processor 

Resident Routine transients and waits for work. 



9M.0200 



PC 



$CC4CR $CCACR $CC4CR 



First Main Storage Builds control blocks. 
Allocation Transient 



9M.0240 



9P.4020 



$CC4CR $CCDCR $CC4CR 



First Main Storage Builds control blocks (remap only). 
Allocation Transient 



9M.0240 



9P.4020 



$CC4CS $CCACS $CC4CS 



Second Main Builds control blocks. 

Storage Allocation 

Transient 



9M.0240 



9P.4030 



$CC4CT $CCACT $CC4CT 



Third Main Storage Builds control blocks. 

Allocation 

Transient 



9M.0240 



9P.4040 



$CC4CX $CCSCX $CC4CX 



Cancel CCP Marks all tasks to be terminated and 9M.0210 

Processor posts termination. Notifies command 

terminals of cancel. 



9P.3620 



SCC4C1 $CCSC1 SCC4C1 



Display Command Does a syntax check of input 
Control operand and calls display transient 

or issues error message. 



9M.0210 



9P.3700 



SCC4C2 SCCSC2 SCC4C2 



$CC4C3 SCCSC3 $CC4C3 



Display Replies 


Display user messages that are 


9M.0210 


9P.3710 


Command 


awaiting replies. 


None 


9P.8020 
(Model 4) 


Display 


Lists a specified terminal or all 


9M.0210 


9P.3720 


TERMATTR 


terminals by symbolic name. 






Command 









SCC4C4 $CCSC4 $CC4C4 



Display Terminals Lists by physical ID one or all 
Command One terminals. 



9M.0210 



9P.3730 
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CCP Execution (continued) 



Module 



PID 

Name 



Entry 
Point 



Descriptive 
Name 



Function 



Method of Program 
Operation ID Organization ID 



$CC4C5 $CCSC5 $CC4C5 Display Users Prints header line and first part of 9M.0210 

Command One status line. 



9P.3740 



$CC4C6 $CCSC6 $CC4C6 Display Queue Lists by name any programs that are 9M.0210 

Command queued to run. 



9P.3750 



$CC4C7 $CCSC7 $CC4C7 Display Users Lists ail resources used by task. 

Command by ID 



9M.0210 



9P.3760 



$CC4C8 $CCSC8 $CC4C8 Display Terminals Lists all terminals. 

Command Two 



9M.0210 



9P.3770 
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CCP Execution (continued) 



Method of Program 



PID Entry Descriptive Operation ID Organization ID 

~ --^ m.,~„ Function "^ 



Module Name Point Name 



9M.0210 9P.3780 



$CC4C9 $CCSC9 $CC4C9 Display Users Lists disk files used by task. 

Command Two 

$ CC4DA $CCADA DAA000 Initialize PAS Initializes program appended storage 9M.0240 9P.4050 

* Work Area and for a task wh.ch uses DFF. 

Constants 

$ CC4DB $CCFDB DBAOOO Diagnose Use of Diagnoses DFF put override .is, 9M.0060 9P.6210 

DFF Put Override 

,00,00 SCOFDC OCAOOO B U Hd DFF Oopy D*™ < «*«-- - ""™ "'" 

Parameter List builds 3270 text. 

$CC4DD SCCFDD DDAOOO Issue System Con- Builds message 528 and emulates 9M.0060 9P.6230 

$CC4DU »^ sole Message 528 position error occurred. 

SCC4DE $CC4DE DEAOOO Calculate 3270 Put Calculates the 3270 put override 9M.0O60 9P.6240 

Override Text text length. 

Length. 

$ 004DF SCC40F DFAOOO DUp.ay Fo™< J**.^^ «« •""> 

* Control Routine System under CCP. 

$ CC4DI $EOBS $CC4DI CCP File Sharing Permits file sharing between user None ON 

Enqueue/Dequeue tasks. 
Routine 

$ CC4DM SCCTDM $CC4DM Data Mode Escape Issues initial command interrupt 9M.0200 9P.3100 

*^ 4UI * Transient mode I/O to terminal. 

SOC4DP $E040 SCC4DP Task Dispatcher Dispatches ready system and user 9M.0070 OH 

$CC4DP SE040 »w, and |/0 Scheduler tasks; performs task swrtchmg on 

interrupts; schedules disk I/O; performs 

CCP waits. 

*CC4EA SCCEEA $CC4EA Command Proces- Contains messages, moves messages 9M.0230 9P.3060 

$CC4EA *L.uttA ?^t rnmmand Processor work area. 



sor Message to Command Processor work area. 

Module 

$CC4EB $CCEEB $CC4EB Command Proces- Contains program request error 

sor Message messages. 

Module 

$CC4EC $CCEEC $CC4EC Command Proces- Signs off error messages. 

sor Message 
Module 

$CC4ED $CCEED $CC4ED Command Proces- Signs off error messages. 

sor Message 
Module 



9M.0230 9P.3060 



9M.0210 9P.3060 

9M.0220 

9M.0220 9P.3060 
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CCP Execution (continued) 



PID Entry Descriptive ,, ^ _, ± 

Module Name Point Name Function Method of Program 



Operation ID Organization ID 



$CC4EE JCCEEE $ CC4EE Co^andP,^ a „ Mmmmm _- mmo „ ^ 

sor Message • JUDU 

Module 

*CC4EF SCCEEF JCC4EF C„ mma „ d P raK . ^^^ „ M02 , 

«4EC SCCEEO $ CC4EC ,-P™. c™,™ ™ M0 e, ,„.„,„ ^ 

Module 

WMEH $ OCEEH SCC4EH Co™™, Proce , Contain,™*^. 9M . o210 ^ 

sor Message ,JUW 

Module 

$CC4EJ $CCXEJ $CC4EJ End-of-Job Stops all system activity and bads 9M.0290 9P5070 

Transient $CC5SH. 

$CC4EL $CCEEL $CC4EL Command Proces- Contains error messages for online 9M.0210 9P3060 

sor Message test. 

Module 

$CC4EP $C CEEP $CC4EP Command Proces- Contains messages. 9M 0210 9P 3060 

sor Message u 

Module 

$CC4EU $CCEEU $CC4EU Command Proces- Contains messages, moves messages 9M.0210 9P3060 

sor Message to Command Processor work area 

Module 

$CC4 E1 $C CEE1 $C C4 E1 Command Proces- Contains messages. 9M .0210 9P3060 

sor Message 
Module 

SCC4E2 JCCEE2 $C C4E2 Co.,™,,,, ,w Con«™ ™^. 9M .„ 2 , ^^ 

sor Message ™ 

Module 

$CC4E3 $ CCEE3 $ CC4E 3 Command Proces- Contains message, 9M . 0210 9P 306 

sor Message .«««~ 

Module 

SCC4E4 $ CCEE4 $CC4E4 Command Proces- Contains messages. 9M . 0210 9P3060 

sor Message 
Module 

SCC4E5 $ CCEE5 $CC4E5 Command Proces- Contains message, , 9M . 0210 9P3060 

sor Message u 

Module 
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CCP Execution (continued) 



PI ID Entry 

Module Name Point 

$CC4FL $CCTFL $CC4FL 



$CC4F2 $CCTF2 $CC4F2 



$CC4GA $CCIGA CC4GA 



$CC4GB $CCIGB $CC4GB 



$CC4HF $CC4HF $CC4HF 



$CC4HH $CC4HH $CC4HH 



$CC4H1 $CC4H1 $CC4H1 



$CC4H2 $CC4H2 $CC4H2 



'$CC4H4 $CC4H4 $CC4H4 



$CC4IB $CC4IB $CC4IB 



$CC4IC $CC4IC $CCYIC 



2 $CC4IG $E050 $CC4IG 



Descriptive 
Name 



Function 



Method of Program 
Operation ID Organization ID 



Validates file commands. 



Queues and dequeues FSBs. 



First File 

Command 

Transient 

Second File 

Command 

Transient 



First Get-Terminal- Processes allocation status. 
Attributes Transient 



Second Get- 
Terminal- 
Attributes 
Transient 



Processes remaining attributes and 
moves to record area. 



CCP RPG II Halt Handles RPG II halt requests and 

Processor Transient routes them to $CC4H1 . 

CCP Halt/Syslog Handles halt/syslog requests from 

Transient Handler user tasks which involve uncondi- 

User Task Halt tional halts. 



CCP Halt/Syslog 
Transient, Non- 
Communications 
Task. 

CCP Halt/Syslog 
Transient, 
Communications 
Task 



Handles halt/syslog requests from 
other than the Communications 
Management Task. 



Handles halt/syslog requests from 
the Communications Management 
Task. 



9M.0200 9P.3120 



9M.0200 9P.3130 



9M.0050 9P.6100 



9M.0050 9P.6120 



9M.0300 9P.1010 



9M.0300 9P.1030 



Model 4CCP Halt Handles conversion of Halt/Syslog 

Syslog Conversion codes to light indicators. 
Transient 

BSCA Interrupt Analyzes all interrupts from BSCA, 

Appendage indicates when op ending interrupts 
are received. 

Console Interrupt Indicates occurrence of console 

Intercept interrupt in $CCCOM. 



9M.0300 
None 



9M.0300 
None 



None 



9P.1020 
9P.1025 
(Model 4) 



9P.1040 
9P.1045 
(Model 4) 



9M.0345 



General Entry 
Intercept 



Intercepts and serializes DSM 
requests. 



9M.0030 OD 



9M.0030 OC 



9M.0040 OR 



Model 4 only. 



2 Models 8, 1 0, and 1 2 only . 
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Module 


PID 
Name 


Entry 
Point 


Descriptive 
Name 


Function 


Method of Program 
Operation ID Organization ID 




$CC4IH 


$E044 


$CC4IH 


Interrupt 
Handler Common 


Interrupts routing and register 
control. 


None 


OF 








Subroutine 








$CC4II 


$E060 


$CC4II 


I/O Interface 
Routine 


Teleprocessing I/O servicing inter- 
face. 


9M.0050 


PP 


$CC4IM 


$CC4IM 


$$MLTD 
MLT001 
MLT002 


MLTA Interrupt 
Intercept 


Analyzes MLTA interrupt and adds 
to TP op end count in $CCCOM if 
needed. 


9M.0030 


OE 


$CC4I0 


$E040 


$CC4IO 


CCP Disk I/O 

Intercept 

Routine 


Intercepts and routes disk IOS 
requests. 


None 


OM 


$CC4IS 


$E060 


$CC4IS 


I/O Interface 
Routine 


Teleprocessing I/O servicing inter- 
face. 


9M.0060 


PP 


$CC4IW 


$E040 


$CC4IW 


CCP Disk I/O 
Wait Intercept 
Routine 


Intercepts disk I/O and waits. 


None 


OM 


$CC4JA 


$CC4JA 


$CC4JA 


MLTA Translate 
Transient, Output 


Translates from EBCDIC to 2740/ 
2741 PTTC/EBCD code. 


9M.0145 


9P.2620 


$CC4JB 


$CC4JB 


$CC4JB 


MLTA Translate 
Transient, Output 


Translates from EBCDIC to 2740/ 
2741 correspondence code. 


9M.0145 


9P.2620 


$CC4JC 


$CC4JC 


$CC4JC 


MLTA Translate 
Transient, Output 


Translates from EBCDIC to 1050 
PTTC/EBCD code. 


9M.0145 


9P.2620 


$CC4JD 


$CC4JD 


$CC4JD 


BSCA EBCDIC to 
ASCII Transient 


Translates from EBCDIC to ASCII. 


9M.0140 


9P.2620 


$CC4JE 


$CC4JE 


$CC4JE 


BSCA ASCII to 
EBCDIC Transient 


Translates from ASCII to EBCDIC. 


9M.0145 


9P.2620 


$CC4J1 


$CC4J1 


$CC4J1 


MLTA Translate 
Transient, Input 


Translates from 2740/2741 PTTC/ 
EBCD code to EBCDIC. 


9M.0120 


9P.2300 


$CC4J2 


$CC4J2 


$CC4J2 


MLTA Translate 
Transient, Input 


Translates from 2740/2741 
PTTC/EBCD code to EBCDIC. 


9M.0120 


9P.2300 


$CC4J3 


$CC4J3 


$CC4J3 


MLTA Translate 
Transient, Input 


Translates from 2740/2741 
correspondence code to EBCDIC. 


9M.0120 


9P.2300 


$ 


CC4J4 


$CC4J4 


$CC4J4 


MLTA Translate 
Transient, Input 


Translates from 1050 PTTC/EBCD 
to EBCDIC. 


9M.0120 


9P.2300 
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PID Entry Descriptive 

Module Name Point Name 



Function 



Method of 
Operation ID 



Program 
Organization ID 



$CC4J5 $CC4J5 $CC4J5 



$CC4J6 $CC4J6 $CC4J6 



$CC4J7 $CC4J7 $CC4J7 



$CC4J8 $CC4J8 $CC4J8 



$CC4J9 $CC4J9 $CC4J9 



$CC4KA $CCKKA $CC4KA 



$CC4KB $CCKKB $CC4KB 



MLTA Translate Translates from 2740/2741 code 
Transient, Input to upper case EBCDIC. 



MLTA Translate 
Transient, Input 



MLTA Translate 
Transient, Input 



MLTA Translate 
Transient, Input 



Translates from 2740/2741 
correspondence code to upper 
case EBCDIC. 

Translates from 2740/2741 
PTTC/EBCD code to upper case 
EBCDIC. 

Translates from 1050 PTTC/EBCD 
code to upper case EBCDIC. 



MLTA Translate Translates from EBCDIC to 2740/ 
Transient, Output 2741 PTTC/EBCD code. 

Console Manage- Routes control to other console 
ment Transient, management transients to service 
Console Controller the console without letting rest of 
CCP run. 



9M.0120 



9M.0120 



9M.0120 



9M.0120 



9M.0145 



9M.0150 



$CC4K1 $CCKK1 $CC4K1 



$CC4K2 $CCKK2 $CC4K2 



$CC4K3 $CCKK3 $CC4K3 



$CC4K4 $CCKK4 $CC4K4 



Console Manage- 
ment Transient, 
Start Console I/O 
(Without Param- 
eter List) 

Console Manage- 
ment Transient, 
Schedule Console 
I/O 

Console Manage- 
ment Transient, 
Start Output 
Operation 

Console Manage- 
ment Transient, 
Handle Output 
Op End 

Console Manage- 
ment Transient, 
Handle Input Op 
End 



Starts console I/O requests by 9M.01 50 

Communications Management 
transients for which no parameter 
list was built. 



Schedules console I/O requests from 9M.0100 
non-communications management 
tasks (routed through $CC4II or 
$CC4IS). 

Starts console output using the 9M.0100 

first parameter list in the console 9M.0150 

queue. 

Freemains and posts upon op end of 9M.0100 
console output. Routes control to 9M.0150 
ERP transients if necessary. 



Routes command input to the 
Command Processor. Routes 
control to proper transient for 
other than errorless command input. 



9M.0100 



9P.2300 



9P.2300 



9P.2300 



9P.2300 



9P.2620 



9P.2100 



9P.2090 



9P.2000 



9P.2010 



9P.2020 



9P.2050 
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Mn , lc P *° * ntry Descriptive Method of Pro fl ram 

Modu.e Name Pont Name Function Operation .D Organfcation ID 



$CC4K5 $CCKK5 $CC4K5 Console Manage- Blanks the console buffer and 9M.0100 9P.2040 

ment Transient, enables the console for input. 
Handle REQ Key 
Interrupt 

$CC4K6 $CCKK6 $CC4K6 Console Manage- Handles all console replies to a task. 9M.0100 9P.2060 

ment Transient, 
Handle Input 
Reply 

$CC4K7 $CCKK7 $CC4K7 Console Manage- Issues error message to system 9M.0100 9P.2070 

ment Transient, operator. 
Handle Input 
Error 

$CC4K8 $CCKK8 $CC4K8 Console Manage- Handles output error and issues 9M.0100 9P.2030 

ment Transient, message if necessary. 
Handle Output ■ 
Error 

$CC4K9 $CCKK9 $CC4K9 Console Manage- Assures that console output request 9M.0100 9P.2080 

ment Transient, from the Communications Manager 9M.0150 

Schedule Console is scheduled either with or without 

I/O for the a parameter list. 
Communications 
Manager 

$CC4LT $CCLLT $CC4LT Termination Close Locates and dequeues all open DTFs 9M.0250 9P.7300 

Interface for a terminating program. 

$CC4L2 $CCLL2 $CC4L2 Close Load 2, Closes line printer and PTAM file 9M.0280 9P 7310 

Printer and PTAM DTFs. 
Files 

$FC4L3 $CCLL3 $CC4L3 Close Load 3. Closes MFCU and 1442 DTFs. 9M 0280 9P7320 

MFCU and 1442 
Files 

$CC4L4 $CCLL4 $CC4L4 Close Load 4, Closes 5444 and 5445 disk DTFs. 9M.0280 9P 7330 

Disk Files 

$CC4L5 $CCLL5 $CC4L5 Close Load 5, Frees SQBs and restores disk DTFs None. 9P.7340 

Disk DTFs to pre-open format. 

$CC4MA $CCMMA $CC4MA Communications Analyzes MLTA completion code, 9M.0160 9P.2200 

Management forms CCP return code and either 

MLTA Error returns or reroutes. 

Transient, First 
Level 



A-18 



CCP Execution (continued) 



Module 



PID 

Name 



Entry 
Point 



Descriptive 
Name 



Function 



Method of 
Operation ID 



Program 
Organization I D 



$CC4MB $CCCMB $CC4MB 



Communications Purges all I/O in the line queue for 
Management a switched line disconnect due to 

MLTA Error Tran- hardware error, 
sient, Switched Line 
Disconnect 



9M.0160 



9P.2250 



$CC4MC $CCMMC $CC4MC 



Reschedules the parameter lists in 
in the line queue taking into 
consideration the buffer busy 
condition just sensed. 



9M.0160 



$CC4MD $CCCMD $CC4MD 



$CC4ME $CCMME $CC4ME 



9M.0160 



9M.0160 



Communications 
Management 
MLTA Error 
Transient, Buffer 
Busy Line 
Rescheduler 

Communications 
Management Com- 
mon Error 
Transient 

Communications 
Management 
MLTA Error 
Transient, Line 
Closed Processor 

Communications 
Management 
MLTA Error 
Transient, 
Switched Line 
Disconnect Sign 
Off 

$CC4MG $CCTMG $CC4MG Message Command, Issues message if data truncated. 9M.0220 

Terminal To System 
Operator 

$CC4MM $CC4MM $CC4RM Getmain/Freemain Allocates/de-allocates a main storage 9M.0020 
$CC4GM Service Subroutine, segment in a main storage pool. 
$CC4FM Minimum System 



9P.2230 



$CC4MF $CCCMF $CC4MF 



Determines whether terminal in 
error should be placed in CCP 
error recovery status. 

Varies offline all terminals online 
and cleans up line queue. 



Processes through sign off a 
command mode terminal on a 
switched line which was disconnected 
because of a hardware error. 



9P.2240 



9P.2220 



9M.0160 



9P.2260 



$CC4MP $CCCMP $CC4MP Communications Processes all puts requested to 

Management terminals in CCP error recovery 

Transient, Put-to- status. 
Terminal in CCP 
ERP 



9M.0130 



9P.3250 



OZ 



9P.2400 



$CC4MS $CC4MS 



$CC4RM Getmain/Freemain Allocates/de-allocates a main storage 
$CC4GM Service Subroutine, segment in a main storage pool. 
$CC4FM Less Minimum 
System 



9M.0020 



OZ 
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CCP Execution (continued) 



Module 


PID 
Name 


Entry 
Point 


Descriptive 
Name 


Function 


Method of 
Operation ID 


Program 
Organization ID 


$CC4MT 


$CCMMT 


$CC4MT 


Start MLTA 
Online Test 


Puts control information in MLTA 
DTF and issues MLTA online test 
request. 


9M.0145 


9P.2600 


$CC4MX 


$CC4MX 


$CC4MX 
$CC4MV 


Generalized Move- 
Service Subroutine 


Moves data of any length within 
main storage. 


None 


OX 


$CC4MZ 


$CCBMZ 


$CC4MZ 


OLTTest REQfor 
MLTA 


Completes the syntax check of and 
initiates a MLTA OLT request. 


9M.0210 


9P.3440 


$CC4M1 


$CCBM1 


$$BSMS 


3270 only 
MLMP IOCS 


Minimum version of MLMP for 
CCP 3270-only system. 


None 


RG 


$CC4M9 


$CCMM9 


$CC4M9 


Snap Dump of 


Snap dumps the MLTA trace table 


9M.0160 


9P.2210 



$CC4NC $CCINC $CC4NC 

SCC4NM $CCTNM $CC4NM 

$CC40C $CC40C $CC40C 

$CC40F $CCTOF $CC40F 

$CC40G $CCTOG $CC40G 

$CC40H $CCOOH $CC40H 

$CC40P $CCOOP $CC40P 

$CC40R $CCOOR $CC40R 

$CC40S $CCOOS $CC40S 

$CC40T $CCOOT $CC40T 



MLTA Trace 

Terminal Release 
Command Proces- 
sor 

Name Command 
Processor 

Open/Close/ 
Allocate Interface 
Mainline 



in main storage. 

Diagnoses and processes release 
command. 



Changes current terminal name. 



Calls open/close/allocate transient, 
calls DSM limits transients, primes 
and purges buffers, invokes Termina- 
tion. 



None 



9M.0220 



9M.0260 
9M.0270 
9M.0280 



First/Off Transient Validates sign off command. 



Second/Off 
Transient 

FORTRAN 
Pseudo Open 

Open/Close/ 
Allocate Initial 
Transient 

Open/Close 
Return Transient 

Shared I/O Open 
Routine 

PTAM File Open 
BAM File Open 



Puts terminal offline and informs 
system and terminal operator. 



Determines type of request, performs 
unit record and special file DTF 
allocation. 

Sets return address. 



9M.0260 
9M.0270 
9M.0280 

9M.0270 
9M.0280 



9P.6030 



9P.3240 



PI 



9M.0220 9P.3220 

9M.0220 9P.3230 



Performs pseudo open for disk files. 9M.0270 9P.7130 



9P.7010 



9P.7030 



Opens 5444 DTFs for shared I/O. 9M.0270 9P.7180 



Opens PTAM file DTFs. 
Builds BAM MVF table. 



9M.0270 9P.7140 
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CCP Execution (continued) 



PID Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization ID 



$CC401 $CC001 $CC401 



$CC402 SCC002 $CC402 



$CC403 $CC003 $CC403 



$CC404 $CC004 $CC404 



$CC405 $CC005 $CC405 



$CC406 $CC006 $CC406 



$CC407 $CC007 $CC407 



$00408' $CC008 $CC408 



$CC409 $CC009 $CC409 



$CC4PC $CCGPC $CC4PC 



$CC4PF $CCGPF $CC4PF 



$CC4PG $CCMPG $CC4PG 



Open/Close 


Routes control through open/close. 


9M.0270 


9P.7020 


Routing Transient 


Opens or closes special file DTFs. 






Open Load 2, 


Opens line printer DTFs. 


9M.0270 


9P.7100 


Printer Files 




None 


9P.7105 
(Model 4) 


Open Load 3, 


Opens MFCU and 1442 DTFs. 


9M.0270 


9P.7110 


MFCUand 1442 




None 


9P.7105 


Files 






(Model 4) 


Open Load 4, 


Determines if disk file DTFs are 


9M.0270 


9P.7120 


Disk DTF Valida- 


valid to open. 






tion 








Open Load 5, 


Sets appropriate disk addresses into 


9M.0270 


9P.7150 


Disk DTF Field 


disk DTFs. 






Mapping 








Open Load 6, 


Converts a relative record number to 


9M.0270 


9P.7160 


Relative Record 


a disk address or a disk address to 






Number Conver- 


a relative record number. 






sion Routines 








Open Load 7, 


Opens 5444 disk DTFs. 


9M.0270 


9P.7170 


5444 Files 








Open Load 8, 


Opens 5445 disk DTFs. 


9M.0270 


9P.7190 


5445 Files 








Open Load 9, 


Primes index buffers for sequential 


9M.0270 


9P.7200 


Buffer Priming 


files, second data buffer for dual 
buffered consecutive files. 






Command 


Performs initial command validation 


9M.0200 


9P.3010 


Processor First 


and routes control to Command 






Load 


Processor transients. 






Command 


Informs terminal operator that last 


9M.0200 


9P.3020 


Processor Stop 


input was ignored. 






Polling Failed 








Routine 








Communications 


Dequeues put-to-terminal requests 


9M.0130 


9P.2420 


Management 


and routes control to stop invite 






Transient, MLTA 


input transients. 






Purge I/O 








Processor 









1 Models 8, 10, and 12 only. 
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CCP Execution (continued) 



Module 



PID 
Name 



Entry 
Point 



Descriptive 
Name 



Function 



Method of Program 
Operation ID Organization ID 



$CC4PI $CC4PI $CC4PI 



$CC4PK $CCGPK $CC4PK 



$CC4PQ $CC4PI $CC4PQ 

$CC4PR $CCGPR $CC4PR 

SCC4PS $E046 $CC4PS 

$CC4PT $CCGPT $CC4PT 

$CC4QQ $CCTQQ $CC4QQ 

$CC4RC $CCRRC $CC4RC 

$CC4RE $CCSRE $CC4RE 

$CC4RF $CCSRF $CC4RF 

$CC4RL $CCIRL $CC4RL 

$CC4RN $CCTRN $CC4RN 

$CC4RP $CCSRP $CC4RP 



Transient Area 
Handler 



Command 
Processor Console 
Command Valida- 
tor 

Test for Request 
for a Terminal/ 
Line Subroutine 

Command 
Processor Return 
Transient 

CCP Post Routine 



Command 
Processor Term 
Command Valida- 
tor 

/Q Processing 
Transient 

Program Request 
Multiple Request- 
ing Terminal 
Support Add-On 



Reads transients into transient 9M.0048 

areas and passes control between 
transients and resident code. 

Routes control to appropriate 9M.0200 

system operator command 9M.0210 

transients. 



Determines if a pending program re- None 
quest exists for a switched BSCA line. 

Sends messages to terminals or 9M.0200 

console, frees TP buffers, and 
re-invites commands. 

Posts indication that an awaited 9M.0050 

event has occurred. 

Routes control to appropriate 9M.0200 

terminal operator command 9M.0220 

transients. 



Sets or resets Q status of terminals. 9M.0200 



Allocates terminal to and parts 
the requested program. 



9M.0230 



Resume Command Searches TCB chain for active 

One tasks and issues messages. 

Resume Command Searches TCB chain for active 

Two tasks and issues messages. 



First Terminal 
Release Processoi 

/Run Command 

Processor 

Transient 

ERP Command 
Processor 



Validates command. 



Processes command interrupt mode 
terminal back to data mode. 



Validates the command and retries 
or bypasses the I/O in error as 
specified. 



9M.0210 



9M.0210 



9M.0050 



9M.0220 



9M.0210 



OT 



9P.3040 



OU 



9P.3050 



OJ 



9P.3030 



9P.3110 



9P.3310 



9P.3645 



9P.3650 



9P.6160 



9P.3270 



9P.3410 
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CCP Execution (continued) 



PID Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization ID 



$CC4RX $CCIRX $CC4RX 



Second Terminal 
Release Processor 



Sends released message and 
de-allocates the TUB. 



9M.0050 9P.6170 



SCC4RY $CCIRY $CC4RY 



Third Terminal 
Release Processor 



Frees up names/FSBs and sends 
console message. 



9M.0050 9P.6180 



SCC4R1 $CCRR1 $CC4R1 



First Program 

Request 

Transient 



Verifies syntax, sets parameters for 
other request processors. 



9M.0230 9P.3300 



$CC4R2 $CCRR2 $CC4R2 



Second Program 

Request 

Transient 



Reads PCT. 



9M.0230 9P.3320 



$CC4R3 $CCRR3 $CC4R3 



Third Program 

Request 

Transient 



Looks up program name. 



9M.0230 9P.3340 



$CC4R4 $CCRR4 $CC4R4 



Fourth Program 

Request 

Transient 



Validates disk file. 



9M.0230 9P.3350 



$CC4R5 $CCRR5 $CC4R5 



Sixth Program 
Request 

Transient 



Validates terminals and unit re- 
cord devices. 



9M.0230 9P.3370 



$CC4R6 $CCRR6 $CC4R6 



Seventh Program 

Request 

Transient 



Processes final request. 



9M.0230 9P.3380 



$CC4R7 $CCRR7 $CC4R7 



$CC4R7 $CCDR7 $CC4R7 



Fifth Program 

Request 

Transient 

Fifth Program 

Request 

Transient 



Validates main storage availability. 9M.0230 9P.3360 



Validates main storage availability 
(remap only). 



9M.0230 9P.3360 



$CC4R8 $CCRR8 $CC4R8 



Program Request 
PCT I/O Error 
Handler 



Handles PCT I/O error message. 



9M.0230 9P.3330 



$CC4SB' $CCMSB $CC4SB 



Communications 
Management 
Transient, MLTA 
Stop Invite Input- 
Abort the MLTA 
Line 



Issues abort to MLTA line 

in the processing of a stop invite 

input. 



None 



9P.2460 



'ModelsS, 10, and 12 only. 
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CCP Execution (continued) 



Module 



PID 
Name 



Entry 
Point 



Descriptive 
Name 



SCC4SC 1 $CCMSC $CC4SC 



$CC4SF $CCMSF $CC4SF 



Communications 
Management 
Transient, MLTA 
Start Code 

Analysis 

Communications 
Management 
Transient, M LTA 
Stop Invite Input 
Failed 



Function 



Method of Program 
Operation ID Organization I D 



Analyzes non-zero MLTA start 
code and cancels CCP if invalid. 



9M.0145 



Processes a stop invite input request 
after determination that stop invite 
input failed. 



None 



9P.2610 



9P.2440 



$CC4SH $CCSSH $CC4SH 



$CC4SK 1 $CCMSK $CC4SK 



Shutdown Com- 
mand Processor 

Communications 
Management 
Transient, Handle 
MLTA Op End 
for Operation 
without Param- 
eter List 



Diagnoses and processes the 9M.0210 9P.3660 

shutdown command. 

Processes op end for operation for 9M.0120 9P.2280 

which the parameter list has 
previously been dequeued (or may 
never have existed). 



$CC4SO SCCTSO $CC4SO 



Terminal Sign On 

Command 

Processor 



Validates sign on command, calls 
user security routine if specified. 



9M.0220 



9P.3200 



$CC4SP 1 $CCMSP $CC4SP 



$CC4SQ' $CCMSQ $CC4SQ 



SCC4SS 1 $CCSSS $CC4SS 



Communications 
Management 
Transient, MLTA 
Stop Invite Input 
Processor 

Communications 
Management 
Transient, MLTA 
Stop Invite Input 
Abort Op End 

Suspend 
Command 



Determines status of request to 
stop invite input. 



9M.0130 



9P.2430 



Analyzes the op end of an abort 9M.01 20 

issued to stop invite input at an 
MLTA terminal. 



Sets off bits in each active user task. 9M.021 



9P.2270 



9P.3630 



SCC4SS SCCSSS $CC4SS 



Suspend 
Command 



Suspend init and suspend 
command. 



None 



9P.3635 

(Model4) 



$CC4ST SCCSST SCC4ST 



Suspend Suspend user and suspend 

Command command. 



None 



9P.3640 



'Models 8, 10, and 12 only. 
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CCP Execution (continued) 



PID Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization I D 



$CC4SU $CC4SU SUEXEC 



Exit from Startup, 
Entrance to 
Resident Control 



$CC4S0 $CCBSO SOSTRT 



$CC4S2 $CCCS2 $CC4S2 



$CC4TB $CCATB $CC4TB 



$CC4TD $CCXTD $CC4TD 



3275 Switched 

Format 

Transient 

Communications 
Management 
Transient, MLTA 
Stop Invite Input — 
User Input Op End 
Handler 

Terminal 
Allocation Routine 

First Termination 
Routine 



Plugs DSM console interrupt 
handler, resets keyboard, issues CCP 
STARTED message, and invites in- 
put from console and online com- 
mand terminals. 

Formats output for the 

3275 switched; reformats input 

from the 3275 switched. 

Handles user stop invite request for 
invite input which has already op 
ended. 



$CC4TE $CCSTE $CC4TE Trace Command 



SCC4TF $CCXTF $CC4TF 



$CC4TI $CC4TI SCC4TI 



Termination Files 
De-allocation 

User Task 

Termination 

Interface 



Allocates and sets attributes to 
program selected terminals. 

Controls termination, main storage 
de-allocate, and TCB re-initialize. 

Checks if trace is in the system and 
if so, sets on bit. 

De-allocates disk/unit record devices 
from user. 

Interfaces between CCP functions. 



9M.0200 8P.0230 



9M.0140 9P.2390 



None 



9M.0240 



9M.0250 



9M.0210 



9M.0250 



9M.0250 



9P.2450 



9P.4070 



9P.5010 



9P.3600 



9P.5030 



PL 



$CC4TK $CCXTK $CC4TK 



$CC4TM $CC4TM $CC4TM 



$CC4TN $CCXTN $CC4TN 



$CC4TP SCCXTP $CC4TP 



SCC4TR $CC4PI $CC4TR 



Termination 
Console Message 
Transient 

Termination Task 
Mainline Routine 



Termination 
Routine 

Termination 
Polling Restart #1 

Transient 
Return 



Issues message to console when a 9M.0250 9P.5025 

task terminates abnormally. 



Provides the resident interface None PL 

required to the Termination Task 
transient routines. 

Stops TP I/O user task. 9M.0250 9P.5040 



Determines terminal/restart to be 9M.0250 9P.5050 

done. 

Returns transient control router. 9M.0048 OT 
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CCP Execution (continued) 



PID Entry Descriptive 

Module Name Point Name 



Function 



Method of 
Operation ID 



Program 
Organization ID 



$CC4TS SCCSTS $CC4TS 



$CC4TT $CC4TT $CC4TT 



$CC4TW $CCXTW $CC4TW 



SCC4TX SCC4PI $CC4TX 



SCC4TY $CCXTY $CC4TY 



$CC4TZ $CCSTZ $CC4TZ 



$CC4T1 $CCMT1 $CC4T1 



$CC4T2 $CCMT2 $CC4T2 



$CC4UR $CCAUR $CC4UR 



$CC4VA $CCSVA $CC4VA 



$CC4VB SCCSVB $CC4VB 



$CC4WC $CCCWC $CC4WC 



SCC4WD SCCCWD $CC4WD 



$CC4WR $CCCWR $CC4WR 



First Level OLT 
Request 

CCP Trace Inter- 
face Routine 

Termination Dump 
Routine 

Transient Transfer 
of Control 
Routine 

TP Polling 
Restart #2 

Complete OLT 
Request for BSCA 

OLT Transient 
for MLTA 

Complete MLTA 
OLT 

Unit Record 

Allocation 

Transient 

Vary Command 
Processor 

Second Vary 
Command Proces- 
sor 

Communications 
Management 
Transient, Locate 
Phone Number 

Communications 
Management 
Transient, Issue 
Switched Line 
Connection 
Message 

Communications 
Management 
Transient, 
Translation Error 



Begins syntax check of online test 9M.0210 
request. 

Provides an interface to the dy- None 

namically loaded CCP trace module. 

Dumps storage to $CCPF I LE 9M.0250 

when a task terminates abnormally. 



Passes control between CCP 
transients. 



9M.0048 



Writes and invites command capable 9M.0250 
terminals. 

Completes the syntax check of and 9M.0210 
initiates a request for BSCA OLT. 



Formats the TUB and LCB for 
selected terminal. 



9M.0130 



Services op end interrupt for M LTA 9M.01 20 
OLT. 



Allocates unit record devices to 
tasks. 



Validates the command and trans- 
fers control to $CC4VB. 

Processes the terminal offline or 
online as specified. 



Reads STT from disk and locates 
phone number to call for user 
operation to switched line which 
is not connected. 



9M.0240 



9M.0210 



9M.0210 



9M.0140 
9M.0145 



Issues message specifying informa- 9M.0140 
tion about switched line connection 9M.0145 
for user operation to switched line 
which is not connected. 



Processes a parameter list for which 9M.0145 
a translation error has occurred. 9M.01 60 



9P.3420 



OV 



9P.5020 



OT 



9P.5060 



9P.3430 



9P.2410 



9P.2290 



9P.4080 



9P.3500 



9P.3510 



9P.2630 



9P.2640 



9P.2310 
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CCP Execution (continued) 



PID Entry Descriptive 

Module Name Point Name 



Function 



$CC4WT $E046 $CC4WT CCP Wait Routine 

$CC4XA' $CCKXA $CC4XA Puts CM Output 

$CC4XB 1 $CCKXB $CC4XB Display Backward 

$CC4XC 1 $CCKXC $CC4XC Display Backward 

$CC4XF 1 $CCKXF $CC4XF Display Forward 

$CC4XG 1 $CCKXG $CC4XG Display Forward 



SCC4X1 1 $CCKX1 $CC4X1 

$CC4X2' $CCKX2 $CC4X2 

$CC4X3 1 $CCKX3 $CC4X3 

$CC4X4' $CCKX4 $CC4X4 

SCC4X5 1 $CCKX5 $CC4X5 

SCC4X6 1 $CCKX6 $CC4X6 

SCC4X7 1 $CCKX7 $CC4X7 

SCC4X8 1 $CCKX8 $CC4X8 



Console 
Management 

Console Input 

Error Messages 

Input Complete 

Enable Keyboard 

Reply to a Get 

Puts Output to 
a File 

Puts Input to a 
File 



$CC4X9' $CCKX9 $CC4X9 Puts CM Output 



$CC4YA $CC4YA $CC4YA User First Sign 

On Transient 



CCPSAV $CC4PI 

CMBSKP $E092 
CMFRMN $E080 



CCPSAV CCP Register Save 
CCPRST and Restore 
CCP RET 

CMBSKP BSCA Poll Skip 
Bit Routine 

CMFRMN Accept TP 
CMREQ Requests 



Processes CCP asynchronous wait. 

Put console management output 
to console log file. 

Gets 5-10 messages from log file. 

Puts 5-10 messages to console 
screen. 

Gets 5-10 messages from log file. 

Puts 5-10 messages to console 
screen. 

Schedules console operations. 



Handles console input interrupt. 
Handles errors and return key. 
Handles completed input. 
Enables keyboard. 
Handles console reply to a get. 
Puts output to console log file. 

Puts input to console log file. 



Puts console management output 
to console log file. 

Calls halt routine. Provides hook 
as dummy user sign on routine. 

Saves and restores registers. 



Method of Program 
Operation ID Organization I D 



Sets skip bits on/off in BSCA 
polling list or switched ID list. 

Accepts and processes user TP re- 
quests (queues or initiates the 
request). 



None 


Ol 


None 


9P.9020 


None 


9P.9030 


None 


9P.9040 


None 


9P.9050 


None 


9P.9060 



None 



None 



None 



9M.0220 



None 



None 



9P.8030 



None 


9P.8040 


None 


9P.8050 


None 


9P.8060 


None 


9P.8070 


None 


9P.8080 


None 


9P.8090 



9P.9000 



9P.9010 



9P.3210 



OV 



RF 



9M.0090 QA 

QE 



Model 4 only. 



CCP Execution A-27 



CCP Execution (continued) 



PID Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization ID 



CMGINL $E092 

CMIVGM $E087 

CMOPND $E070 

CMPSRQ $E090 

CMRSCH $E085 



CMGINL Operation Input 
Length Deter- 
mination Rou- 
tine 

CMIVGM Invite Buffer 
Analysis 

CMOPND Op End Analysis 



CMPSRQ Post TP 
Scheduled 

CMRSCH Reschedule TP 
CMPAII Line 
CMTSRQ 



Calculates input length and 
sets truncate data on buffer 
overflow. 



Obtains buffer space for invite 
operations. 



None 



None 



CMSET $E090 CMSET 
CMSTOR $E090 
CPHALT $CC4PI 



Format Put- No- 
Wait Area 



CMSTOR Getmain Size 
Determination 



CPHALT CCP Stand- 
Alone Halt 
Routine 



Analyzes TP op ends and initiates 9M.0090 
I/O completion, return to user, 
and rescheduling of TP line. 

Posts requester that TP operation None 
has been processed and scheduled. 

Schedules work on non-busy 9M.0090 

lines and stops polling and 
starts output. 

Obtains and formats storage None 

for put-no-wait. 

Calculates main storage required None 
for a particular TP request. 

Initiates CCP U- halt and dump. None 



QU 



QK 



QA 
QC 



OS 



QA 
QG 



QM 



QL 



OV 



User Subroutines 



PID Entry Descriptive 

Module Name Point Name 



Function 



SSUFFF 1 $$UFFF $$UFFF Unit Record 

Intermediary 

SSUFPP 1 $$UFPP $$UFPP Unit Record 

Intermediary 

$$UFPR* $$UFPR $$UFPR Unit Record 

Intermediary 

SSUFPU 1 $$UFPU $$UFPU Unit Record 

Intermediary 

SSUFRD 1 $$UFRD $$UFRD Unit Record 

Intermediary 



'Models 8, 10, and 12 only. 
A-28 



Tests unit record device for busy 
or not ready to avoid looping on 
SIO. 



Method of Program 
Operation ID Organization ID 



None 



Tests unit record device for busy or None 
not ready to avoid looping on SIO. 

Tests unit record device for busy or None 
not ready to avoid looping on SIO. 

Tests unit record device for busy or None 
not ready to avoid looping on SIO. 

Tests unit record device for busy or None 
not ready to avoid looping on SIO. 



9P.8010 



9P.8010 



9P.8010 



9P.8010 



9P.8010 



User Subroutines (continued) 



PID Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization ID 



$$UFRP' 


$$UFRP 


$$UFRP 


Unit Record 
Intermediary 


SSUFRU 1 


$$UFRU 


$$UFRU 


Unit Record 
Intermediary 


$$UPRT 


$$UPRT 


$$UPRT 


Unit Record 
Intermediary 


$$URFF ! 


$$URFF 


$$URFF 


Unit Record 
Intermediary 


SNARFF 1 


$NARFF 


$NARFF 


Unit Record 
Intermediary 


SNLPRT 1 


$NLPRT 


$NLPRT 


Unit Record 
Intermediary 


SNMFFF 1 


$NMFFF 


$NMFFF 


Unit Record 
Intermediary 


SNMFPP 1 


$NMFPP 


$NMFPP 


Unit Record 
Intermediary 


SNMFPR 1 


$NMFPR 


$NMFPR 


Unit Record 
Intermediary 


$NMFPU' 


$NMFPU 


$NMFPU 


Unit Record 
Intermediary 


SNMFRD 1 


$NMFRD 


$NMFRD 


Unit Record 
Intermediary 


SNMFRP 1 


$NMFRP 


$NMFRP 


Unit Record 
Intermediary 


SNMFRU 1 


$NMFRU 


$NMFRU 


Unit Record 
Intermediary 


CCPCIO 1 


CCPCIO 


CCPCIO 


COBOL Commun- 
ications Service 
Subroutine 


CCPFIO 1 


CCPFIO 


CCPFIO 


FORTRAN Com- 
munication Service 
Subroutine 



Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.801 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Tests unit record device for busy or None 9P.8010 

not ready to avoid looping on SIO. 

Passes user programs communications 9M.0420 9P.6300 

requests to CCP. 



Passes user programs communications 9M.0430 9P.6310 

requests to CCP. 



Models 8, 10, and 12 only. 



User Subroutines A-29 



User Subroutines (continued) 



PID Entry Descriptive 

Module Name Point Name 



Function 



Method of Program 
Operation ID Organization ID 



SUBR90 SUBR90 SUBR90 



Move Fields 
To/From Re- 
cord Area 



Extracts fields from a record area 
or moves fields to a record area. 



None 



9P.6350 



SUBR91 SUBR91 SUBR91 



SUBR92 SUBR92 SUBR92 



RPGII EXIT/ 
RLABL Sup- 
port 

RPG II SPECIAL 
File Support 



Supports EXIT/RLABL TP I/O 
for CCP. 



Support SPECIAL files in RPG II 
for CCP. 



9M.0370 9P.6340 

9M.0380 



9M.0370 
9M.0380 



9P.6320 



SUBR93 SUBR93 SUBR93 



RPG II False Subroutine to a guide false file 

File Support logic main storage in RPG II for 

CCP. 



None 



9P.6330 



Shutdown 



Module 



PID 
Name 



Entry 
Point 



Descriptive 
Name 



Function 



Method of Program 
Operation ID Organization ID 



$CC5SH $CC5SH $CC5SH Shutdown 



Returns system to normal DSM 
status. 



10M.0100 RM 



Disk-to-Printer Dump 










PID 
Module Name 


Entry 
Point 


Descriptive 
Name 


Function 


Method of Program 
Operation ID Organization ID 



$CCPDD $CCPDD DDOOOO Disk-to-Printer 

Dump 



Dumps main storage and trace 
data to printer from $CCPFILE. 



11M.0100 RZ 



SCCPLL SCCPLL $CCPLL Log List 



Lists $CCPLOG. 



11M.0200 YY 



Standalone Dump Programs (Models 8, 10, and 12 Only) 



Module 



PID 
Name 



Entry 
Point 



Descriptive 
Name 



Function 



Method of Program 
Operation ID Organization ID 



CCPDAN CCPDAN CCPDAN MFCU-Loadable 

Main Storage 
Dump, AN or LC 
Chain 



Dumps main storage to printer 
between selected bounds. 



None 



ZN 



CCPDHN CCPDHN CCPDHN MFCU-Loadable 

Main Storage 
Dump, NN 
Chain 



Dumps main storage to printer 
between selected bounds. 



None 



ZN 



A-30 



Standalone Dump Programs (continued) 



Module 



PID 

Name 



Entry 
Point 



Descriptive 
Name 



CCPDPN CCPDPN CCPDPN MFCU-Loadable 

Main Storage 
Dump, PN 
Chain 

CCPDTN CCPDTN CCPDTN MFCU-Loadable 

Main Storage 
Dump, TN 
Chain 



Function 



Method of Program 
Operation ID Organization ID 



Dumps main storage to printer 
between selected bounds. 



Dumps main storage to printer 
between selected bounds. 



None 



ZN 



None 



ZN 



Standalone CCP Support Program 



Module 



PID 
Name 



Entry 
Point 



Descriptive 
Name 



$CCPRB $CCPRB RBEGIN File Recovery 

Program 



Function 



Method of Program 
Operation ID Organization ID 



Assists the CCP user in disk file 
recovery if the CCP is abnormally 
terminated. 



14M.0100 



None 



Installation Verification Program 



Module 



PID 
Name 



Entry 
Point 



Descriptive 
Name 



Function 



Method of Program 
Operation ID Organization ID 



CCPIVP CCPIVP CCPIVP Installation Veri- Verifies installed CCP (object 

fication Program module link edited). 

CCPIVR CCPIVR CCPIVR Installation Veri- Verifies installed CCP (relocatable 

fication Program module). 



(Figure 13-2) ZP 
(Figure 13-2) ZP 
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Appendix 13 information was added to IBM System/3 
Models 4, 8, 10, and 12 CCP Data Areas and Diagnostic 
/t/afc,SY21-0048. 

Appendix C information was added to IBM System/3 
CCP Messages Manual, GC21 -51 70. 



| A-32(B-1,B-2,C-1,C-2 deleted) 



Appendix B. Data Area Formats 



SCP GENERATOR DATA AREAS (MODELS 8, 10, 
AND 12 ONLY) 

All data areas used by more than one phase of the SCP 
Generator are described in this chapter: 

« Communications Area (COMARA). Part of $CGNIN- 
Contains the transfer vector and an address table for 
all other tables in $CGNIN (Figure B-1). 

» Common Area (COMMON). Part of $CGNIN-Used 
for interphase constants, working storage, and com- 
munication (Figures B-2 through B-7). The COMMON 
Interphase Parameter Usage Chart shows which fields 
in COMMON are used by each phase of the SCP 
Generator (Figure B-8). 

• Printer Communications Area. Part of $CGNPE- 
Contains printer DTF, printer buffer, and listing header 
(Figure B-9). 

• Symbol Table-Contains symbols found in the source 
program (Figures B-1 and B-11). 

• Work File ($WORK2)-A disk scratch file used for 
intermediate storage throughout execution of the SCP 
Generator (Figures B-1 2, B-13, and B-14). 



Symbol Definition Record (translated name record) 
Bytes 0-5 Symbol padded with blanks 
Byte 6 Type byte X'01 XXXXXX' 

Bytes 7, 8 Statement number where defined 
Byte 9 Not used 

Symbol Reference Record (translated term record) 
Bytes 0-5 Symbol padded with blanks 
Byte 6 Type byte X'1 OXXXXXX' 

Bytes 7, 8 Statement number of the reference 
Byte 9 X'XXXXIXXX' 



X ' XXXXIXXX ' 



On indicates a machine oper- 
and which could be altered 
by execution of the instruction 



Data Area Formats B-1 



B-2 



Appendix C. Halts Cross Reference 



This appendix lists SCP Generation halts and specifies the 
meaning of each halt and the module that issues the halt. 
Halts are listed alphabetically. 

CCP halts are listed in the IBM System/3 Models 4, 8, 10, 
and 12 Communication Control Program Data Areas and 
Diagnostic Aids, SY21 -0048-0. 



SCP GENERATOR HALTS 

The following halts are subhalts to a U-halt (1234 halt 
on Model 4). 



Halt 



GE 
OB 

SC 
WK 



Meaning 



Issued By 



Error in Generation code 

End of extent on Object File ($WORK) 

EOF on Source File ($SOURCE) with no /* read 
End of extent on Work File ($WORK2) 



$CGNSX 

$CGNPE 
$CGNPS 

SCGNCM 

$CGNCM 
$CGNSF 
$CGNSS 



Halts Cross Reference C-1 



C-2 
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Appendix D. Macros Used by CCP Generation 



First Pass 



Second Pass (continued) 



Macro Purpose 

$EIOD Define unit-record and disk devices to be 

supported 

$EFAC Define CCP facilities to be supported 

$EPLG Define programming language to be supported 

$ESEC Define sign on security support to be used 

$EFIL Define size requirements in $CCPFILE 

$EMLA Define MLTA lines and features to be supported 

$EMLD Define MLTA devices to be supported 

$EBSC Define BSCA lines and features to be supported 

$EBSD Define BSCA device to be supported 

$EGEN Define miscellaneous requirements and generate 

second pass input 



Second Pass 



Macro Purpose 

$E000 Set system-wide global variables 

$E001 Set system control global variables 

$E002 Set MLTA global variables 

$E003 Set BSCA global variables 

$EEQU Generate equates for common values 

$EDSM Generate equates for DSM supervisor values 

$EKIO Generate equates for console support 

$ECOM Generate equates for CCP Communications 

Area 

$ETCB Generate equates for task control block 

$ETCC Generate equates for task completion codes 

$ECDE Generate equates for Contents directory entry 

$EIOB Generate equates for disk IOB 

$ESQB Generate equates for sector enqueue block 

$ECPL Generate equates for communications parameter 

list 

$ETAS Generate equates for terminal attributes set 

$ETUB Generate equates for terminal unit block 

$ELCB Generate equates for line control block 

$ETNT Generate equates for Terminal Name Table 

$ETML Generate equates for translate/more parameter 

list 

$EBEQ Generate equates for BSCA values 

$E030 Generate CCP Communications Area 

$E031 Generate transient relocation constants 

$E032 Generate resident Startup initialization routine 



Macro Purpose 

$E033 Generate initial IOCS pointers 

$E035 Generate system work areas, TCBs, and console 

TUBs 

$E038 Generate first level transient list 

$E040 Generate routines $CC4DP, $CC4IO, $CC4IW 

$E042 Intercepts all branches to zero 

$E044 Generate routine $CC4IH 

$E046 Generate routines $CC4WT, $CC4PS 

$E050 Generate routine $CC4IG 

$E055 Generate routine $CC4DI 

$E058 Generate DCs for relocation of $CC4I I 

$E060 Generate routines $CC4II, $CC4IS 

$E065 Generate maintenance space and any user security 

work area 

$E070 Generate routine $CC4CM - Part 1 

$E072 Generate routine $CC4CM - Part 2 

$E075 Generate routine $CC4CM - Part 3 

$E077 Generate routine $CC4CM - Part 4 

$E080 Generate routine $CC4CM - Part 5 

$E082 Generate routine $CC4CM - Part 6 

$E085 Generate routine $CC4CM - Part 7 

$E087 Generate routine $CC4CM - Part 8 

$E090 Generate routine $CC4CM - Part 9 

$E092 Generate routine $CC4CM - Part 10 

$E095 Generate routine $CC4CM - Part 1 1 



Macros Used by CCP Generation D-1 
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Appendix E information was added to IBM System/3 CCP 
Messages Manual, GC2 1-5170. 



| D-2(E-1,E-44 deleted) 



Appendix E. Messages Cross Reference 



This appendix lists the CCP messages and specifies the 
module that contains each message and the module that 
issues each message. The messages are listed in twelve 
groups: 

1 . CCP Generation Messages 

2. SCP Generator Messages 

3. Assignment Build Messages 

4. Assignment List Messages 

5. User Security Routine Messages 

6. Display Format Generator Messages 

7. Startup Messages 

8. System Operator Messages 

9. Terminal Operator Messages 

10. CCP Dump Messages 

11. Installation Verification Program (CCPIVP) 
Messages 

12. Display Format Test Routine Diagnostic Messages 

Messages are arranged alphamerically by message ID 
within each group. 



Cross Reference E-1 



CCP Generation Messages 



Message I D Message Text 



Contained In Issued By 



CC005 $EIOD STATEMENT NOT IN PROPER SEQUENCE 

CC010 INVALID 'CARD' PARAMETER - MUST BE MFCU/ 

1442/'MFCU, 14427NO 

CC015 INVALID 'PRINTER* PARAMETER - MUST BE 

5203/1 403/NO 

CC020 INVALID 'DISKS' PARAMETER - MUST BE R2/ 

'R2,F27NO 

CC025 INVALID 'D5445' PARAMETER - MUST BE 

D1/'D1,D27NO 



$EIOD $EIOD 

$EIOD $EIOD 

$EIOD $EIOD 

$EIOD $EIOD 

$EIOD $EIOD 



CC026 



INVALID 'N3741' PARAMETER - MUST BE YES/Y/NO/N $EIOD 



$EIOD 



CC050 $EFAC STATEMENT OUT OF SEQUENCE - OR PRECEDING 

STATEMENT ERROR $EFAC $EFAC 

CC055 INVALID 'MAXEUP' PARAMETER - MUST BE DIGIT 

IN RANGE 1-8 $EFAC $EFAC 

CC060 INVALID 'DPF' PARAMETER -MUST BE YES/Y/NO/N $EFAC $EFAC 

CC065 INVALID 'FSHARE' PARAMETER -MUST BE YES/Y/NO/N $EFAC $EFAC 

CC067 FSHARE-YES SPECIFIED WITH MAXEUP-1 - TREATED 

AS FSHARE-NO $EFAC $EFAC 

CC075 INVALID 'SYMFIL' PARAMETER - MUST BE 

YES/Y/NO/N $EFAC $EFAC 

CC080 INVALID 'PGMCNT' PARAMETER -MUST BE 

YES/Y/NO/N $EFAC $EFAC 

CC085 INVALID 'ESCAPE' PARAMETER - MUST BE '6 

CHARSVX'1 2 CHARS'/NO $EFAC $EFAC 

CC090 INVALID 'FORMAT' PARAMETER - MUST BE 

YES/Y/NO/N $EFAC $EFAC 

CC091 INVALID 'PRUF' PARAMETER-MUST BE YES/Y/NO/N $EFAC $EFAC 

CC100 $EPLG STATEMENT OUT OF SEQUENCE-OR 

PRECEDING STATEMENT ERROR $EPLG $EPLG 

CC100 $EPLG STATEMENT OUT OF SEQUENCE - OR $EPLG $EPLG 

PRECEDING STATEMENT ERROR 

CC105 INVALID 'LANG' PARAMETER -MUST BE COBOL/ $EPLG $EPLG 

RPGI l/ASSEM/FORTR AN 



E-2 



CCP Cieneration Messages (continued) 
Message ID Message Text 



Contained In Issued By 



CC110 DUPLICATE $EPLG STATEMENT FOR RPGII LANGUAGE 

CC1 10 DUPLICATE $EPLG STATEMENT FOR COBOL LANGUAGE 

CC110 DUPLICATE $EPLG STATEMENT FOR FORTRAN 

LANGUAGE 

CC1 10 DUPLICATE $EPLG STATEMENT FOR ASSEM LANGUAGE 

CC115 INVALID 'PPUNIT' PARAMETER - MUST BE F1/ 

F1/R2/F2 

CC120 MISSING 'LANG' OPERAND - MUST BE SPECIFIED 

CC125 MISSING 'PPUNIT' OPERAND - MUST BE SPECIFIED 

CC150 $ESEC STATEMENT OUT OF SEQUENCE - OR 

PRECEDING STATEMENT ERROR 

CC155 INVALID 'SECURE' PARAMETER - MUST BE CCP/ 

USER/NO 

CC160 INVALID 'LUSI' PARAMETER - ONLY IS VALID 

UNLESS SECURE-USER 

CC165 LUSI-0 SPECIFIED, OR 'LUSI' OPERAND OMITTED 

WITH SECURE-USER 

CC170 INVALID 'LUSI' PARAMETER - MUST BE NUMBER 

IN RANGE 1-4096 

CC200 $EFI L STATEMENT OUT OF SEQUENCE - OR PRE- 

CEDING STATEMENT ERROR 

CC205 INVALID 'SETS' PARAMETER - MUST BE NUMBER 

IN RANGE 1-25 

CC210 INVALID 'PROGS' PARAMETER - MUST BE NUMBER 

IN RANGE 1-255 

CC215 INVALID 'DFILES' PARAMETER - MUST BE NUMBER 

IN RANGE 0-50 

CC220 INVALID 'TERMS' PARAMETER - MUST BE NUMBER 

IN RANGE 1-254 

CC225 INVALID 'DUMPS' PARAMETER - MUST BE NUMBER 

IN RANGE 1-9 

CC230 INVALID 'CORE' PARAMETER - MUST BE 24K/ 

32K/48K/64K (Model 10 only) 



$EPLG $EPLG 

$EPLG $EPLG 

$EPLG $EPLG 

$EPLG $EPLG 



$EPLG 


$EPLG 


$EPLG 


$EPLG 


$EPLG 


$EPLG 


$ESEC 


$ESEC 


$ESEC 


$ESEC 


$ESEC 


$ESEC 


$ESEC 


$ESEC 


$ESEC 


$ESEC 


$EFIL 


$EFIL 



$EFIL $EFIL 

$EFIL $EFIL 

$EFIL $EFIL 

$EFIL $EFIL 

$EFIL $EFIL 

$EFIL $EFIL 

CCP Generation Messages E-3 



CCP Generation Messages (continued) 



Message ID Message Text 



Contained In Issued By 



CC230 INVALID 'CORE' PARAMETER -MUST BE 48K/ 

64K (Model 12 only) 

CC240 MISSING 'FLUNIT' OPERAND - MUST BE SPECIFIED 

CC242 INVALID 'FLUNIT' PARAMETER - MUST BE R1/F1/ 

R2/F2 

CC244 MISSING 'FLPACK' OPERAND - MUST BE SPECIFIED 

CC246 INVALID 'FLPACK' PARAMETER - MUST BE 1-6 

CHARACTERS 

CC248 INVALID TRKLOC" PARAMETER - MUST BE NUMBER 

IN RANGE 8-405 

CC250 $EMLA STATEMENT OUT OF SEQUENCE - OR PRE- 

CEDING STATEMENT ERROR 

CC255 INVALID 'LINES' PARAMETER - MUST BE NUMBER 

IN RANGE 0-8 

CC260 MISSING 'LINES' OPERAND - MUST BE SPECIFIED 

IF STATEMENT USED 

CC265 LINES-0, BUT OTHER KEYWORD SPECIFIED WITH NON- 

DEFAULT PARAMETER 

CC270 INVALID 'XLATE' PARAMETER - MUST BE YES/Y/NO/N 

CC300 SEMLD STATEMENT OUT OF SEQUENCE - OR 

PRECEDING STATEMENT ERROR 

CC305 STATEMENT USED, BUT NO MLTA LINES SPECIFIED 

CC310 MISSING 'TYPE' OPERAND - MUST BE SPECIFIED 

CC315 INVALID 'TYPE' PARAMETER - MUST BE MLTA 

TERMINAL DESIGNATION 

CC320 MISSING 'XMCODE' OPERAND - MUST BE SPECIFIED 

CC325 INVALID 'XMCODE' PARAMETER - MUST BE CORR/ 

PTTCEBCE/PTTCBCD 

CC330 XMCODE-PTTCEBCD NOT VALID FOR TERMINAL TYPE 

SPECIFIED 

CC330 XMCODE-PTTCBCD NOT VALID FOR TERMINAL TYPE 

SPECIFIED 

CC330 XMCODE-CORR NOT VALID FOR TERMINAL TYPE 

SPECIFIED 



$EFIL $EFIL 

$EFIL $EFIL 

$EFIL $EFIL 

SEFIL $EFIL 

SEFIL $EFIL 

$EFIL $EFIL 

$EMLA $EMLA 

$EMLA $EMLA 

SEMLA $EMLA 

$EMLA $EMLA 

$EMLA $EMLA 

$EMLD SEMLD 

$EMLD $EMLD 

$EMLD $EMLD 



E-4 



$EMLD 


$EMLD 


$EMLD 


$EMLD 


$EMLD 


$EMLD 


$EMLD 


$EMLD 


$EMLD 


$EMLD 


$EMLD 


SEMLD 



CCP Generation Messages (continued) 



Message ID Message Text 



Contained In Issued By 



CC400 $EBSC STATEMENT OUT OF SEQUENCE - OR PRECEDING 

STATEMENT ERROR 

CC405 MISSING 'BSCA' OPERAND - MUST BE SPECIFIED IF 

STATEMENT USED 

CC410 INVALID 'BSCA' PARAMETER - MUST BE NUMBER IN 

RANGE 0-2 

CC415 BSCA-0, BUT OTHER OPERAND SPECIFIED WITH NON- 

DEFAULT PARAMETER 

CC417 INVALID 'DA' PARAMETER - MUST BE YES/Y/NO/N 

CC419 IF DA-YES - MUST SPECIFY BSCA-1 or BSCA-2 

CC42CI INVALID 'DIAL' PARAMETER - MUST BE YES/Y/NO/N 

CC425 INVALID 'PP' PARAMETER - MUST BE YES/Y/NO/N 

CC430 INVALID 'MP' PARAMETER - MUST BE YES/Y/NO/N 

CC435 INVALID 'CS' PARAMETER - MUST BE YES/Y/NO/N 

CC440 BSCA PRESENT BUT NO LINE TYPES SPECIFIED 

CC446 INVALID 'GETMSG' PARAMETER - MUST BE YES/Y/ 

NO/N 

CC450 INVALID 'ITB' PARAMETER - MUST BE YES/Y/NO/N 

CC455 INVALID 'RECSEP' PARAMETER - MUST BE TWO 

HEX DIGITS 

CC460 INVALID 'ASCII' PARAMETER - MUST BE YES/Y/NO/N 

CC465 INVALID 'EBCDIC PARAMETER - MUST BE YES/Y/ 

NO/N 

CC470 BSCA PRESENT BUT NEITHER TRANSMISSION 

CODE IS USED 

CC472 EBCDIC-YES AND ASCII-YES SPECIFIED WITH 

BSCA-1 - NOT POSSIBLE 

CC480 INVALID 'RESPOL' PARAMETER - MUST BE YES/ 

Y/NO/N 

CC482 RESPOL-YES SPECIFIED WITH CS-NO - TREATED AS 

RESPOL-NO 

CC485 INVALID 'AUTORS' PARAMETER - MUST BE YES/Y/ 

NO/N 



$EBSC 



$EBSC 



$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 


$EBSC 



$EBSC $EBSC 

$EBSC $EBSC 

$EBSC $EBSC 

$EBSC $EBSC 

$EBSC $EBSC 



$EBSC $EBSC 
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CCP Generation Messages (continued) 



Message ID Message Text 



Contained In Issued By 



CC487 

CC490 

CC492 

CC500 

CC505 

CC510 
CC515 

CC520 

CC525 

CC600 

CC605 

CC610 
CC615 
CC620 
CC625 

CC630 
CC635 

CC637 

CC640 
CC645 



AUTORS-YES SPECIFIED WITH MS-NO - TREATED 
AS AUTORS-NO 

INVALID 'SPRNCY' PARAMETER - MUST BE YES/Y/ 
NO/N 

XPRNCY-YES SPECIFIED WITH EBCDIC-NO - NOT 
VALID 

$EBSD STATEMENT OUT OF SEQUENCE - OR PRE- 
CEDING STATEMENT ERROR 

$EBSD STATEMENT USED, BUT NO BSC ADAPTERS 
SPECIFIED 

MISSING TYPE' OPERAND - MUST BE SPECIFIED 

INVALID 'TYPE' PARAMETER - MUST BE BSCA 
TERMINAL DESIGNATION 

3271 CONTROL UNIT REQUIRES CONTROL STATION 
SUPPORT 

'TYPE' 3275 REQUIRES CONTROL STATION OR 
SWITCHED SUPPORT 

$EGEN STATEMENT OUT OF SEQUENCE - OR PRECEDING 
STATEMENT ERROR 

DUPLICATE $EGEN STATEMENT - CONTENTS 
IGNORED 

MISSING 'DSUNIT' OPERAND - MUST BE SPECIFIED 

INVALID 'DSUNIT' PARAMETER - MUST BE R1/F1 

MISSING 'CCUNIT' OPERAND - MUST BE SPECIFIED 

INVALID 'CCUNIT' PARAMETER - MUST BE R1/F1/ 
R2/F2 

MISSING 'WKUNIT' OPERAND - MUST BE SPECIFIED 

INVALID 'WKUNIT' PARAMETER - MUST BE R1/F1/ 
R2/F2 0RSERIESOF3 



WKUNIT/WKPACK ERROR - PACKS 
BOTH ON UNIT** 



*#*### 



AND 



E-6 



MISSING 'WKPACK' OPERAND - MUST BE SPECIFIED 

INVALID 'WKPACK' PARAMETER - MUST BE 1-6 
CHAR NAME OF SERIES OF 3 



$EBSC 

$EBSC 

$EBSC 

$EBSD 

$EBSD 
$EBSD 

$EBSD 

$EBSD 

$EBSD 

$EBSD 

$EGEN 
$EGEN 
$EGEN 
$EGEN 

$EGEN 

$EGEN 

$EGEN 

$EGEN 
$EGEN 

$EGEN 



$EBSC 

$EBSC 

$EBSC 

$EBSD 

$EBSD 
$EBSD 

$EBSD 

$EBSD 

SEBSD 

$EBSD 

$EGEN 
$EGEN 
$EGEN 

$EGEN 

$EGEN 
$EGEN 

$EGEN 

$EGEN 

$EGEN 

$EGEN 



CCP Generation Messages (continued) 



Message ID Message Text 



Contained In Issued By 



CC650 
CC655 

CC660 
CC665 

CC670 

CC675 
CC680 

CC700 
CC705 
CC710 
CC715 

CC720 
CC725 

CC730 

CC735 

CC740 
CC745 
CC750 



MISSING 'DIUNIT' OPERAND -MUST BE SPECIFIED $EGEN SEGEN 



INVALID 'DIUNIT' PARAMETER - MUST BE R1/F1/ 
R2/F2 

'CCUNIT SAME AS 'DIUNIT' - NOT PERMITTED 

'PPUNIT' FROM $EPLG STATEMENT SAME AS 'DIUNIT' - 
NOT PERMITTED 

INVALID 'MINRES' PARAMETER - MUST BE YES/Y/ 
NO/N 

MINRES - YES REQUIRES MAXEUP - 1 

INVALID 'CARD' PARAMETER - MUST BE YES/Y/NO/N 

NO MLTA OR BSCA SUPPORT SPECIFIED - AT LEAST 
ONE REQUIRED 

FORMAT-YES SPECIFIED IN $EFAC REQUIRES 
GETMSG-YES IN $EBSC 

NO PROGRAMMING LANGUAGE SUPPORTED - AT 
LEAST ONE REQUIRED 

FORMAT-YES IN $EFAC REQUIRES 3270 DISPLAY 
DEVICE INSEBSD 



$EGEN $EGEN 

$EGEN $EGEN 

$EGEN $EGEN 

$EGEN $EGEN 

$EGEN $EGEN 

$EGEN $EGEN 

$EGEN $EGEN 

$EGEN $EGEN 

$EGEN $EGEN 

$EGEN $EGEN 



ESCAPE SPECIFIED IN $EFAC REQUIRES MINRES-NO $EGEN $EGEN 



PGMCNT-YES SPECIFIED IN $EFAC REQUIRES 
MINRES-NO 

SYMFIL-YES SPECIFIED IN $EFAC REQUIRES 
MINRES-NO 

XLATE-NO SPECIFIED IN $EMLA REQUIRES 
MINRES-NO 

MULTIPLE TP LINES REQUIRE MINRES-NO 

DPF-YES SPECIFIED IN $EFAC REQUIRES MINRES-NO 

FSHARE-YES SPECIFIED IN $EFAC REQUIRES 
MINRES-NO 



SEGEN $EGEN 

$EGEN $EGEN 

$EGEN $EGEN 

SEGEN $EGEN 

SEGEN $EGEN 

SEGEN SEGEN 
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CCP Generation Messages (continued) 



Message ID Message Text 



Contained In Issued By 



CC901 INVALID STATEMENT TYPE OR SOURCE LIBRARY 

ON WRONG PACK 

CC902 INVALID STATEMENT TYPE, OR PREVIOUS ERROR ON 

STATEMENT 

CC903 A KEYWORD USED IS NOT VALID FOR THIS STATEMENT 

TYPE 

CC904 A PARAMETER IS MISSING OR HAS INVALID FORM 

CC905 A DELIMITER IS EITHER INVALID OR WRONGLY 

PLACED IN THE STATEMENT 

CC906 COMMA AFTER LAST OPERAND BUT NO CONTINUATION 

INDICATOR 

CC907 ON CONTINUATION CARD, COLS. 1-13 MUST BE 

BLANK - THEY ARE NOT 

CC909 ERROR '**' ISSUED BY MACRO PROCESSOR - 

POSSIBLE CCP ERROR 

CC990 INCOMPLETE INPUT TO CCP GENERATION 

CC991 NOT A VALID STATEMENT FOR CCP GENERATION 



$CC1PP $CC1PP 

$CC1PP $CCTPP 

$CC1PP $CC1PP 

$CC1PP $CC1PP 

$CC1PP $CC1PP 

$CC1PP $CC1PP 

$CC1PP $CC1PP 

$CC1PP $CC1PP 

$CC1PP $CC1PP 

$CC1PP $CC1PP 



SCP Generator Messages 



Message I D Message Text 



TOTAL STATEMENTS IN ERROR IN THIS GENERATION 



Contained In Issued By 



SCP Generator 



E-8 



Assignment Build Messages 



Message ID Message Text 



Contained In Issued By 



CA002 T DELIMITING APOSTROPHE MISSING 

CA003 T INVALID KEYWORD FOR THIS STATEMENT OR 

PAST COL 71 

CA004 T VALUE FOR KEYWORD IS NOT YES/NO 

CA005 T KEYWORD GIVEN PREVIOUSLY IN THIS STATEMENT 

CA006 T DATA IS IN COLUMN 72 

CA007 T VALUE IS NOT NUMERIC OR INVALID SIZE NUMBER 

GIVEN 

CA008 T VALUE IS NOT CORRECT RESPONSE FOR THIS 

KEYWORD 

CA009 T SUBLIST NOT VALID FOR THIS KEYWORD 

CA01 1 T INCORRECT USE OF SUBLIST VALUES 

CA012 TTOO MANY OR TOO FEW CHARACTERS IN VALUE 

CA013 T INCORRECT USE OF SPLIT- VALUE 



$CC2E1 



$CC2E1 



$CC2SS 



$CC2E1 


$CC2SS 


$CC2E1 


$CC2SS 


$CC2E1 


$CC2SS 


$CC2E1 


$CC2SS 



SCC2SS 



$CC2E1 


$CC2SS 


$CC2E1 


SCC2SS 


$CC2E1 


$CC2SS 


SCC2E1 


SCC2SS 


$CC2E1 


$CC2SS 
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Assignment Build Messages (continued) 



Message I D Message Text 



Contained In Issued By 



CA014 

CA015 
CA020 

CA025 

CA026 
CA027 
CA028 



CA029 

CA031 
CA032 
CA033 

CA040 

CA041 

CA042 

CA043 
CA044 
CA045 
CA046 

CA051 



T KEYWORD EXPECTED OR INCORRECT USE OF 
PUNCTUATION 

T VALUE GIVEN IS TOO LONG 

I FOLLOWING STATEMENTS ARE SYNTAX 
SCANNED ONLY 

T REQUIRED KEYWORD NOT GIVEN 



$CC2E1 
$CC2E2 

SCC2E2 



W STARTUP DEFAULT SET DELETED 

T FOUND HYPHEN INSTEAD OF COMMA OR APOSTROPHE $CC2E2 

T TOO MANY STATEMENTS GIVEN 



T TOO MANY ENTRIES GIVEN 

TERMINATION MESSAGES 
WARNING MESSAGES 
T INVALID TERMINAL ID 



T DISK ERROR OCCURRED ON EITHER $CCPWORK 
ORSCCPFILE 

T STATEMENT NOT IN PROPER SEQUENCE 



W FILE ACCESS METHOD CONFLICTS WITH PROGRAM 
LANGUAGE 

W SET ID NOT FOUND IN DIRECTORY 

T CREATE SET ID EXISTS ALREADY 

T CCP OR AUX PROG EXECUTING IN OTHER LEVEL 

W REPLACE SET ID NOT FOUND, ASSUME ACTION- 
CREATE 

T STATEMENT DOES NOT START WITH '//' 



$CC2E2 



$CC2E3 
SCC2E3 

$CC2E3 



$CC2SS 
$CC2SS 

SCCPAS 



CM CM 
UJ LU 
CM CM 


$CC2SS 
$CC2SY 


SCC2E2 


$CCPAS 


$CC2E2 


$CC2SS 


SCC2E2 
SCC2E2 
SCC2E2 
SCC2E2 
$CC2E2 


$CC2BT 
$CC2MT 
SCC2TN 
SCC2DF 
$CC2PG 


$CC2E2 
SCC2E2 


$CC2SS 
SCC2PG 


SCC2E2 


SCC2HK 


$CC2E2 


$CC2HK 


$CC2E2 
$CC2E2 


SCC2BT 

SCC2MT 



$CCPAS 



$CCPAS 
$CC2DF 

SCC2PG 



$CC2E3 


SCCPAS 


SCC2E3 


$CCPAS 


SCC2E3 


SCCPAS 


SCC2E3 


SCCPAS 


SCC2E3 


$CCPAS 
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Assignment Build Messages (continued) 



Message ID Message Text 



Contained In Issued By 



CA052 T INVALID STATEMENT IDENTIFIER 

CA053 T $CCPFI LE UNUSABLE 

CA054 T SYSIN READ ERROR 

CA055 T SYMBOLIC NAME REQUIRED FOR ALL DEFINED 

TERMINALS 

CA060 T NO MORE ROOM IN $CCPFILE OR $CCPWORK 

CA0B1 T INVALID ADDR/POLL CHARACTERS 

CA070 T ATTRIBUTES SET WAS NOT SPECIFIED FOR 

THIS TERMINAL 

CA071 T DUPLICATE REQUIRED TERMINALS INVALID 

CA072 TTERMINAL NAME INVALID 

CA073 T ADDR INVALID WITH LINE TYPE SW OR PP 

CA074 TADDR REQUIRED WITH LINE TYPE CS OR CW 

CA075 T TERMINAL TYPE 2740 INVALID WITH RECEIVE 

INTERRUPT 

CA076 T DELAY/AUTOPOLL IS INVALID WITH LINE TYPE 

SWORPP 

CA077 T ADDR/POLLCHAR INVALID WITH LINE TYPE 

SW OR PP 

CA078 W PGMREQL LESS THAN MINIMUM REQUIRED, 

ASSUME DEFAULT 

CA079 T PHONE NUMBER CONTAINS AN INVALID NUMERIC 

DIGIT 

CA080 T AUTOCALL INVALID FOR MLTA LINE 

CA082 W PRUF$Z REQUIRES PRUFLNG AND DFF PROG, 

PRUF$Z IGNORED 

CA083 W FORMAT NAME MUST BEGIN WITH $Z, PRUF$Z 

IGNORED 

CA084 W DFF PROG WITH PRUFLNG REQUIRES PRUF$Z, 

PRUF IGNORED 

CA085 W PRUF NOT SUPPORTED AT GENERATION, PRUF 

IGNORED 



$CC2E3 $CCPAS 

$CC2E3 $CCPAS 

$CC2E3 $CCPAS 



$CC2E3 


$CC2TN 


$CC2E3 


$CCPAS 


$CC2E4 


$CC2BT 


$CC2E4 


$CC2PG 


SCC2E4 


$CC2PG 


$CC2E4 


$CC2TN 


$CC2E4 


$CC2MT 


$CC2E4 


$CC2MT 



$CC2E4 $CC2MT 

$CC2E4 $CC2ML 

$CC2E4 $CC2BT 

$CC2E4 $CC2SY 

$CC2E4 CC2TN 

$CC2E4 $CC2MT 

$CC2ED $CC2PG 

$CC2ED $CC2PG 

$CC2ED $CC2PG 

$CC2ED $CC2PG 

Assignment Build Messages E-1 1 



Assignment Build Messages (continued) 
Message ID Message Text 



Contained In Issued By 



CA086 W PRUF REQUIRES PGMDATA-YES, ASSUME-YES 

CA087 T INDEXED FILES NOT VALID IN 5444 SIMULATION 

AREA (Model 12 only) 

CA098 W MINTPBUF TOO SMALL, CALCULATED VALUE USED 



CA099 I PREVIOUS SET NOT PROCESSED 

CA101 TSET ID NOT VALID 



$CC2ED 



$CC2ED 



$CC2PG 



$CC2DF 



SCC2E5 


$CC2SY 


$CC2E5 


$CC2HK 


$CC2E5 


SCCPAS 


$CC2E5 


SCCPAS 
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Assignment Build Messages (continued) 



Message ID Message Text 



Contained In Issued By 



CA102 T MINUPA VALUE INVALID 

CA103 TMAXEUP GREATER THAN GIVEN AT GENERATION 

CA104 W SQB MUST BE ZERO FOR ONE USER PROGRAM, 

VALUE IGNORED 

CA105 W SOURCE STATEMENT FROM SOURCE MEMBER IS 

IGNORED 

CA106 T SQB VALUE NOT ALLOWED, GENERATION CONFLICT 

CA108 T FSB VALUE IS NOT ALLOWED, GENERATION 

CONFLICT 

CA109 T PASSWORD SHOULD HAVE BEEN GIVEN 

CA1 10 T PASSWORD NOT SUPPORTED AT GENERATION 

CA1 1 1 T GENERAL POLL NOT SUPPORTED BY CCP 

CA115 W DUPLICATE 'ATTRID' VALUE GIVEN, STATEMENT 

IGNORED 

CA116 T UPPER CASE REQUIRES TRANSLATE 

CA117 T BSCA NOT SUPPORTED AT GENERATION, 

BSCA KEYWORD GIVEN 

CA118 W VARL/SPAN INVALID WITH ITB, ASSUME VARL/ 

SPAN-NO 

CA119 T DUPLICATE TERMINAL ADDRESS ON SAME LINE 

INVALID 

CA120 T RECL ONLY VALID IF DATAFORM— RECORD IS 

SPECIFIED 

CA121 T RECL LARGER THAN BLKL OR INVALID BLOCKING 

FACTOR 

CA122 T RECL NOT AN EVEN MULTIPLE OF BLKL 

CA123 I *** SOURCE MEMBER END *** 

CA125 T INDEXSEND/IDEXRCV IS VALID ONLY ON SWITCHED 

LINES 



CA126 T POLLLIST AND POLLLOOP ARE VALID ONLY ON 

CS LINES 



$CC2E5 
$CC2E5 

$CC2E5 



$CC2E6 



$CC2E6 



SCC2SY 
$CC2SY 

$CC2SY 



$CC2E5 


$CCPAS 


$CC2E5 


SCC2SY 


$CC2E5 


$CC2SY 


$CC2E5 


$CC2SY 


$CC2E5 


SCC2SY 


$CC2E5 


$CC2BT 


$CC2E6 


$CC2TA 


SCC2E6 


$CC2TA 



$CC2E6 $CC2TA 



$CC2E6 $CC2TA 



$CC2MT 



$CC2TA 



$CC2E6 $CC2TA 
$CC2E6 $CC2TA 
$CC2E6 $CCPAS 



$CC2E6 $CC2BL 
$CC2E6 $CC2BT 



$CC2E6 $CC2BL 
$CC2E6 $CC2ML 
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Assignment Build Messages (continued) 



Message I D Message Text 



Contained In Issued By 



CA127 
CA129 
CA130 

CA133 
CA135 

CA136 
CA138 



CA142 



CA160 



T TRANSPARENCY INVALID WITH XMCODE-ASCII 

TMAXRECL IS LESS THAN MINIMUM REQUIRED 

T SOURCE MEMBER NOT FOUND OR NO SOURCE 
LIBRARY ON PACK 



$CC2E6 $CC2BT 

$CC2E7 $CC2ML 

$CC2E7 $CCPAS 



WMAXRECL SIZE WILL NOT SUPPORT ON-LINE TEST $CC2E7 $CC2ML 

T LINE NUMBER GIVEN ON PREVIOUS STATEMENT 



T LINENUM OR LINE TYPE NOT SUPPORTED AT 
GENERATION 



T LINE TYPE-CS REQUIRES A POLL LIST 



CA140 T INVALID HEXADECIMAL CHARACTER ENTERED 



CA141 T TOO MANY OR TOO FEW CHARACTERS IN VALUE 



T TRANSMISSION CODE NOT SUPPORTED AT 
GENERATION 



T TYPE REQUIRES INDEXSEND OR ADDRCHAR/ 
POLLCHAR 



$CC2E7 
$CC2E7 


$CC2BL 
$CC2ML 


$CC2E7 
$CC2E7 


$CC2BL 
$CC2ML 


$CC2E7 
$CC2E7 


$CC2BL 
$CC2ML 


$CC2E7 
$CC2E7 
$CC2E7 


$CC2BL 
$CC2BT 
$CC2MT 


$CC2E7 
$CC2E7 


$CC2BL 
$CC2BT 


$CC2E7 
$CC2E7 
$CC2E7 


$CC2BL 
$CC2ML 
$CC2MT 



$CC2E7 $CC2MT 



CA161 T DEFINED TERMINAL NOT IN POLL LIST 

CA162 W TYPE NOT COMMAND CAPABLE, ASSUME COMMAND- 

NO 

CA1 63 T POLL LIST TOO LONG 

CA164 TVERIFYID REQUIRES INDEXRCV 

CA165 W VERIFYID IGNORED, INVALID WITH LINE TYPE 

SPECIFIED 

CA166 W SPAN VALID ONLY FOR 3735 AND CPU, ASSUME 

SPAN-NO 



$CC2E7 


$CC2BT 


$CC2E7 


$CC2MT 


$CC2E7 


$CC2BT 


$CC2E8 


$CC2MT 


$CC2E8 


$CC2BT 



$CC2E8 SCC2BT 



$CC2E8 $CC2BT 
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Assignment Build Messages (continued) 



Message ID Message Text 



Contained In Issued By 



CA167 TSPAN/VARL REQUIRES RECL TO BE OMITTED OR 

EQUAL BLKL 

CA168 W OFF ACTION APPLIES TO COMMAND TERMINALS 

ONLY 



CA172 T TERMINAL ID GIVEN ON PREVIOUS STATEMENT 



CA173 T TERMINAL TYPE NOT SUPPORTED AT GENERATION 



CA174 T COMBINATION OF TERMINAL TYPES ON THIS LINE 

INVALID 



CA175 T ATTRIBUTES SET INVALID 



CA176 T LINE TYPE CONFLICTS WITH ATTRIBUTES 

SWITCHED VALUE 



$CC2E8 $CC2TA 



$CC2E8 
$CC2E8 


$CC2BT 
$CC2MT 


$CC2E8 
$CC2E8 


$CC2BT 
$CC2MT 


$CC2E8 
$CC2E8 


$CC2BT 
$CC2MT 


$CC2E8 
$CC2E8 


$CC2BT 
$CC2MT 


$CC2E8 
$CC2E8 


$CC2BT 
$CC2MT 


$CC2E8 
$CC2E8 


$CC2BT 
$CC2MT 



CA177 W MAXRECL TOO SMALL, MINIMUM REQUIRED 

VALUE USED 

CA178 T PREVIOUS POLL LIST CONTAINS AN INVALID 

TERMINAL ID 



CA179 T SYSTEM STATEMENT SPECIFIED NO SYMBOLIC 

FILES 

CA185 T 1050 REQUIRES PINCOMP AND/OR POUTCOMP 

CA186 T TERMINAL TYPE CONFLICTS WITH LINE TYPE OR 

XMCODE 

CA187 T PINCOMP/POUTCOMP VALID ONLY FOR 1050 

CA188 W TERMINAL ATTRIBUTES CONTAIN BSCA KEYWORDS 

CA195 T DUPLICATE TERMINAL NAME ENTERED 

CA196 TTERMID NOT DEFINED ON BSCATERM OR MLTATERM 

STATEMENT 



$CC2E8 $CC2MT 



$CC2E9 


$CC2BT 


$CC2E9 


$CC2MT 


$CC2E9 


$CC2DF 


$CC2E9 


$CC2MT 


$CC2E9 


$CC2MT 


$CC2E9 


$CC2MT 


$CC2E9 


$CC2MT 


$CC2E9 


$CC2TN 



$CC2E9 $CC2TN 
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Assignment Build Messages (continued) 



Message ID Message Text 



Contained In Issued By 



$CC2E9 



$CC2TN 



CA197 T PHONE NUMBER VALID ONLY IF TERMINAL ID IS 

SPECIFIED 

CA198 T INCOMP/OUTCOMP/MSTRNAME INVALID WITH 

TERMINAL TYPE 

CA200 T MASTER NAME REQUIRES INCOMP OR OUTCOMP 

CA202 T PHONE NUMBER IS REQUIRED FOR AUTO OR 

MANUAL CALL 

CA203 T MASTER NAME NOT PREVIOUSLY DEFINED 

CA209 W MSTRINDX INVALID WITH 5445, ASSUME NO 

MSTRINDX 

CA210 T DEVICE NOT SUPPORTED AT GENERATION 

CA212 T KEYL AND KEYPOS REQUIRED FOR INDEXED FILES 

CA213 T KEYL, KEYPOS, AND MASTER INDEX REQUIRES ORG-I 

CA214 T DISKFILE NAME NOT PREVIOUSLY DEFINED 

CA216 T SYMBOLIC NAMES CANNOT REFERENCE BOTH 5444 

AND 5445 FILES 

CA217 T DISKFILE CONTAINS DUPLICATE ENTRIES 

CA218 T INVALID FILE NAME -$CCPFILE 

CA219 T DUPLICATE FILE NAME ENTERED 

CA220 W MSTRINDX KEYWORD CONFLICT, ASSUME NO 

MASTER INDEX 

CA221 T INCONSISTENT DISKFILE ATTRIBUTES 

CA230 W SORT/PGMDATA CONFLICT, ASSUME PGMDATA-YES 

CA231 W GENERATED CCP DOES NOT SUPPORT UPDATE FILE 

SHARING 

CA232 T TRANSLATION OF LINE CODE REQUIRED BY 

GENERATION 

CA233 T DFF SUPPORT WITH ASCII CODE REQUIRES 

TRANSLAT-YES 

CA234 W SQB OMITTED, CCP GENERATED TO SHARE FILES 

CA235 T PROGRAM NAME PREVIOUSLY GIVEN 



$CC2E9 


$CC2TN 


$CC2E9 


$CC2TN 


$CC2E9 


$CC2TN 


$CC2EA 


$CC2TN 


$CC2EA 


$CC2DF 


$CC2EA 


$CC2DF 


$CC2EA 


$CC2DF 


$CC2EA 


$CC2DF 


$CC2EA 


$CC2DF 


$CC2EA 


$CC2DF 


$CC2EA 


$CC2DF 


$CC2EA 


$CC2DF 


$CC2EA 


$CC2DF 


$CC2EA 


$CC2DF 


$CC2EA 


$CC2DF 


$CC2EB 


$CC2PG 


$CC2EB 


$CC2PG 



$CC2EB 



$CC2MT 



$CC2EB $CC2BT 

$CC2EB $CC2SY 

$CC2EB $CC2PG 
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Assignment Build Messages (continued) 



Message ID Message Text 



Contained In Issued By 



CA236 W MRTMAX/PGMDATA CONFLICT, ASSUME 

PGMDATA-YES 

CA237 W REUSABLE/NEVEREND CONFLICT, ASSUME 

NEVEREND-NO 

CA238 W REUSABLE/LANGUAGE CONFLICT, ASSUME 

REUSABLE-NO 

CA239 T PRINTER, MFCU, 3741, OR RP1442 NOT SUPPORTED 

AT GENERATION 



CA240 T TERMINAL NAME NOT DEFINED ON TERMNAME 

STATEMENT 

CA24I W POLLLOOP VALUE TOO LARGE, ASSUME VALUE OF 

3 

CA242 T FILE ACCESS INCONSISTENT WITH DISKFILE 

STATEMENT 

CA243 T FILE ACCESS DOES NOT MEET CCP DISK/SORT 

REQUIREMENTS 

CA244 W UNREFERENCED FILE STATEMENTS IGNORED 

CA245 W SHR INCONSISTENT WITH ACCESS, ASSUME 

NOSHR 

CA246 T FILE NAME NOT PREVIOUSLY DEFINED 

CA247 T LANGUAGE SPECIFIED NOT SUPPORTED AT 

GENERATION 

CA248 W SHAREDIO NOT VALID FOR LANGUAGE, ASSUME 

SHAREDIO-NO 

CA249 T FILE ACCESS INCONSISTENT WITH PREVIOUS 

ACCESS 

CA250 W POSSIBLE FILE ACCESS CONFLICT 

CA251 T 3270 FORMATTING KEYWORD CONFLICT 



CA252 UPDATE ACCESS REQUIRES AT LEAST ONE SQB 

CA253 W MASTER INDEX SIZE TOO SMALL, ASSUME NO 

MASTER INDEX 



$CC2EB $CC2PG 

$CC2EB $CC2PG 

$CC2EB $CC2PG 



$CC2EB $CC2SY 

$CC2EB $CC2PG 



$CC2EB $CC2PG 

$CC2EB $CC2BT 

SCC2EB $CC2PG 

$CC1 EB $CC2PG 

SCC2EC $CC2HK 

$CC2EC $CC2PG 

SCC2EC $CC2PG 

SCC2EC SCC2PG 

$CC2EC $CC2PG 



$CC2EC 


SCC2PG 


$CC2EC 


SCC2PG 


SCC2EC 


SCC2SY 


$CC2EC 


SCC2PG 



$CC2EC SCC2PG 



$CC2EC $CC2DF 
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Assignment Build Messages (continued) 



Message ID Message Text 



Contained In Issued By 



CA254 T INVALID PROGRAM NAME 

CA255 T MRTMAX OR REUSABLE PROHIBITS USE OF 

SYMBOLIC FILES 



$CC2EC 



$CC2EC 



$CC2PG 



$CC2PG 



Assignment List Messages 



Message ID Message Text 



Contained In Issued By 



CL001 T $CCPFILE NOT INITIALIZED 

CL002 W DUPLICATE KEYWORD 

CL003 W INVALID KEYWORD 

CL004 W INVALID DELIMITER 

CL005 W INVALID KEYWORD PARAMETER 

CL006 W INVALID IDENTIFIER IN COL'S 1-3 

CL007 W INVALID STATEMENT IDENTIFIER 

CL008 W SET ID NOT FOUND 

CL009 W SET HAS NO REQUEST COUNT 

CL010 TCCP BEING RUN IN OTHER LEVEL 

CL011 I THIS SCCPFILE CONTAINS NO SETS 



SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 


SCCPAL 



User Security Routine Messages 



Message ID Message Text 



Contained In Issued By 



AU010 PERMANENT DISK ERROR 

AU011 SCCPAU TERMINATED 

AU012 SCCPAU PROGRAM FINISHED 

AU013 EXTENT ERROR ON SCCPFILE 

AU014 INVALID DATA CARD FROM SYSIN 



SCCPAU SCCPAU 

SCCPAU SCCPAU 

SCCPAU SCCPAU 

SCCPAU SCCPAU 

SCCPAU SCCPAU 
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User Security Routine Messages (continued) 



Message ID Message Text 



Contained In Issued By 



AU015 ERROR WHILE READING FROM SYSIN 

AU016 WARNING - SECURITY DATA EXCEEDS ALLOWABLE 

LENGTH 

AU017 WARNING - DATA BETWEEN COUNT & DATA PORTION 

OF INPUT RECORD 

AU018 WARNING - INPUT DATA RECORD LESS THAN 

SPECIFIED BY COUNT FIELD 

AU019 WARNING - INPUT DATA RECORD EXCEEDS LENGTH 

IN COUNT FIELD 

AU020 WARNING - NON NUMERIC DATA FOUND IN 

DATA RECORD 

AU021 WARNING - COUNT FIELD VALUE IS ODD NUMBER, 

MUST BE EVEN 

AU022 WARNING - TOTAL SECURITY DATA LESS THAN 

CCP GENERATION SPECIFICATION 

AU023 SECURITY DATA MODULE CONTENTS 

AU024 SCCPAU PROGRAM CANCELLED 

AU025 WARNING - SECURITY DATA MODULE SIZE 

UNEQUAL TO CCP GENERATION SPECIFICATION 

AU026 WARNING - DATA FIELD IS TOO LONG FOR THIS 

RECORD TYPE 

AU027 WARNING - DATA VALUE TOO LARGE FOR THIS 

RECORD TYPE 



SCCPAU $CCPAU 

$CCPAU SCCPAU 

SCCPAU $CCPAU 

$CCPAU $CCPAU 

SCCPAU $CCPAU 

$CCPAU $CCPAU 

SCCPAU $CCPAU 

$CCPAU SCCPAU 

$CCPAU SCCPAU 

SCCPAU $CCPAU 

SCCPAU SCCPAU 

$CCPAU $CCPAU 

$CCPAU $CCPAU 



Display Format Generator Messages 



Message ID Message Text 



Contained In Issued By 



CG001 T INVALID CONTROL STATEMENT 

CG002 T INVALID DISPLAY NAME 

CG003 W INVALID CURSOR/FIELD NAME 



$CC2CF $CC2CF 

$CC2CF $CC2CF 

$CC2CF SCC2CF 
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Display Format Generator Messages (continued) 



Message I D Message Text 



Contained In Issued By 



CG004 T INVALID DISPLAY SIZE 

CG005 W INVALID CLEAR DISPLAY OPTION 

CG006 W INVALID UNIT SPECIFIED 

CG007 W INVALID PRINTER CONTROL ENTRY 

CG008 T INVALID CONTINUATION 

CG009 T INVALID FIELD NAME 

CG010 T DUPLICATE FIELDNAME 

CG011 T INVALID FIELD LOCATION 

CG012 T INVALID FIELD LENGTH 

CG013 W INVALID AUTOSKIP OPTION 

CG014 T INVALID DATA SOURCE OPTION 

CG015 T INVALID TYPE OPTION 

CG016 T INSUFFICIENT SPACE BETWEEN FIELDS 

CG017 T INSUFFICIENT SPACE FOR LEADING NULLS 

CG018 TSPD FIELD NOT ALL ON ONE LINE 

CG019 T FIELD OVERFLOWS DISPLAY 

CG020 T LAST POSITION ON DISPLAY NOT AVAILABLE 

CG021 W CURSOR FIELD NOT DEFINED 

CG022 T TOO M AN Y F I E LDS 

CG023 W CURSOR FIELD IS PROTECTED 

CG024 T ENTRIES UNDER MORE THAN ONE FIELD CLASS 

CG025 T INVALID FIELD DEFINITION STATEMENT 

CG026 T TOO MANY FIELDS ON A LINE WITH AN SPD FIELD 

CG027 I DISPLAY NOT GENERATED DUE TO ERROR 



$CC2CF 


$CC2CF 


$CC2CF 


SCC2CF 


SCC2CF 


SCC2CF 


SCC2CF 


SCC2CF 


$CC2CF 


$CC2CF 


$CC2CF 


$CC2CF 


SCC2CF 


SCC2CF 


SCC2CF 


SCC2CF 


$CC2CF 


SCC2CF 


$CC2CF 


SCC2CF 


$CC2CF 


$CC2CF 


SCC2CF 


$CC2CF 


$CC2CF 


$CC2CF 


$CC2CF 


SCC2CF 


$CC2CF 


SCC2CF 


SCC2CF 


$CC2CF 


SCC2CF 


$CC2CF 


SCC2CF 


$CC2CF 


$CC2CF 


$CC2CF 


$CC2CF 


$CC2CF 


SCC2CF 


SCC2CF 


$CC2CF 


$CC2CF 


SCC2CF 


SCC2CF 


SCC2CF 


$CC2CF 
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Display Format Generator Messages (continued) 



Messages ID Message Text 



Contained In Issued By 



CG028 T FIELD IN DISPLAY WHICH IS INVALID WITH SPD 

ATTENTION FIELD 

CG029 W TWO DEVICES, OR DEVICE AND WCC, SPECIFIED 

CG030 T NO FIELDS DEFINED FOR DISPLAY 

CG031 I WARNING ERROR DURING DISPLAY GENERATION 

CG032 T ERROR OCCURRED DURING FILE FUILD 

CG033 T INSUFFICIENT CONTINUATIONS FOR DATA 

DATA LENGTH 

CG034 W DUPPING WITH NL/EM SPECIFIED ON CONTROL 

CARD 

CG035 T UNSUCCESSFUL SSOURCE ACCESS 

CG036 T DUPPING FIELDS ON FIRST LINE 



$CC2CF 



$CC2CF 


$CC2CF 


$CC2CF 


$CC2CF 


$CC2CF 


$CC2CF 


$CC2CP 


$CC2CP 


$CC2CP 


$CC2CP 



$CC2CF 



$CC2CR $CC2CR 

$CC2CF $CC2CR 

$CC2CF $CC2CR 



Display Format Test Routine Messages 



Message ID Message Text 



Contained In Issued By 



DT010 
DT011 
DT012 
DT013 

DT014 

DT015 
DT016 



W INVALID OPTION ENTERED 

W BLANK NOT FOUND BETWEEN PARAMETERS 

I REVERSE INTERRUPT WAS RECEIVED 

W STATION DID NOT RESPOND TO POLLING AND 
ADDRESSING 

I REMOTE STATION DOES NOT RESPOND TO 
ATTEMPTED DATA TRANSFER 

I INCORRECT DATA RECEIVED 

W SENSE/STATUS BYTES INDICATE _ 



SCCPDT 


$CCPDT 


SCCPDT 


SCCPDT 


SCCPDT 


SCCPDT 



$CCPDT 



UNIT SPECIFY 
TRANSMISSION CHECK 
COMMAND REJECT 
INTERVENTION REQUIRED 
EQUIPMENT CHECK 
DATA CHECK 
CONTROL CHECK 
OPERATION CHECK 



SCCPDT 



$CCPDT 


SCCPDT 


$CCPDT 


$CCPDT 


$CCPDT 


$CCPDT 



DT017 



W FORMAT NAME MUST BEGIN WITH $Z 



$CCPDT 



SCCPDT 
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Display Format Test Routine Messages (continued) 



Message ID Message Text 



Contained In Issued By 



DT018 



DT019 
DT020 



I PROGRAM INTERVENTION CAUSED BY. 



CLEAR KEY 
ENTER KEY 
TEST REQ KEY 
SELECTER PEN 
CARD READER 
PF1-PF12KEY 
PA1-PA3KEY 



W FORMAT WAS NOT ON PROGRAM PACK 
W INVALID FORMAT NAME 



SCCPDT 
$CCPDT 



$CCPDT 
$CCPDT 



Printer Format Generator Messages 



Message ID Message Text 



Contained In Issued By 



CP001 
CP002 
CP003 
CP004 
CP005 
CP006 
CP007 
CP008 
CP009 
CP01O 
CP011 
CP012 
CP013 
CP014 
CP015 
CP016 



T INVALID CONTROL STATEMENT 

T INVALID PRINTER NAME 

T INVALID PRINTER SIZE 

T INVALID LINE LENGTH 

T INVALID NUMBER OF LINES PER PAGE 

T INVALID PLATEN LENGTH 

T INVALID CONTINUATION 

T INVALID DISK STORAGE UNIT 

W DUPLICATE FIELD NAME 

T INVALID FIELD LOCATION 

T INVALID FIELD LENGTH 

W INVALID FIELD NAME 

T INVALID DATA SOURCE OPTION 

T INVALID MULTIPLE PAGES ENTRY 

T INSUFFICIENT SPACE BETWEEN FIELDS 

T INVALID VERTICAL FORMS FEED ENTRY 



SCC2CG 


$CC2CG 


SCC2CG 


SCC2CG 


SCC2CG 


SCC2CG 


$CC2CG 


SCC2CG 


$CC2CG 


$CC2CG 


SCC2CG 


SCC2CG 


$CC2CG 


SCC2CG 


SCC2CG 


SCC2CG 


SCC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


SCC2CG 


SCC2CG 


SCC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


SCC2CG 


SCC2CG 
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Printer Format Generator Messages (continued) 



Message ID 



Message Text 



Contained In Issued By 



CP017 
CP018 
CP019 
CP020 
CP021 
CP022 
CP023 
CP024 
CP025 
CP026 
CP027 
CP028 
CP029 
CP030 
CP031 
CP032 
CP033 
CP034 
CP035 
CP036 

CP037 



T FIELD OVERFLOWS DISPLAY 

T DATA IN RESERVED AREA AFTER CONTINUATION 

T INVALID REPEAT LAST CHARACTER ENTRY 

T TOO MANY FIELDS 

T INVALID FIELD DEFINITION STATEMENT 

I DISPLAY NOT GENERATED DUE TO ERROR 

T NO FIELDS DEFINED FOR DISPLAY 

T INSUFFICIENT CONTINUATIONS FOR DATA LENGTH 

T FIELD OVERFLOWS LINE 

W DATA IN RESERVED AREA 

T REPEAT LAST CHARACTER WITH EXECUTION DATA 

T INVALID ENTRY FOR FORMS FEED STATEMENT 

T @@@FF WITHOUT MULTIPLE PAGES INDICATED 

T LINE 1 POS 1 NOT VALID AFTER FORMS FEED 

T UNSUCCESSFUL $SOURCE ACCESS 

T INVALID DUPLICATION STATEMENT 

T DATA IN RESERVED AREA ON @@@DP STATEMENT 

T INVALID KATAKANA OPTION ENTRY 

T INVALID ENTRY ON PRINT/NO-PRINT OPTION 

I WARNING ERROR DURING PRINTER FORMAT 
GENERATION 

T ERROR OCCURRED DURING FILE BUILD 



$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


SCC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


SCC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


$CC2CG 


SCC2CS 


SCC2CG 


SCC2CS 


SCC2CG 


$CC2CS 


SCC2CG 


$CC2CG 


$CC2CG 


SCC2CG 


$CC2CQ 


SCC2CQ 


SCC2CQ 


$CC2CQ 
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Startup Messages 



Message ID Message Text 



Contained In Issued By 



SU001 SYSTEM/3 CCP 

SU002 $CCPFI LE ON UNIT ** 

SU003 DEFAULTSET=* 

SU004 SPECIFY UNIT FOR $CCPFILE 

SU009 *ERROR* INVALID RESPONSE 

SU010 *ERROR* OTHER PROGRAM LEVEL ACTIVE 

SU011 ANY SPECIFICATIONS? 

SU012 'ERROR* INCOMPATIBLE USE OF DUAL PROGRAMMING 
FEATURE 

SU013 *ERROR* $CCPFILE INFORMATION INVALID 

SU014 INITIALIZE $CCPFILE WITH PROGRAM $CC1BF 
AND ENTER ASSIGNMENT SETS 

SU015 *ERROR* NO ASSIGNMENT SETS IN $CCPFILE 

SU020 DEFAULT SET NOT ASSIGNED 



$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 
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Startup Messages (continued) 



Message ID Message Text 



Contained In Issued By 



SU025 ANY TEMPORARY ASSIGNMENT CHANGES? 

SU03I5 UNLESS CHANGED, SET'*' USED 

SU040 SELECT SET ID FROM LIST: 

SU045 ANY CHANGES TO SET'*'? 

SU055 ASSIGNED MAXIMUM CONCURRENT USER PROGRAMS 



SU060 
SU06J5 
SU070 
SU071 
SU075J 
SU090 
SU09JJ 
SU099 
SU100 

SU101 
SU10S 

SU110 
SU111 
SU115 
SU119 
SU125 

SU126 
SU130 



TO CHANGE, ENTER NEW VALUE 

NON-ZERO DIGIT REQUIRED 

ASSIGNMENT SPECIFICATION EXCEEDED 

INITIALIZING CCP 

ASSIGNED PASSWORD = ****** 

MINIMUM DYNAMIC T/P BUFFER AREA = ***** BYTES 

MINIMUM USER PROGRAM AREA = **.**K 

*ERROR* INVALID SYNTAX 

TO CHANGE MINIMUM T/P BUFFER AREA, ENTER 
VALUE (BYTES) 



MINIMUM T/P BUFFER 



BYTES 



TO CHANGE MINIMUM USER PROGRAM AREA, 
ENTER VALUE (NN.NNK) 

*ERROR* INVALID VALUE 

PREVIOUSLY SPECIFIED 

REQUESTED SPACE UNAVAILABLE 

*ERROR* MODULE ****** NOT FOUND 

*ERROR* INVALID KEYWORD 

*ERROR* INVALID KEYWORD FOR CCP 
CONFIGURATION 

*ERROR* INVALID DISK UNIT 



$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 


$CCP 
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Startup Messages (continued) 



Message ID Message Text 



Contained In Issued By 



SU425 
SU430 
SU435 
SU440 
SU449 
SU450 

SU451 
SU452 
SU453 
SU459 
SU461 

SU463 
SU541 

SU543 

SU547 
SU555 
SU557 
SU560 
SU565 
SU570 

SU575 
SU580 
SU585 
SU590 



"ERROR* ALL PROGRAMS NOW SUPPRESSED 

PROGRAM '******' NOW SUPPRESSED 

SYMFILE '********' NOW SUPPRESSED 

*ERROR INVALID SYNTAX $CC3FS 

CCP TERMINATED 

PROGRAM '******' NOT COMPILED/LINK-EDITED 
ON MODEL 12, SUPPRESSED 

PROGRAM '******• NOT FOUND, SUPPRESSED 

PROGRAM '******' SUPPRESSED BECAUSE TEMPORARY 

'ERROR* ALL PROGRAMS NOW SUPPRESSED 

*ERROR* VALID $$MCRI NOT FOUND 

*ERROR* CORE EXHAUSTED WHILE BUILDING T/P 
CONTROL BLOCKS 

*ERROR* INVALID BSCA OCL STATEMENT 

CORE EXHAUSTED WHILE BUILDING TERMINAL 
UNIT 'ERROR* BLOCKS 

*ERROR* CORE EXHAUSTED WHILE BUILDING 
TERMNAME'S 

TERMNAME •******» NOW UNASSIGNED 

*** MORE TRACKS NEEDED IN $CCPFILE 

*ERROR* EXHAUSTED CORE IN ATTEMPTING TO: 

LOAD $CC4 

*ERROR* MODULE ****** NOT FOUND 

*ERROR* INVALID CCP BRANCH INSTRUCTION IN 
CONSOLE INTERRUPT HANDLER 

*ERROR* INSUFFICIENT DISK CORE DUMP SPACE 

*ERROR* INSUFFICIENT DISK TRACE SPACE 

ALLOCATE PROGRAM REQUEST COUNT TABLE 

LOAD CCP TRACE MODULE 



$CC3FS 


SCC3FS 


$CC3FS 


$CC3FS 


$CC3FS 


$CC3FS 


$CC3FS 


$CC3FS 


$CC3FS 


$CC3FS 


$CC3IP 


$CC3IP 


$CC3IP 


$CC3IP 


$CC3IP 


$CC3IP 


$CC3IP 


$CC3IP 


$CC3TB 


SCC3TB 



$CC3TB $CC3TB 

$CC3TB $CC3TB 



SCC3TC 



$CC3TC 



SCC3TC 


SCC3TC 


$CC3TC 


SCC3TC 


SCC3LD 


$CC3LD 


$CC3LD 


$CC3LD 


SCC3LD 


$CC3LD 


$CC3LD 


$CC3LD 


SCC3LD 


$CC3LD 


$CC3LD 


SCC3LD 


$CC3LD 


$CC3LD 


SCC3LD 


$CC3LD 


SCC3LD 


$CC3LD 
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Startup Messages (continued) 



Message ID Message Text 



SU595 
SU600 
SU605 
SU610 
SU651 

SU653 
SU661 

SU671 

SU681 

SU682 
SU691 

SU701 

SU710 

SU715 
SU725 

SU727 

SU730 
SU735 
SU751 
SU7S3 
SU759 



ALLOCATE CCP TRACE TABLE 
LOAD SERVICE AID MODULE 
LOAD BSCA TRACE MODULE 
LOAD MLTA TRACE MODULE 

CORE EXHAUSTED WHILE LOADING TERMINAL 
ATTRIBUTE TABLE 



'ERROR* MODULE 



#*##** 



NOT FOUND 



*ERROR* CORE EXHAUSTED WHILE BUILDING 
CONTENTS DIRECTORY ENTRIES 

•ERROR* CORE EXHAUSTED WHILE BUILDING 
PCT INDEX 

•ERROR* CORE EXHAUSTED WHILE BUILDING USER 
TASK CONTROL BLOCKS 

*ERROR* $$SLP1 NOT FOUND ON THE SYSTEM PACK 

•ERROR* CORE EXHAUSTED WHILE BUILDING 
SYMBOLIC FILE SPECIFICATION BLOCKS 

•ERROR* CORE EXHAUSTED WHILE BUILDING 
SECTOR ENQUEUE BLOCKS 

•ERROR* MULTIVOLUME FILES NOT SUPPORTED, 
FILENAME: ******** 



'ERROR* MISSING OCL, FILENAME: 



*#*##*## 



•ERROR* CORE EXHAUSTED WHILE BUILDING 
SHORT DTFs 

CORE EXHAUSTED WHILE BUILDING SYMBOLIC 
FILE REFERENCE POINTERS 



•ERROR* INVALID FILENAME OR LABLE 

•ERROR* DUPLICATE FILENAME: ******** 

PREVIOUS ERRORS, NO DISKFILES OPENED 

OPENING DISKFILES 

•ERROR* CORE EXHAUSTED WHILE BUILDING 
MASTER INDEXES 



******** 



Contained In Issued By 



$CC3LD $CC3LD 

$CC3LD $CC3LD 

$CC3LD $CC3LD 

$CC3LD $CC3LD 

$CC3TA $CC3TA 

SCC3TA $CC3TA 

$CC3CE $CC3CE 

SCC3PX $CC3PX 

$CC3UB $CC3UB 

$CC3UB $CC3UB 

SCC3FB $CC3FB 

$CC3QB $CC3QB 

$CC3DL SCC3DL 

$CC3DL $CC3DL 

$CC3DL $CC3DL 



SCC3DL 
SCC3DL 
$CC3DL 
$CC3DF 
$CC3DF 



$CC3DL 
$CC3DL 
SCC3DL 
$CC3DF 
SCC3DF 



SCC3DF $CC3DF 
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Startup Messages (continued) 



Message ID Message Text 



Contained In Issued By 



SU760 
SU901 
SU915 
SU916 
SU917 
SU918 
SU921 
SU925 
SU940 
SU941 
SU942 
SU945 
SU951 
SU952 

SU953 
SU997 
SU999 
NONE 
NONE 
NONE 

NONE 

NONE 

NONE 
NONE 



*ERROR* $CCPLOG FILE IS NOT ON SPECIFIED UNIT 

*ERROR* TRANSIENT $CC4** NOT FOUND 

DYNAMIC T/P BUFFER AREA = ***** BYTES 

USER PROGRAM AREA = **.**« 

UNALLOCATED CORE = **.**K 

SPECIFY ANY EXTRA USER PROGRAM AREA (NN.NNK) 

*ERROR* INVALID SYNTAX 

*ERROR* INVALID RESPONSE 

SPECIFY ANY OFFLINE TERMINAL ID 

TWO NON-BLANK CHARACTERS REQUIRED 

TERMINAL ALREADY OFFLINE 

TERMINAL ID NOT FOUND 

*ERROR* UNABLE TO OPEN MLTA ADAPTER 

*ERROR* UNABLE TO OPEN MLTALINE-*, 
CODE-** 

CCP TERMINATED 

OPENING COMMUNICATION LINES 

ERROR DURING STARTUP, CCP TERMINATED 

ANY REPS FOR THIS RUN? 

READY SYSIN DEVICE 

SYSIN READ ERROR - PRESS END WHEN READY 
TO RETRY 

NOT REP CARD - PRESS END WHEN READY TO 
RETRY 

REP CARD EMPTY - PRESS END WHEN READY TO 
RETRY 

BAD ADDRESS - PRESS END WHEN READY TO RETRY 

NO PATCH VALUES - PRESS END WHEN READY TO 
RETRY 



$CC3DF 


$CC3DF 


$CC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


SCC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


SCC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


SCC3EJ 


$CC3EJ 


SCC3EJ 


SCC3EJ 


$CC3EJ 


$CC3EF 


$CC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


$CC3EJ 


SCC3EJ 


$£C3EJ 


$CC3CX 


$CC3CX 


$CC3CX 


$CC3CX 



$CC3CX $CC3CX 

$CC3CX $CC3CX 

$CC3CX $CC3CX 

$CC3CX $CC3CX 

$CC3CX $CC3CX 
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Startup Messages (continued) 



Message ID Message Text 



Contained In Issued By 



NONE ODD NUMBER HEX DIGITS - PRESS END TO RETRY 

NONE BAD HEX DIGIT IN PATCH - PRESS END TO RETRY 

NONE DELIMITER ERROR - PRESS END TO RETRY 



$CC3CX $CC3CX 

SCC3CX $CC3CX 

$CC3CX $CC3CX 



System Operator Messages 



Message ID Message Text 



Contained In Issued By 



000 

022 

060 

061 

066 

093 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

211 
220 



CCP STARTED 

REJECTED-PGM-REQU EST PENDING/ACTIVE 

REJECTED-NO BUFFER 

CONSOLE NOT AVAILABLE FOR REQUESTS 

I/O ERROR ON PCT FILE-PROGNAME 'XXXXXX' 

REJECTED-PGM-REQUEST PENDING/ACTIVE 

OK 

CCP ALREADY HAS DEVICE 

OTHER LEVEL ALREADY HAS DEVICE 

DEVICE NOT DEFINED TO CCP 

NOT DPF SYSTEM 

DEVICE IN USE BY CCP 

SYNTAX ERROR 

SCHEDULER INTER LOCK- RETRY 

DEVICE NOT AVAILABLE 

ALLOCATE REQUEST REJECTED-DISK ERROR 

NO REPLY PENDING 
AWAITING REPLIES 



$CC4SU 


SCC4SU 


$CC4QQ 


SCC4QQ 


$CC4K7 


SCC4K7 


$CC4EA 


$CC4R1 


$CC4R8 


SCC4R8 


$CC4ED 


$CC4FL 


$CC4EU 


$CC4AP 


$CC4EU 


$CC4AL 


SCC4EU 


$CC4AL 


$CC4EU 


$CC4AL 


$CC4EU 


$CC4AL 


SCC4EU 


SCC4AL 


$CC4EU 


$CC4AL 


$CC4EU 


$CC4AL 


$CC4EU 


$CC4AN 


$CC4EU 


SCC4AN 


SCC4EU 


$CC4AP 


SCC4EF 


$CC4C2 


$CC4C2 


SCC4C2 
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System Operator Messages (continued) 



Message ID Message Text 



Contained In Issued By 



221 
240 
241 
242 
261 
270 



280 
281 

290 

291 

292 

293 

295 

299 

300 

301 

302 

318 

319 

320 

321 

322 



TASK ID=N 

SYMBOLIC TERMINAL NAME 'PHYSICAL ID' 

SYNTAX ERROR 

INVALID SYMBOLIC NAME 

INVALID OPERAND 

TERMINAL-'XX/TERMNAME - 'XXXXXX' TASK=# 
ONLINE/OFFLINE MODE- CMND/CMDI/DATA/ 
INIT/STBY REQ-Y/N 

TSK PGM NAM #CORE #T #F #U STATUS 

TSK 'NAME' #CORE #T #F #U ACTIVE/SUSPEND/ 
W-XXXX "ALLOCATION* 

TASK(S) NOT ACTIVE 

SYNTAX ERROR 

INVALID TASK ID 

TASK IN ALLOCATION 

TASK RESOURCES 

LAST TASK -'TASK ID' 

QUEUE DISPLAY 

NO QUEUED PGM REQUEST 

'SYMBOLIC TERMINAL NAME' 'PROGRAM NAME' 

TERMINAL ALREADY ONLINE 

TERMINAL STILL BEING VARIED OFFLINE 

VARIED ONLINE AS 'SYMBOLIC TERMINAL NAME' 

TERMINAL BEING VARIED OFFLINE 

TERMINAL VARIED OFFLINE-NO PRIMARY NAME 



SCC4C2 $CC4C2 

$CC4C3 $CC4C3 

SCC4EF $CC4C3 

$CC4EF SCC4C3 

$CC4EF SCC4C4 



$CC4C4 
$CC4C8 

$CC4C5 



$CC4C5 



$CC4C4 
$CC4C8 

$CC4C5 



SCC4C9 



$CC4EG 


$CC4C5 


SCC4EG 


SCC4C7 


$CC4EG 


$CC4C7 


SCC4EG 


$CC4C7 


SCC4EG 


SCC4C7 


$CC4C7 


$CC4C7 


$CC4C7 


$CC4C7 


$CC4C6 


SCC4C6 


$CC4EF 


$CC4C6 


SCC4C6 


$CC4C6 


SCC4E2 


$CC4VA 


$CC4E2 


$CC4VA 


$CC4VB 


$CC4VB 


$CC4E3 


$CC4VA 


$CC4E3 


$CC4VB 



SCC4E3 



$CC4VB 
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System Operator Messages (continued) 



Message ID Message Text 



Contained In Issued By 



323 TERMINAL VARIED OFFLINE-PRIMARY NAME 
REASSIGNED 

324 SYNTAX ERROR 

325 SYMBOLIC NAME NOT ASSIGNED TO TERMINAL 

326 UNKNOWN SYMBOLIC NAME 

327 INVALID TERMINAL ID 

329 INVALID/MISSING OPERAND 

330 NOT CURRENT SYMBOLIC NAME 

331 CAN'T VARY SUB-TERMINAL 

332 CAN'T VARY CONSOLE 

333 TP LINE NOT OPEN 

334 TERMINAL HAS NO SYMBOLIC NAME 

335 TERMINAL IN ONLINE TEST 

336 TERMINAL BELONGS TO USER PROGRAM 
338 TERMINAL ALREADY OFFLINE 

340 MESSAGE SENT 

341 SYNTAX ERROR 

342 INVALID TERMINAL ID 

343 UNKNOWN SYMBOLIC NAME 

344 NAME UNASSIGNED 

345 NOT A COMMAND TERMINAL 

346 TERMINAL OFFLINE 

347 TERMINAL BELONGS TO USER PROGRAM 

348 MESSAGE TOO LONG 

350 TERMINAL IN ERROR RECOVERY 



$CC4E3 


$CC4VB 


$CC4E2 


$CC4VA 


$CC4E2 


SCC4VA 


$CC4E2 


$CC4VA 


$CC4E2 


$CC4VA 


$CC4E2 


$CC4VA 


$CC4E2 


$CC4VA 


$CC4E2 


SCC4VA 


$CC4E2 


SCC4VA 


$CC4E2 


SCC4VA 


$CC4E2 


$CC4VA 


SCC4E3 


$CC4VB 


$CC4E3 


SCC4VB 


SCC4E3 


$CC4VB 


$CC4EH 


$CC4CG 


SCC4EH 


$CC4CG 


SCC4EH 


$CC4CG 


$CC4EH 


$CC4CG 


$CC4EH 


$CC4CG 


$CC4EH 


SCC4CG 


$CC4EH 


$CC4CG 


$CC4EH 


$CC4CG 


SCC4EH 


$CC4CG 


$CC4EH 


$CC4CG 
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System Operator Messages (continued) 



Message ID 


Message Text 


352 


TERMINAL IN TEST 


353 


LINE DISCONNECTED 


360 


NAME ASSIGNED 


361 


SYNTAX ERROR 



Contained in Issued By 



362 

363 

364 

365 

366 

367 

369 

370 

371 

372 

373 

374 

375 

378 

379 
381 
382 
383 
384 



INVALID/MISSING OPERAND 

NAME NOT KNOWN 

CAN'T ASSIGN SUB-TERMINAL NAME 

CAN'T ASSIGN CONSOLE 

NAME CURRENTLY ACTIVE 

NAME IN USE 

INVALID TERMINAL ID 

NAME UNAVAILABLE 

NAME TOO LONG 

PHYSICAL CHARACTERISTICS DON'T MATCH 

INVALID PHONE INDEX # 

PHONE INDEX # INVALID FOR NONSWITCHED TERMINAL $CC4E5 

NAME ASSIGNED 'XX' NAME IS NOW XXXXXX 

START TEST ON 'XX' (- - LOOP) 

STOP LOOP TEST ON 'XX' 
TEST REQ. ALREADY ACTIVE 
STOP INVALID NOW 
INVALID TEST NUMBER 
INVALID COUNT VALUE 



SCC4EH 


SCC4CG 


$CC4EH 


SCC4CG 


SCC4E4 


$CC4AT 


$CC4E4 
SCC4E4 


$CC4AS 
SCC4AT 


SCC4E4 
SCC4E4 


$CC4AS 
$CC4AT 


SCC4E4 


$CC4AS 


$CC4E4 


$CC4AS 


$CC4E4 


$CC4AS 


$CC4E4 


$CC4AS 


$CC4E4 


SCC4AS 


$CC4E4 


$CC4AS 


$CC4E4 


SCC4AS 


$CC4E4 


$CC4AS 


$CC4E5 


SCC4AU 


SCC4E5 


SCC4AT 


SCC4E5 


$CC4AT 


$CC4AT 


$CC4AT 


$CC4MZ 
SCC4TZ 


SCC4MZ 
SCC4TZ 


$CC4MZ 


$CC4MZ 


SCC4EL 


$CC4MZ 


SCC4EL 


SCC4MZ 


SCC4EL 


$CC4MZ 


$CC4EL 


$CC4TZ 
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System Operator Messages (continued) 



Message ID Message Text 



Contained In Issued By 



H 



385 
386 
387 
388 
389 
390 
391 

392 

393 

394 

395 

396 

397 

400 

401 

402 

403 

404 

410 

411 

413 



TERMINAL NOT OUTPUT CAPABLE 
TERMINAL OFFLINE 
TERMINAL IN DATA MODE 
SYMBOLIC NAME NOT FOUND 
INVALID TERMINAL ID 
'XX' ONLINE TEST ENDED 
SYNTAX ERROR 

'XX' ONLINE TEST NOT STARTED 
CANNOT START OLT, LINE CLOSED 
TEST MSG. EXCEEDS 60 CHARACTERS 
SWITCHED LINE NOT CONNECTED 
SELECTED TERMINAL NOT A CPU 
NAME UNASSIGNED 
ERP ACCEPTED 
SYNTAX ERROR 
INVALID TERMINAL ID 
TERMINAL NOT IN ERROR RECOVERY 
INVLAID OPERAND 
(INPUT/OUTPUT) ERROR ON 'XX' 
(INPUT/OUTPUT) ERROR-NN ON 'XX' 



OUTPUT TO 'XX' IN CCP ERROR RECOVERY 
IGNORED 



$CC4EL 

$CC4EL 

$CC4EL 

$CC4EL 

$CC4EL 

$CC4T2 

$CC4EL 
$CC4EL 
$CC4EL 

$CC4MT 

$CC4EL 

$CC4EL 

$CC4EE 

$CC4 

$CC4EE 

$CC4RP 

$CC4E1 

SCC4E1 

SCC4E1 

$CC4E1 

$CC4MA 

$CC4BL 
$CC4BL 
$CC4BL 

$CC4MP 



$CC4TS 

$CC4TS 

$CC4MZ 

$CC4TS 

$CC4TS 

$CC4T2 

$CC4TS 
SCC4TZ 
SCC4MZ 

$CC4MT 

SCC4MZ 

SCC4TZ 

$CC4TS 

$CC4TZ 

$CC4TS 

$CC4RP 

$CC4RP 

$CC4RP 

SCC4RP 

$CC4RP 

$CC4MA 

$CC4BE 
$CC4BA 
$CC4B5 

$CC4MP 
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System Operator Messages (continued) 
Message ID Message Text 



Contained In Issued By 



414 'XX'SIGNEDOFFBYCCPASYYYYYY 

415 SWITCHED LINE MN DISCONNECTED-I/O PURGED 

416 'XX' IN CCP ERROR RECOVERY 

417 'XX' IN CCP ERROR RECOVERY-BYPASSED 

418 TP LINE MN CLOSED 

419 'XX' VARIED OFFLINE 

420 TRACE OK 

421 TRACE NOT IN SYSTEM 

422 INVALID OPERAND 

423 TRACE NOT ON 

425 REJECTED-DISK TRACE I/O ERROR 

440 OK 

441 INVALID OPERAND 

442 INVALID TASK-ID + PROGRAM NAME 

443 TASK ALREADY SUSPENDED 

460 OK 

461 SYNTAX ERROR 

462 COMMANDS NOT SUSPENDED 

463 INVALID TASK ID 

464 INIT REJECTED, USERS IN EFFECT 

465 INVALID PROGRAM NAME 

466 SUSPEND USERS NOT IN EFFECT 

467 SUSPEND INIT NOT IN EFFECT 



$CC4MF 


$CC4MF 


SCC4MB 


$CC4MB 


SCC4MD 


$CC4MD 


$CC4MD 


SCC4MD 


$CC4ME 


$CC4ME 


SCC4ME 


SCC4ME 


SCC4EF 


$CC4TE 


SCC4EF 


$CC4TE 


SCC4EF 


SCC4TE 


SCC4EF 


$CC4TE 


$CC4EF 


SCC4TE 


$CC4EP 


$CC4SS 


$CC4EP 


$CC4SS 


$CC4EP 


SCC4SS 


$CC4EP 


SCC4SS 


$CC4EP 


SCC4RE 


$CC4EP 


SCC4RF 


$CC4EP 


$CC4RF 


$CC4EP 


$CC4RE 


SCC4EP 


$CC4RE 


SCC4EP 


SCC4RE 


SCC4EP 


$CC4RE 


SCC4EP 


$CC4RE 


SCC4EP 


SCC4RE 
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System Operator Messages (continued) 



Message I D Message Text 



Contained In Issued By 



468 PROGRAM TERMINATING 

480 CANCEL OK 

481 INVALID CANCEL REQUEST 

482 PGM-NAME TOO LONG 

483 TASK-ID AND/OR PGM-NAME WRONG 

484 INVALID SYNTAX 

485 INVALID USER TASK ID 

486 TASK NOT ACTIVE 

487 CANT CANCEL PGM IN ALLOCATION 

500 SHUTDOWN ACCEPTED 

501 PRIOR SHUTDOWN REQUESTED 

502 CANCEL/SHUTDOWN STARTED 

503 CCP CANCEL/SHUTDOWN COMPLETED 

504 DISK ERROR OCCURRED WHILE READING PCTs 

505 DISK ERROR OCCURRED WHILE WRITING PCTs 

506 DISK ERROR OCCURRED WHILE WRITING FINAL 
DISK TRACE ENTRY 

507 ERROR OCCURRED WHILE CLOSING FILE ******** 

508 SHUTDOWN REJECTED - LOOPING TEST ON '**' 

520 *XX' SIGNED OFF - (HOLD/DROP) NAME IS XXXXXX 

521 'XX' RELEASED AND SIGNED OFF NAME IS XXXXXX 

522 'XX' NAME IS NOW XXXXXX 

524 FOR PGM-XXXXXX (TASK-N): LINE (B/M) N DIAL 
#NNNNN 

525 FOR PGM-XXXXXX (TASK-N): LINE (M/B) N WAITING 
TO RECEIVE CALL 



SCC4EP 


$CC4RE 


$CC4CX 


$CC4CX 


$CC4EC 


SCC4CJ 


SCC4EC 


$CC4CJ 


$CC4EC 


SCC4CJ 


SCC4EC 


$CC4CJ 


$CC4EC 


$CC4CJ 


SCC4EC 


$CC4CJ 


$CC4EC 


$CC4CJ 


$CC4EF 


$CC4SH 


$CC4EF 


$CC4SH 


$CC4EJ 


$CC4EJ 


$CC5SH 


$CC5SH 


SCC5SH 


SCC5SH 


$CC5SH 


SCC5SH 


$CC5SH 


$CC5SH 


SCC5SH 


SCC5SH 


$CC4SH 


$CC4SH 


$CC40G 


$CC40G 


$CC4RY 


$CC4RY 


SCC4NM 


$CC4NM 



$CC4WD 



$CC4WD 



$CC4WD $CC4WD 
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System Operator Messages (continued) 



Message ID Message Text 



Contained In Issued By 



526 
527 
528 
529 
530 
533 
534 
900 
951 
952 
990 

991 

992 
993 



XXXXXX TASK - N CODE - NN (REQR - 'XX' DUMP#- 

'XX' SIGN ON (ATTEMPT/OK) 

DFF ERROR IN DATA AT POSITION **** 

TERMINAL RELEASE: XXXXXX ('XX') 

** CCPCNCL** CMP-XX (DUMP#-N) 

POLL LOOP COUNT EXCEEDED ON BSCA LINE X 

INVALID TEST REQUEST FOR 'XX' 

FROM 'XX': TEST OF MESSAGE 

INPUT TOO LONG 

NO TASK X AWAITING REPLY 

Text based on issuer of log request. 

Text based on issuer of log request. 

Text based on issuer of log request. 
Text based on issuer of log request. 

ABRT 
CNCL 
FORM 
I/O ATTN 



Terminal Operator Messages 



Message ID Message Text 



A01 
A02 
A03 



SIGNED ON - PROCEED 

MESSAGE SENT 

Q STATUS - PROCEED 



N)$CC4TW 


$CC4TW 


$CC4SO 


$CC4SO 


$CC4DD 


$CC4DD 


$CC4NC 


$CC4NC 


$CC4TW 


SCC4TW 


SCC4BL 


$CC4BE 


$CC4BL 


$CC4BE 


SCC4MG 


SCC4MG 


$CC4K7 


$CC4K7 


$CC4K7 


SCC4K7 




$CC4H1 




$CC4H2 




$CC4H1 




$CC4H2 



$CC4H1 





$CC4H1 




$CC4H2 


$CC4KA 


$CC4KA 


$CC4K7 


$CC4K7 


$CC4K8 


$CC4K8 


$EURI 


$CC4KB 


Contained In 


Issued By 


$CC4SO 


$CC4SO 


$CC4EF 


$CC4EF 


$CC4QQ 


$CC4QQ 
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Terminal Operator Messages (continued) 



Message ID Message Text 



Contained In Issued By 



A04 


NOQ STATUS - PROCEED 


A05 


ACCEPTED -PROCEED 


A06 


ACCEPTED - PROCEED 


A07 


ENTER /MSG, /RELEASE, OR /RUN 


A08 


RELEASED -PROCEED 


A09 


RESUME PROGRAM 


A10 


SIGNED OFF - (HOLD/DROP) TERMINAL 


A11 


CLEAR 


E01 


INVALID SYNTAX 


E02 


OPERAND MISSING 


E03 


ALREADY SIGNED ON - PROCEED 


E04 


PASSWORD ERROR 


E05 


THAT COMMAND NOT VALID NOW 


E06 


MESSAGE TOO LONG 


E07 


THAT COMMAND NOT VALID NOW 


E08 


INVALID SIGN OFF OPTION 


E09 


NOT SIGNED ON 


E10 


THAT COMMAND NOT VALID NOW 


E11 


INVALID PROGNAME 


E12 


INPUT DATA NOT ALLOWED 


E13 


PROGNAME TOO LONG 


E14 


THAT COMMAND NOT VALID NOW 


E15 


ENTER /FILE THEN PROG REQ 


E16 


THAT COMMAND NOT VALID NOW 



$CC4QQ 


$CC4QQ 


$CC4ED 


$CC4NM 


$CC4ED 


SCC4F2 


$CC4DM 


$CC4DM 


$CC4NC 


$CC4NC 


$CC4RN 


$CC4RN 


$CC40G 


$CC40G 


$CC4BO 


$CC4CM 


$CC4EC 


SCC4PC 


$CC4SO 


$CC4SO 


SCC4EC 


$CC4PC 


$CC4SO 


$CC4SO 


$CC4SO 


$CC4SO 


$CC4QQ 


$CC4QQ 


$CC4EF 


SCC4MG 


$CC4EC 


$CC4CN 


$CC4EC 


SCC40F 


SCC4EC 


$CC40F 


$CC4EC 


$CC40F 


SCC4EA 


$CC4R3 


$CC4EA 


$CC4R3 


$CC4EA 


$CC4R1 


$CC4EA 


$CC4R1 


$CC4EB 


$CC4R4 


SCC4RN 


$CC4RN 
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Terminal Operator Messages (continued) 



Message ID Message Text 



Contained In Issued By 



IE1 7 Fl LE NAME TOO LONG 

E18 THAT COMMAND NOT VALID NOW 

E19 INVALID SYNTAX 

E20 Fl LENAME ******** UNKNOWN 

E21 THIS FILE COMBINATION NOT VALID 

E22 THAT COMMAND NOT VALID NOW 

E23 NAME TOO LONG 

E24, UNKNOWN TERMINAL NAME 

E25 UNASSIGNED TERMINAL NAME 

E26 NAME NOT IN FILE TABLE 

E27 INPUT TOO LONG 

E32 PRUF INPUT TO NON-PRUF PROGRAM 

R01 COMMANDS SUSPENDED - WAIT 

R02 COMMANDS RESUMED — REENTER 

R03 REQUESTED PROG SUSPENDED 

R04 REQUESTED PROG BUSY 

R05 PROG NO LONGER AVAILABLE 

R06 SYSTEM BUSY - RETRY OR /Q 

R07 SYSTEM ERROR - RETRY 

R08 REQUESTED PROG UNAVAILABLE 

R09 UNIT RECORD DEVICE UNAVAILABLE 

R10 LOGICAL TERMINAL UNAVAILABLE 

R11 DISK FILE NO LONGER AVAILABLE 

R12 DISK FILE NO LONGER AVAILABLE 

R13 CORE UNAVAILABLE 



$CC4ED 


$CC4FL 


$CC4ED 


$CC4FL 


$CC4ED 


$CC4FL 


$CC4ED 


$CC4ED 


$CC4ED 


$CC4FL 


$CC4ED 


$CC4NM 


$CC4ED 


SCC4NM 


$CC4ED 


$CC4NM 


$CC4ED 


$CC4NM 


$CC4ED 


$CC4F2 


$CC4EE 


SCC4PC 


SCC4EA 


$CC4R1 


SCC4R3 


$CC4RC 


SCC4EE 


SCC4PC 


$CC4RF 


$CC4RF 


$CC4EA 


SCC4R1 


$CC4EA 


$CC4R1 


SCC4EA 


$CC4R1 


SCC4EA 


$CC4R2 


SCC4EA 


$CC4R2 


$CC4EA 


SCC4R3 


$CC4EB 


$CC4R5 


$CC4EB 


$CC4R5 


$CC4EB 


$CC4R4 


$CC4EB 


SCC4R4 


$CC4EB 


$CC4R7 
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Terminal Operator Messages (continued) 
Message I D Message Text 



Contained In Issued By 



R14 CORE TEMP UNAVAILABLE 

R15 REQUIRED TERMINAL UNAVAILABLE 

R16 DISK FILE TEMP UNAVAILABLE 

R17 FILE TABLE FULL 

501 PROG REL- PROCEED 

502 PROG REL - SHUTDOWN 

503 PROG END - PROCEED 

504 SHUTDOWN 

SOB PROG END - SHUTDOWN 

506 PROG CANCELLED - SHUTDOWN 

507 NOW ONLINE -NAMED ****** 

508 NOW OFFLINE 

509 PROG CANCELLED - PROCEED 

510 USED AS INPUT FROM SYSTEM OPERATOR 

511 INPUT IGNORED -PROCEED 

512 TP ERROR ON INPUT 



$CC4EB 


$CC4R7 


$CC4EB 


$CC4R5 


$CC4EB 


$CC4R4 


$CC4ED 


$CC4F2 


SCC4RX 


$CC4RX 


$CC4RX 


SCC4RX 


SCC4TY 


$CC4TY 


$CC4CX 


$CC4CX 


SCC4SH 


$CC4SH 


$CC4EE 


$CC4PC 


$CC4TY 


$CC4TY 


$CC4TY 


SCC4TY 


$CC4VB 


$CC4VB 


$CC4VB 


$CC4VB 


$CC4TY 


$CC4TY 




$CC4CG 


SCC4EE 


$CC4PF 


$CC4RP 


$CC4RP 



CCP Dump Messages 



Message ID Message Text 



Contained In Issued By 



DP010 PERMANENT DISK ERROR 

CP011 $CCPDD TERMINATED 

DP012 DUMP NUMBER TOO LARGE 

DP013 CORE DUMP N FINISHED 



SCCPDD $CCPDD 

$CCPDD $CCPDD 

$CCPDD $CCPDD 

SCCPDD $CCPDD 
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CCP Dump Messages (continued) 



Message I D Message Text 



Contained In Issued By 



DP014 TRACE TABLE DUMP FINISHED 

DP015 ALL CORE DUMPS FINISHED 

DP016 INVALID DUMP CONTROL RECORD 

DP017 INVALID $CCPFILE CHECK CHARACTERS 

DP018 EXTENT ERROR ON $CCPFILE 

DP019 $CCPDD PROGRAM CANCELLED 

DP020 ERROR WHILE READING FROM SYSIN 

DP021 SELECTED DUMP DATA INVALID, NOT FROM MOST 
RECENT RUN OF CCP 

DP022 LOWER CORE VALUE TOO LARGE FOR THIS SYSTEM 

DP023 SCCPDD PROGRAM FINISHED 

DP024 NO DISK TRACE TABLE 

DP025 NO CORE DUMPS PRESENT 



SCCPDD 


$CCPDD 


SCCPDD 


SCCPDD 


$CCPDD 


$CCPDD 


$CCPDD 


$CCPDD 


$CCPDD 


$CCPDD 


$CCPDD 


$CCPDD 


$CCPDD 


$CCPDD 


SCCPDD 


SCCPDD 


SCCPDD 


SCCPDD 


$CCPDD 


$CCPDD 


SCCPDD 


SCCPDD 


SCCPDD 


SCCPDD 



Installation Verification Program (CCPIVP) Messages 

Note: Indicates variables either keyed from the console or supplied by CCPIVP. 



Message ID Message Text 



EJNMSG 
EJNMSG 
EMSG1 
EMSG2 

EMSG3 
EMSG4 



PROGRAM DONE. SCRATCH ******** PERFORM OLT. 

PROGRAM DONE.ERRORS ENCOUNTERED. 

PLEASE ENTER MM/DD/YY. 

DATA ENTERED NOT 03 CHARS LONG OR /*. 
PLEASE TRY AGAIN. 

DISK FILE NEVER OPENED. GOING TO EJ ROUTINE. 

PRINT ROUTINE NOT LINK EDITED. GOING TO EJ 
ROUTINE. 



Contained In Issued By 





CCPIVP 


CCPIVP 


CCPIVP 


CCPIVP 


CCPIVP 


CCPIVP 


CCPIVP 


CCPIVP 


CCPIVP 



CCPIVP 



CCPIVP 
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Installation Verification Program (CCPIVP) Messages (continued) 



Message ID Message Text 



Contained In Issued By 



MESG1 PLEASE ENTER 03 CHARS OF DATA. THIS DATA 

WILL BECOME A 5444 CONSECUTIVE DISK RECORD 
OF THE FORM ***-MM/DD/YY-NNN. TO CLOSE FILE 
ENTER /*. 



CCPIVP CCPIVP 



MESG2 DISK FILE CLOSED. ENTER P IF $$LPRT WAS LINK 

EDITED WITH THIS PROGRAM. DISK FILE WILL 
BE DUMPED TO THE PRINTER. ANY OTHER CHARS 
WILL CAUSE THE DISK FILE TO BE DUMPED TO THE 
CONSOLE 



CCPIVP CCPIVP 



MSGRY1 . TNAME-******, UNXPCTD RET CODE ****, ENTER 
TA OR ** 



CCPIVP CCPIVP 



MSG1CD 



RQSMSG 



PLEASE ENTER 03 CHARS OF DATA. TO CLOSE 
ENTER /* 



THIS COPY OF CCPIVP REQUESTED BY 



»**#** 



CCPIVP CCPIVP 

CCPIVP CCPIVP 
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DISPLAY FORMAT TEST ROUTINE DIAGNOSTIC 
MESSAGES 



DT014 I REMOTE STATION DOES NOT RESPOND 
TO ATTEMPTED DATA TRANSFER 



During execution, the display format test routine ($CCPDT) 
diagnoses error conditions and logs diagnostic messages on 
the system printer. The messages consist of a message 
number followed by a severity code and message text. The 
severity codes are: 

W - Warning — If the input data received from the SYSIN 
device is not in the correct form, a message indicating 
why is printed. Also, if the format is not on the pro- 
gram pack, a warning message is printed. 

I - Information — Informs the user of why requests were 
rejected, and the type of attention identification (AID) 
received from the terminal. 

DT010 W INVALID OPTION ENTERED 



Explanation - 
System Action 



The options that can be 
entered are A, B, C, D, and E. 
$CCPDT returns to SYSIN 
to read another option. 



DT011I 



W BLANK NOT FOUND BETWEEN 
PARAMETERS 

Explanation - A blank must be between 
each parameter. 

System Action - $CCPDT returns to SYSIN 
to read another option. 



DT012 I REVERSE INTERRUPT WAS RECEIVED 



Explanation 



System Action 



DT013 



The terminal received a 
reverse interrupt in response 
to polling and addressing. 
The $CCPDT reads the status 
of the display and prints it 
on the system printer; then 
retries the request. 



W STATION DID NOT RESPOND TO POLLING 
AND ADDRESSING 



Explanation - 
System Action 



The wrong poll and address 
characters were entered. 
SCCPDT returns to SYSIN 
to read another option. 



Explanation 



System Action - 



Remote station responded to 
polling and addressing but 
the request for data transfer 
is not accepted (possible 
hardware problem). 
$CCPDT returns to SYSIN 
to read another option. 



DT015 I INCORRECT DATA RECEIVED 



Explanation 



System Action 



Data check occurred during 
transfer of data (possible 
modem of line problem). 
$CCPDT returns to SYSIN 
to read another option. 



DT016 I SENSE/STATUS BYTES INDICATE. 



Explanation - This message is printed on the 
system printer when a request 
is issued to the 3270 and it is 
locked with status information. 
The type of status is put in 
the blank line. The types are: 
UNIT SPECIFY, TRANS- 
MISSION CHECK, COMMAND 
REJECT, INTERVENTION 
REQUIRED, EQUIPMENT 
CHECK, DATA CHECK, 
CONTROL CHECK, and 
OPERATION CHECK. 

System Action - $CCPDT returns to SYSIN 
to read another option. 

Note: For a description of the status information, refer to 
the IBM 3270 Information Display System Component 
Description, GA27-2749. 

DT017 W FORMAT NAME MUST BEGIN WITH $Z 

Explanation - The first two characters of 
the format name must begin 
with $Z. 

SCCPDT returns to SYSiN 
to read another option. 



System Action - 



E-42 



DT018 I PROGRAM INTERVENTION CAUSED 

BY 



Explanation - 



System Action 



Data is entered at the terminal 
and a program intervention is 
caused by a PF key, a PA key, 
the CLEAR key, and the 
ENTER key. The blank line 
is filled when a program inter- 
vention is received. 
$CCPDT returns to SYSIN 
to read another option. 



DT019 W FORMAT NAME WAS NOT ON PROGRAM 
PACK 



Explanation • 



System Action - 



The format must be on the 
same pack from which 
$CCPDT is loaded. 
$CCPDT returns to SYSIN 
to read another option. 



DT020 W INVALID FORMAT NAME 



Explanation - 



System Action - 



The format name must be at 
least three characters and not 
more than six characters long. 
$CCPDT returns to SYSIN 
to read another option. 
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Appendix F. Flowchart and HIPO Conventions 



FLOWCHARTS 

The following symbols are used in this manual: 



Processing 



< 




Decision 



Striped Processing 




Striped Decision 



Predefined Processing 



CZZ) ^3 



Entry /Terminal 



Striped Entry/Terminal 



Comment 



O 

On-Page Connector 



U 



Off-Page Connector 



Flowchart and Hipo Conventions F-1 



Most of the symbols are self-explanatory, but some need 
more explanation. 

1. The striped blocks (striped processing, striped 
decision, and striped entry /terminal) indicate an 
exit to a routine flowcharted elsewhere in the manual. 



Off-page connectors entering a page contain the page 
number and block number of their origin. If the 
entry point referenced by the off -page connector is 
referenced from more than one origin, all origins are 
given. The origins are listed in alphameric order with 
the last reference contained within the block. 



Example: 



LABEL 



Diagram Number 
or CH/PG/BK 




CH/PG/BK indicates the chart ID, page, and block 
identification of the flowcharted routine. 



Example: 



02- F4 
03-F4 
04-F4 



05 
A3 



02-B2 
03-C4 




03 
F5 



2. 



The predefined processing block indicates a routine 
flowcharted and/or described in another logic manual. 



Example: 
LABEL 



SEE NOTIE 



Note: See logic manual title and order number. 

3. Off-page connectors are used to reference between 
different pages of the same chart ID. Off-page 
connectors leaving a page contain the page number 
and block number of their destination. 



On-page connectors contain the location of a block 
on the same page. On-page connectors always con- 
tain the location of the destination block. 

The label in the upper lefthand corner just above the 
entry symbol is the entry point in the listing for that 
part of the program. 

Example: 



$DSAAO 



f ENTRY J 



Example: 



02 
A1 



KX 



F-2 



HIPO 

Since the beginning of software, the programming community 
has thought of software products as being largely invisible, 
and having no recordable, functional structures. We have 
learned to think and to document in terms of the code only, 
rather than of the functions we support with the code. 

The main objective of this method of diagramming is to 
improve communication procedures and techniques through 
the effective use of functional operation diagrams. 

HIPO, Hierarchy plus Input-Process-Output, is a method 
of graphically describing internal function by structuring 
a presentation from general to detailed levels in a set of 
method of operation diagrams. 

Though the method of operation diagrams in this manual 
are not all HIPO diagrams, HIPO techniques are used in 
the program organization sections to describe many of the 
CCP modules. These low level HIPO diagrams contain unit 
level information (that level of information reflecting the 
actual workings of the code). Each low level diagram is 
arranged to best show: 

« A process that supports the function being described. 

» Results of the process. 

» Requirements for processing. 



Stated graphically: 




The diagrams contain as few words as possible. There are 
two reasons for this: 

• When the picture becomes cluttered with text, it loses 
some value as a recall mechanism. 

• The degree of difficulty of maintaining the diagrams 
increases with increased number of words in the picture 
area. 

In the diagrams, functions are related by cross references 
to the module(s) supporting those functions. The addition 
of cross reference creates a functional mapping through the 
implementation. 



To summarize graphic and information content: 



Boxes used to: 

• Localize inputs, process, outputs. 

• Isolate related sub-processes within the processing 
area. 

• Localize extended descriptions. 



Arrows used to: 

• Lead the reader through the process. 

• Show data flow. £> 



Pointer 



■*- or -*- 



Flowchart and Hipo Conventions F-3 



F-4 



Index 



Where more than one page reference is given, the major 
reference is first. 

$$UFFF 

diagram 9-385 

method of operation 9-1 

module description 9-385 

system directory A-28 
$$UFPP 

diagram 9-385 

method of operation 9-1 

module description 9-385 

system directory A-28 
$$UFPR 

diagram 9-385 

method of operation 9-1 

module description 9-385 

system di rectory A-28 
$$UFPU 

diagram 9-385 

method of operation 9-1 

module description 9-385 

system directory A-28 
$$UFRD 

diagram 9-385 

method of operation 9-1 

module description 9-385 

system directory A-28 
$$UFRP 

diagram 9-385 

method of operation 9-1 

module description 9-385 

system directory A-29 
$$UFRU 

diagram 9-385 

method of operation 9-1 

module description 9-385 

system directory A-29 
$$UPRT 

diagram 9-385 

method of operation 9-1 
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module description 9-277 
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module description 9-275 
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module description 9-276 
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module description 9-246 
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diagram 9-266 

method of operation 9-1 , 9-37, 9-39 
module description 9-266 
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diagram 9-267 
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module description 9-267 
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module description 9-82 
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module description 9-270 
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diagram 9-283 
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module description 9-283 
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diagram 9-309 
method of operation 9-1 , 9-39 
module description 9-309 
system directory A-22 
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module description 9-312 
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diagram 9-351 

method of operation 9-1 , 9-1 5 
module description 9-351 
system directory A-22 
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module description 9-280 
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diagram 9-292 
method of operation 9-1 , 9-39 
module description 9-292 
system directory A-22 
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diagram 9-352 
method of operation 9-2, 9-1 5 
module description 9-352 
system directory A-23! 
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method of operation 9-1 , 9-1 5 
module description 9-353 
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diagram 9-281 

method of operation 9-1 , 9-42 
module description 9-1 , 9-39 
system directory A-23! 
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module description 9-284 
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diagram 9-286 
method of operation 9-1 , 9-42 
module description 9-286 
system directory A-23 

$CC4R4 

diagram 9-287 
method of operation 9-1 , 9-42 
module description 9-287 
system directory A-23 

$CC4R5 

diagram 9-289 
method of operation 9-1 , 9-42 
module description 9-289 
system directory A-23 

$CC4R6 

diagram 9-290 
method of operation 9-1 , 9-42 
module description 9-290 
system directory A-23 

$CC4R7 

diagram 9-288 
method of operation 9-1 , 9-42 
module description 9-288 
system directory A-23 

$CC4R8 

diagram 9-285 
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module description 9-285 
system directory A-23 
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diagram 9-250 
method of operation 9-1 
module description 9-250 
system directory A-23 
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diagram 9-256 
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module description 9-256 
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diagram 9-313 

method of operation 9-1 , 9-39 
module description 9-313 
system directory A-24 
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diagram 9-225 
method of operation 9-1 , 9-26 
module description 9-225 
system directory A-24 

$CC4SO 

diagram 9-273 
method of operation 9-1 , 9-41 
module description 9-273 
system directory A-24 
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diagram 9-247 
method of operation 9-1 , 9-27 
module description 9-247 
system directory A-24 

$CC4SQ 

diagram 9-224 
method of operation 9-1 , 9-26 
module description 9-224 
system directory A-24 

$CC4SS 

diagram 9-307 
method of operation 9-1 , 9-39 
module description 9-307 
system directory A-24 

$CC4ST 

method of operation 9-309 
system directory A-24 

$CC4SU 

diagram 8-43 

method of operation 8-4, 9-37 
module description 8-43 
system directory A-25 

$CC4S0 

system directory A-25 

$CC4S2 

diagram 9-249 
method of operation 9-1 
module description 9-249 
system directory A-25 
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diagram 9-333 
method of operation 9-1 , 9-45 
module description 9-333 
system directory A-25 

$CC4TD 

diagram 9-336 
method of operation 9-1,9-47 
module description 9-336 
system directory A-25 

$CC4TE 

diagram 9-304 
method of operation 9-1,9-39 
module description 9-304 
system directory A-25 

$CC4TF 

diagram 9-38 

method of operation 9-1 , 9-47 
module description 9-338 
system directory A-25 
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flowchart PL 9-1 24 
method of operation 9-1 
module description 9-89 
system directory A-24 

$CC4TK 

diagram 9-337.1 
method of operation 9-47 
module description 9-337.1 
system directory 9-24 
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flowchart PL 9-124 
method of operation 9-1 
module description 9-90 
system directory 9-25 
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module description 9-339 
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$CC4TP 

diagram 9-340 
method of operation . 9-1 , 9-47 
module description 9-340 
system directory A-25 

$CC4TR 

flowchart PY 9-148 
method of operation 9-1 , 9-1 3 
module description 9-84 
system directory A-25 

$CC4TS 

diagram 9-293 
method of operation 9-1 , 9-39 
module description 9-293 
system directory A-26 

$CC4TT 

flowchart OV 9-116 
method of operation 9-1 
routine description 9-86 
system directory A-26 

$CC4TW 

diagram 9-337 
method of operation 9-1,9-47 
module description 9-337 
system directory A-26 

$CC4TX 

flowchart OT 9-1 1 3 
method of operation 9-1 , 9-1 3 
module description 9-85 
system directory A-26 

$CC4TY 

diagram 9-341 

method of operation 9-1,9-47 
module description 9-341 
system directory A-26 
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diagram 9-247 
method of operation 9-1 , 9-39 
module description 9-247 
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diagram 9-245 
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module description 9-245 
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method of operation 9-1 , 9-26 
module description 9-226 
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diagram 9-334 
method of operation 9-1 , 9-45 
module description 9-334 
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module description 9-296 
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$CC4VB 

diagram 9-297 

method of operation 9-1 , 9-39 

module description 9-297 

system directory A-26 
$CC4V1 9-180 
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$CC4WC 

diagram 9-258 

method of operation 9-1 , 9-28, 9-29 

module description 9-258 
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$CC4WD 

diagram 9-259 

method of operation 9-1 , 9-28, 9-29 

module description 9-259 

system directory A-26 
$CC4WR 

diagram 9-228 

method of operation 9-1 , 9-29, 9-31 

module description 9-228 

system directory A-26 
$CC4WT 

flowchart 01 9-105 
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module description 9-82 
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$CC4XA 
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system directory A-27 
$CC4XB 

method of operation 9-396 
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$CC4XC 

method of operation 9-397 

system directory A-27 
$CC4XF 

method of operation 9-398 
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$CC4XG 

method of operation 9-399 
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$CC4X1 

method of operation 9-386 
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$CC4X2 

method of operation 9-387 
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method of operation 9-388 
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$CC4X5 

method of operation 9-390 
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method of operation 9-391 
system directory A-27 

$CC4X7 

method of operation 9-392 
system directory A-27 

$CC4X8 

method of operation 9-393 
system directory A-27 

$CC4X9 

method of operation 9-394 
system directory A-27 

$CC4YA 

diagram 9-274 
method of operation 9-1 , 9-41 
module description 9-274 
system directory A-27 
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generation 6-1 
module layout 6-1 
startup 8-1 2, 8-1 3 
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flowchart RM 10-8 
main storage map 1 0-7 
method of operation 1 0-1 
module description 1 0-7 
system directory A-30 

$CGDRV 

main storage map 3-6 
method of operation 3-2 
module description 3-6 
system directory A-2 

$CGNBX 

flowcharts HA-HF 3-61 
main storage map 3-1 3 
method of operation 3-2 
module description 3-13 
system directory A-2 

$CGNCM 

flowcharts BB-BH 3-1 6 
main storage map 3-7 
method of operation 3-2 
module description 3-6 
system directory A-2 

$CGNIN 

flowchart BA 3-1 5 
main storage map 3-6 
method of operation 3-2 
module description 3-6 
system directory A-2 

$CGNPE 

flowcharts FA-FF 3-45 
main storage map 3-1 1 
method of operation 3-2 
module description 3-1 1 
system directory A-2 

$CGNPS 

flowcharts GA-G I 3-49 
main storage map 3-12 
method of operation 3-2 
module description 3-1 2 
system directory A-2 

$CGNSB 

flowcharts CA-CK 3-28 
main storage map 3-9 
method of operation 3-2 
module description 3-9 
system directory A-2 

$CGNSF 

flowcharts DA-DD 3-39 
main storage map 3-1 
method of operation 3-2 
module description 3-9 
system directory A-3 

$CGNSS 

flowcharts EA-EE 3-42 
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method of operation 3-2 
module description 3-1 
system directory A-3 
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flowcharts IA-IE 3-66 
main storage map 3-14 
method of operation 3-2 
module description 3-13 
system directory A-3 

$NARFF 

diagram 9-385 
method of operation 9-1 
module description 9-385 
system directory A-29 

$NCIO macro flow, diagram 9-58 

$NLPRT 

diagram 9-385 
method of operation 9-1 
module description 9-385 
system directory A-29 

$NMFFF 

diagram 9-385 
method of operation 9-1 
module description 9-385 
system directory A-29 

$NMFPP 

diagram 9-385 
method of operation 9-1 
module description 9-385 
system directory A-29 

$NMFPR 

diagram 9-385 
method of operation 9-1 
module description 9-385 
system directory A-29 

$NMFPU 

diagram 9-385 
method of operation 9-1 
module description 9-385 
system directory A-29 

$NMFRD 

diagram 9-385 
method of operation 9-1 
module description 9-385 
system directory A-29 

$NMFRP 

diagram 9-385 
method of operation 9-1 
module description 9-385 
system directory A-29 

$NMFRU 

diagram 9-385 
method of operation 9-1 
module description 9-385 
system directory A-29 

$NPL macro flow, diagram 9-57 

$WORK2 (work file) 3-2 



accept input 9-14 

diagram 9-70 
accept timeline 9-70 

actions for assignment build (see assignment actions) 
allocate, pseudo 9-50 
allocation task 9-44 

diagram 9-45 
assignment actions 

create 4-3 

delete 4-3 

replace 4-3 

sysmod 4-3 
assignment build program 

figure 1-5 

introduction 1-5,4-1 

main storage map 4-5 

method of operation 4-1 

overview diagram 4-4 

program organization 4-3 
assignment file ($CCPF I LE) 1-1 

(seealso$CCPFILE) 
assignment list program 

diagram 5-3 

figure 1-7 

introduction 1-7,5-1 

method of operation 5-1 
program organization 5-4 

assignment sets 1-5 

assignment stage 

assignment build program 1 -5, 4-1 

assignment list program 1-6,5-1 

display format generator program 1-8, 7-1 

user security information build program 1-6, 6-1 

auxiliary programs 

disk to printer dump of main storage/trace 1-13, 11-1 

installation verification program 1-13, 13-1 

stand-alone card loadable main storage dumps 1-13, 12-1 



base SCP extension to DSM 9-7 

basic assembler language interface 9-58 

BSCA error handling transient flow, diagram 9-31 

BSCA lines, close 10-6 

BSCA MLMP trace (see MLMP trace) 

BSCA operation complete handling, diagram 9-25 

BSCA request scheduling, diagram 9-27 

BSCA start operation, diagram 9-28 

build and close disk DTFs 1 0-1 

build program, assignment (see assignment build program) 
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card-loadable main storage dumps 1-12, 12-1 
card-oriented generation 2-4 
cardless-oriented generation 2-1 
CCP configuration record 1-6 
CCP control tasks 9-1 7 
CCP dump routine 

(see also $CGPDD, card-loadable main storage dumps) 

CCP end of job 9-55 
CCP execution 

control blocks, diagram 9-6 

data areas, diagram 9-6 

figure 1-11 

hierarchical structure, diagram 9-1 

introduction 1-11,9-1 

main storage layout 9-3 
DFF 9-3 
PAS 9-4 

method of operation 9-1 

module descriptions 9-80 

resident code, diagram 9-5 
CCP generation 

(see also generation stage) 

card-oriented CCP generation 2-4 

cardless-oriented CCP generation 2-1 

figure, general procedure 2-3 

function 2-1 

global variables 2-18 



method of operation 

card-oriented generation 2-4 
cardless-oriented generation 2-1 

passes 2-18 

print/punch utility, figure 2-29 

procedure 2-1 , 2-3 

purpose 2-1 

restrictions 2-2 

steps 

in card-oriented CCP generation 2-4 
in cardless-oriented CCP generation 2-10 
CCP installation 1-1,1-3,2-1 

function 2-33 

method of operation 2-33 

procedure 2-33 
CCP introduction 1-1 
CCP system termination 9-46 
CCP teleprocessing I/O interface 9-14 
CCP transient area handler (see $CC4PI) 
CCPCIO 

diagram 9-358 

method of operation 9-1 

module description 9-358 

system directory A-29 
CCPDAN 

flowchart ZN 1 2-3 

main storage map 1 2-2 

module description 1 2-2 

system directory A-30 
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flowchart ZN 12-3 
main storage map 1 2-2 
method of operation 1 2-1 
module description 1 2-2 
system directory A-30 

CCPDPN 

flowchart ZN 1 2-3 
main storage map 1 2-2 
method of operation 1 2-1 
module description 12-2 
system directory A-31 

CCPDTN 

flowchart ZN 1 2-3 
main storage map 1 2-2 
method of operation 1 2-1 
modu le descripti on 1 2-2 
system directory A-31 

CCPFIO 

diagram 9-359 
method of operation 9-1 
module description 9-359 
system directory A-29 

CCPIVP 

diagram 1 3-2 
flowchart ZP 1 3-7 
halts 13-4 
linkage edit map 13-5 
main storage map 1 3-3 

method of operation 1 3-3 
module description 1 3-5 
system directory A-31 

CCPIVR 

(see also CCPIVP) 
system directory A-31 

CCPSAV 

flowchart OV 9-116 
method of operation 9-1 
module description 9-85 
system directory A-27 

CMBSKP 

flowchart RF 9-184 
method of operation 9-1 
module description 9-98 
system directory A-27 

CMFRMN 

flowchart QE 9-1 68 
method of operation 9-1 
module description 9-95 
system directory A-28 

CMGINL 

flowchart QU 9-1 85 
method of operation 9-1 
module description 9-98 
system directory A-28 

CMIVGM 

flowchart QK 9-179 
method of operation 9-1 
module description 9-99 
system directory A-28 
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CMOPND 

flowchart QC 9-160 

method of operation 9-1 

module description 9-94 

system directory A-28 
CMPSRQ 

flowchart QS 9-184 

method of operation 9-1 

module description 9-97 

system directory A-28 
CMRSCH 

flowchart QG 9-173 

method of operation 9-1 

module description 9-93 

system directory A-28 
CMSET 

flowchart QM 9-182 

method of operation 9-1 

module description 9-97 

system directory A-28 
CMSTOR 

flowchart QL 9-181 

method of operation 9-1 

module description 9-97 

system directory A-28 
COBOL user program interface 9-66 

diagram 9-67 
command processor 

(see also $CC4CP) 

task 9-36 

task overview 9-37 
command timeline, diagram 9-74 
commands 

system operator 9-38 
diagram 9-39 

terminal operation 9-38 
communication management 

(see also $CC4CM) 

overview 9-21 

task 9-18 
communication tables, SCP generator phase-to-phase 

$CGININ 3-2 

$CGINPE 3-2 
compiler access method, flowchart J A 3-72 
concurrent file sharing, diagram 9-77 
configuration display 5-1 
configuration record, CCP 1-7 
console management 

(see also $CC4CM and $CC4K9) 

method of operation 9-20 

Model 4 only 9-34 
console output transient flow, diagram 9-30 
console overview 9-24 
CPHALT 

flowchart OV 9-116 

method of operation 9-1 

module description 9-86 

system directory A-28 
CPINIT 

(see also $CC4) 

flowchart OA 9-99 

method of operation 9-1 

module description 9-80 



DFF request 9-14 
DFGR common 

flowcharts 7-4 

storage layout 7-1 
directory display 5-2 
directory, system A-1 
diskDTFs 10-1 
disk layout for $CCPFI LE 4-2 
disk source file 3-1,3-2 
disk trace entry 1 0-6 
disk-to-printer dump program 

figure 1-13 

flowchart 11-10 

introduction 1-13, 11-1 

method of operation 1 1 -1 

program organization 11-4 
display format generator program 

figure 1-8 

introduction 1-8,7-1 

method of operation 7-1 

program organization 7-4 
DSM entry points 1 0-6 
DSM extensions, diagram 9-8 

dump of main storage trace, disk to printer 1-13, 11-1 
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